cal by yshl

/s{{( )print}repeat}def[.runstdin]{count 2
eq{[0(January)(February)(March)(April)(May)(June)(July)(August)(September)(October)(November)(December)]2
index get dup length dup 2 idiv 7 exch sub s exch print 1 s 1 index =only not 2
idiv 8 add s(
Su Mo Tu We Th Fr Sa)= 1 index 2 le{1 sub exch 12 add exch}if dup 4 idiv add 1
index 13 mul 8 add 5 idiv add 14 sub 7 mod dup 3 mul s
1<0011221e1d1e1d1e1e1d1e1d1e1e1c>3 index get{dup 9 le{1 s}if exch 1 add 2 copy
7 mod 0 eq{=}{=only 1 s}ifelse exch 1 add}repeat = 35 lt{/ =}if clear}if}forall

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

download

return to the top page