Long year: Difference between revisions

m
→‎{{header|APL}}: simplify dec31wd expression slightly
(→‎{{header|APL}}: Add implementation)
m (→‎{{header|APL}}: simplify dec31wd expression slightly)
Line 243:
 
=={{header|APL}}==
<lang apl>dec31wd ← {7|(⍵+⌊(⍵÷4)+(¯1×⌊(⍵÷100))+⌊(⍵÷400)-⌊⍵÷100)}
long ← { (4 = dec31wd ⍵) ∨ (3 = dec31wd (⍵ - 1)) }</lang>
 
{{Out}}
Line 252:
1970 1976 1981 1987 1992 1998 2004 2009 2015 2020 2026 2032 2037 2043
2048 2054 2060 2065 2071 2076 2082 2088 2093 2099</pre>
 
=={{header|AppleScript}}==
 
1,480

edits