Read Diagonally by kaki

((rec'i((^`s'(+(guard,(`(~ s 0)0)`(~ s i)i)1))display(read-line)))0)

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

download

return to the top page