8 lines
287 B
Text
8 lines
287 B
Text
procedure main(arglist)
|
|
every y := !([2000,1900,2012]|||arglist) do
|
|
write("The year ",y," is ", leapyear(y) | "not ","a leap year.")
|
|
end
|
|
|
|
procedure leapyear(year) #: determine if year is leap
|
|
if (numeric(year) % 4 = 0 & year % 100 ~= 0) | (numeric(year) % 400 = 0) then return
|
|
end
|