Rule 30 by mskzzzz

-[A,B,C|T]:-((A=35,(B=A;C=A);A=32,A=B,B=C),put(32);C<32;put(#)),!,-[B,C|T].
m:-read_file_to_codes('/dev/fd/0',S,[]),append([32,32|S],[32,32],U),-U.

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

download

return to the top page