Long year: Difference between revisions
Added Arturo implementation
Drkameleon (talk | contribs) (Added Arturo implementation) |
|||
Line 209:
return longYears</lang>
=={{header|Arturo}}==
{{trans|Nim}}
<lang rebol>longYear?: function [year][
date: to :date .format: "dd/MM/yyyy" ~"01/01/|year|"
or? date\Day = "Thursday"
and? leap? year
date\Day = "Wednesday"
]
print "Years with 53 weeks between 2000 and 2100:"
print select 2000..2100 => longYear?</lang>
{{out}}
<pre>Years with 53 weeks between 2000 and 2100:
2004 2009 2015 2020 2026 2032 2037 2043 2048 2054 2060 2065 2071 2076 2082 2088 2093 2099 </pre>
=={{header|AutoHotkey}}==
|