Four Number Game by pooq

p:printf;f:"~{~a~^ ~}
";for a in read_nested_list("/dev/fd/0")do(p(?t,f,a),while a[1]+a[4]>0 do p(?t,f,a:abs(a-endcons(a[1],rest(a)))),newline());

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

download

return to the top page