Long year: Difference between revisions

→‎{{header|Snobol}}: simplify loop logic
(→‎{{header|Snobol}}: Add implementation)
(→‎{{header|Snobol}}: simplify loop logic)
Line 2,072:
 
YEAR = 1995
LOOP OUTPUT = ISOLONG(YEAR) :F(NOTLONG)YEAR
OUTPUTYEAR = YEAR + 1
NOTLONG YEAR = YEAR + 1
LT(YEAR, 2045) :S(LOOP)
END</lang>
1,480

edits