aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Task/Doomsday-rule/J/doomsday-rule-1.j Normal file
View file

@ -0,0 +1,4 @@
1+7|1++/\.31 28 31 30 31 30 31 31 30 31 30 31
3 7 7 4 2 6 4 1 5 3 7 5
1+7|1++/\.31 29 31 30 31 30 31 31 30 31 30 31
4 1 7 4 2 6 4 1 5 3 7 5

7
Task/Doomsday-rule/J/doomsday-rule-2.j Normal file
View file

@ -0,0 +1,7 @@
get_weekday=: {{ 'Y M D'=. y
Y0=. todayno Y,1 1
Y1=. todayno 1+Y,0 0
aday=. M{_,1+7|1++/\.>.//./}.|:todate Y0+i.Y1-Y0
dday=. 7|2 5 4 6+/ .*1,4 100 400|/Y
'day',~;(7|D+dday-aday){;:'Sun Mon Tues Wednes Thurs Fri Satur'
}}

6
Task/Doomsday-rule/J/doomsday-rule-3.j Normal file
View file

@ -0,0 +1,6 @@
get_weekday=: {{ 'Y M D'=. y
leap=. 0~:/ .=4 100 400|/Y
aday=. 1+7|(M*leap*3>M)+M{_ 2 6 6 3 1 5 3 0 4 2 6 4
dday=. 7|2 5 4 6+/ .*1,4 100 400|/Y
'day',~;(7|D+dday-aday){;:'Sun Mon Tues Wednes Thurs Fri Satur'
}}

14
Task/Doomsday-rule/J/doomsday-rule-4.j Normal file
View file

@ -0,0 +1,14 @@
get_weekday 1800 1 6
Monday
get_weekday 1875 3 29
Monday
get_weekday 1915 12 7
Tuesday
get_weekday 1970 12 23
Wednesday
get_weekday 2043 5 14
Thursday
get_weekday 2077 2 12
Friday
get_weekday 2101 4 2
Saturday