Long year: Difference between revisions
→{{header|Snobol}}: Make demo a function, add output header
(→{{header|Snobol}}: simplify loop logic) |
(→{{header|Snobol}}: Make demo a function, add output header) |
||
Line 2,062:
=={{header|Snobol}}==
<lang snobol> DEFINE('DEC31WD(Year)') :(END_DEC31WD)
DEC31WD DEC31WD = REMDR(Year + (Year / 4) - (Year / 100) + (Year / 400), 7) :(RETURN)
END_DEC31WD
DEFINE('ISOLONG(Year)') :(END_ISOLONG)
ISOLONG EQ(DEC31WD(Year), 4) :S(RETURN)
EQ(DEC31WD(Year - 1), 3) :S(RETURN)F(FRETURN)
END_ISOLONG
ISODEMO OUTPUT = 'ISO long years between ' Start ' and ' End ':'
LOOP OUTPUT =
Year = Year + 1
LE(YEAR, 2045) :S(LOOP) F(RETURN)
END_ISODEMO
ISODEMO(1995, 2045)
END</lang>
{{Out}}
<pre>ISO long years between 1995 and 2045:
2004
2009
| |||