10 lines
461 B
Text
10 lines
461 B
Text
B=: + 4 100 400 -/@:<.@:%~ <:
|
|
M=: 28+ 3, (10$5$3 2),~ 0 ~:/@:= 4 100 400 | ]
|
|
R=: (7 -@| B+ 0, +/\@}:@M) |."0 1 (0,#\#~41) (]&:>: *"1 >/)~ M
|
|
H=. _3(_11&{.)\'JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC'
|
|
H=. 'SU MO TU WE TH FR SA',:"1~H
|
|
C=: H <@,"(2) 12 6 21 }."1@($,) (' ',3 ":,.#\#~31) {~ R
|
|
D=: 0 ": -@<.@%&21@+&1@[ ]\ C@]
|
|
L=: |."0 1~ +/ .(*./\@:=)"1&' '
|
|
E=: (|."0 1~ _2 <.@%~ +/ .(*./\.@:=)"1&' ')@:({."1) L
|
|
F=: 0 _1 }. 0 1 }. (2+[) E '[INSERT SNOOPY HERE]', ":@], D
|