EDテーマLose±Controlの冒頭の数字は0,1,1,2,3,5,8,1,3,...となっておりフィボナッチ数列を並べた数値列の最初の23個分なので覚えなくても導出できるはずだが、僕の演算能力ではリアルタイムに足し算をしながらあのテンポで歌うことは困難だ。
$ perl -e '@i=(0,1);while(length($x=join("",@i))<23){push(@i,$i[$#i]+$i[$#i-1]);}print $x.$/;'
01123581321345589144233たまたま23文字でピッタリ収まるからいいが任意の文字数で区切る場合には最後にsubstrを入れる必要があり冗長な感じになる。
ループ回数を決め打ちにすれば少しだけ短くなるような気がするが微妙である。
