Anonymous user
Day of the week: Difference between revisions
m
→{{header|APL}}
No edit summary |
m (→{{header|APL}}) |
||
Line 356:
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 ← ( 1 = Zeller 25,[1]12,[0.5]y) / y
</lang>
{{out}}
<pre>
| |||