Day of the Week by 51b

[begin] pad dup 11 stdin read-line * + evaluate -rot dup 3 < dup -11 * d+ 13 * 8 + 5 / over 4 / dup 25 / dup 4 / - - + + + 7 mod 0 .r cr [again]

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

download

return to the top page