Long year: Difference between revisions

Content added Content deleted
(Added Quackery.)
Line 1,298: Line 1,298:
<lang Quackery> [ dup dip
<lang Quackery> [ dup dip
[ 1 1 rot dayofweek 4 = ]
[ 1 1 rot dayofweek 4 = ]
31 12 rot dayofweek 4 = or ] is longyear ( n --> b )
31 12 rot dayofweek 4 = or ] is longyear ( n --> b )


say "Long Years in the 21st Century" cr
say "Long Years in the 21st Century" cr
Line 1,311: Line 1,311:


2004 2009 2015 2020 2026 2032 2037 2043 2048 2054 2060 2065 2071 2076 2082 2088 2093 2099 </pre>
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}}==