LED recognition by ksk

let rec($)r?(s=r())?(t=r())?(u=r())i=print_char"
4923017856".[Hashtbl.hash(s%i^t%i^u%i)/45 mod 11];s%i="_  "&r$0;($)r~s~t~u(i+3)and(%)s i=String.sub(s^"_  ")i 3;;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