Day of the week: Difference between revisions
Content added Content deleted
m (→{{header|APL}}) |
m (→{{header|APL}}) |
||
| Line 354: | Line 354: | ||
⍝ Simplified Zeller function operating on table of dates formatted as 114 rows and 3 columns of (day, month, year) |
⍝ Simplified Zeller function operating on table of dates formatted as 114 rows and 3 columns of (day, month, year) |
||
⍝ 0 = Saturday, 1 = Sunday, 2 = Monday, 3 = Tuesday, 4 = Wednesday, 5 = Thursday, 6 = Friday |
⍝ 0 = Saturday, 1 = Sunday, 2 = Monday, 3 = Tuesday, 4 = Wednesday, 5 = Thursday, 6 = Friday |
||
zeller ← { 7|+/(((1↑⍴⍵),6)⍴1 1 1 1 ¯1 1)× ⌊(((⍴⍵)⍴1 13 1)×⍵+(⍴⍵)⍴0 1 0)[;0 1 2 2 2 2]÷((1↑⍴⍵),6)⍴1 5 1 4 100 400} |
zeller ← { 7 | +/ (((1↑⍴⍵),6)⍴1 1 1 1 ¯1 1) × ⌊(((⍴⍵)⍴1 13 1)×⍵+(⍴⍵)⍴0 1 0)[;0 1 2 2 2 2]÷((1↑⍴⍵),6)⍴1 5 1 4 100 400 } |
||
result ← ( |
result ← (1 = Zeller 25,[1]12,[0.5]y) / y |
||
</lang> |
</lang> |
||
{{out}} |
{{out}} |
||