Long year: Difference between revisions
→{{header|Forth}}: Parameterize demo code
(→{{header|Forth}}: Parameterize demo code) |
|||
Line 770:
<lang forth>: dec31wd dup dup 4 / swap dup 100 / swap 400 / swap - + + 7 mod ;
: long dup dec31wd 4 = if drop 1 else 1 - dec31wd 3 = if 1 else 0 then then ;
: demo
{{Out}}
<pre>1995 2045 demo
ok</pre>
=={{header|Fortran}}==
|