Rule 30 by murky-satyr

set o ##
gets stdin s
while {$s>""} {append o [expr "{$s}<{  !}||{# #}<{$s}?{ }:{#}"]
set s [regsub . $s ""]}
puts $o

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

download

return to the top page