Church Numerals in ski by tails

#!perl -pl
$_="``$_+x";0while$t='(`(?1){2}|.)',s/`i|``k$t$t/$1/||s/`s$t$t$t/$1$3`$2$3/;$_=y;+;

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

download

return to the top page