Doomsday rule: Difference between revisions
m
→{{header|J}}: change placeholder for month indexing
(J) |
m (→{{header|J}}: change placeholder for month indexing) |
||
Line 838:
Y0=. todayno Y,1 1
Y1=. todayno 1+Y,0 0
aday=. M{_,1+7|1++/\.
dday=. 7|2 5 4 6+/ .*1,4 100 400|/Y
'day',~;(7|D+dday-aday){;:'Sun Mon Tues Wednes Thurs Fri Satur'
| |||