11 lines
205 B
Text
11 lines
205 B
Text
!YS-v0
|
|
|
|
defn main(year=2024):
|
|
say: "$year is $when-not(
|
|
leap-year(year) 'not ')a
|
|
leap year."
|
|
|
|
defn leap-year(year):
|
|
(year % 4) == 0 &&:
|
|
(year % 100):pos? ||:
|
|
(year % 400).eq(0)
|