Long year: Difference between revisions

Added Quackery.
(Added Arturo implementation)
(Added Quackery.)
Line 1,291:
2093
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}}==
1,496

edits