7 lines
354 B
Text
7 lines
354 B
Text
Ds ← [3 7 7 4 2 6 4 1 5 3 7 5]
|
||
Ly ← ↧↥⊃(=0◿400|≠0◿100|=0◿4)
|
||
D ← ◿7+⊃(Ly|+2++⊃(×5◿4|×4◿100|×6◿400))
|
||
Wd ← ["Sun" "Mon" "Tue" "Wed" "Thu" "Fri" "Sat" "Sun"]
|
||
DoW ← ⊡:Wd◿7+D⊙(-⊡-1:Ds)°[⊙⊙∘]
|
||
[[1800 1 6][1875 3 29][1915 12 7][1970 12 23][2043 5 14][2077 2 12][2101 4 2]]
|
||
≡(&p$"_\t_"/$"_-_"°⋕⇌⟜DoW)
|