Long year: Difference between revisions

Content added Content deleted
(Added Arturo implementation)
(Added Quackery.)
Line 1,291: Line 1,291:
2093
2093
2099</pre>
2099</pre>

=={{header|Quackery}}==

<code>dayofweek</code> is defined at [[Day of the week#Quackery]]

<lang Quackery> [ dup dip
[ 1 1 rot dayofweek 4 = ]
31 12 rot dayofweek 4 = or ] is longyear ( n --> b )

say "Long Years in the 21st Century" cr
cr
100 times
[ 2000 i^ + longyear if
[ 2000 i^ + echo sp ] ]</lang>

{{out}}

<pre>Long Years in the 21st Century

2004 2009 2015 2020 2026 2032 2037 2043 2048 2054 2060 2065 2071 2076 2082 2088 2093 2099 </pre>



=={{header|Quick BASIC}}==
=={{header|Quick BASIC}}==