Elias delta to Fibonacci by shinh

#!perl -p
for(;/1/;print reverse 1,map$x<$_?0:eof($x-=$_),@_){$'=~/.{@-}/;@_=$i=$'=~eval"'.'x(0b1$&-1)";@_=($i,@_)until($i+=$_[1]||1)>eval"\$x=0b1$&";$_=$'}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page