Long year: Difference between revisions
Content added Content deleted
Drkameleon (talk | contribs) (Added Arturo implementation) |
|||
Line 209: | Line 209: | ||
return longYears</lang> |
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}}== |
=={{header|AutoHotkey}}== |