これは自分ではなかなか思いつきそうにない。
$ perl -le'print$a+=$!=$a-$!for--$!..-2+pop' 10 1 1 2 3 5 8 13 21 34 55
$ perl -le'print$"=($a+=$")-$"for++$a..pop' 10 1 1 2 3 5 8 13 21 34 55
これは自分ではなかなか思いつきそうにない。
$ perl -le'print$a+=$!=$a-$!for--$!..-2+pop' 10 1 1 2 3 5 8 13 21 34 55
$ perl -le'print$"=($a+=$")-$"for++$a..pop' 10 1 1 2 3 5 8 13 21 34 55