Long year: Difference between revisions

→‎{{header|APL}}: Clarify function names
(→‎{{header|Snobol}}: Make demo a function, add output header)
(→‎{{header|APL}}: Clarify function names)
Line 243:
 
=={{header|APL}}==
<lang apl>dec31wddec31weekday ← {7|(⍵+⌊(⍵÷4)+⌊(⍵÷400)-⌊⍵÷100)}
longisolongyear ← {(4 = dec31wddec31weekday ⍵) ∨ (3 = dec31wddec31weekday (⍵ - 1))}</lang>
 
{{Out}}
<pre> (longisolongyear y)/y←1800+⍳300
1801 1807 1812 1818 1824 1829 1835 1840 1846 1852 1857 1863 1868 1874 1880 1885
1891 1896 1903 1908 1914 1920 1925 1931 1936 1942 1948 1953 1959 1964
1,480

edits