Data update
This commit is contained in:
parent
ed705008a8
commit
0df55f9f24
2196 changed files with 32999 additions and 3075 deletions
16
Task/Leap-year/YAMLScript/leap-year.ys
Normal file
16
Task/Leap-year/YAMLScript/leap-year.ys
Normal file
|
|
@ -0,0 +1,16 @@
|
|||
!yamlscript/v0
|
||||
|
||||
defn main(year):
|
||||
say: "$year is $when-not(leap-year(year) 'not ')a leap year."
|
||||
|
||||
# Either one works:
|
||||
|
||||
defn leap-year(year):
|
||||
((year % 4) == 0) && (((year % 100) > 0) || ((year % 100) == 0))
|
||||
|
||||
defn leap-year(year):
|
||||
and:
|
||||
zero?: (year % 4)
|
||||
or:
|
||||
pos?: (year % 100)
|
||||
zero?: (year % 400)
|
||||
Loading…
Add table
Add a link
Reference in a new issue