Data update

Task/Leap-year/YAMLScript/leap-year.ys

@@ -1,16 +1,11 @@
 !yamlscript/v0
 
-defn main(year):
-  say: "$year is $when-not(leap-year(year) 'not ')a leap year."
-
-# Either one works:
+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) > 0) || ((year % 100) == 0))
-
-defn leap-year(year):
-  and:
-    zero?: (year % 4)
-    or:
-      pos?: (year % 100)
-      zero?: (year % 400)
+  (year % 4) == 0 &&:
+    (year % 100):pos? ||:
+      (year % 400).eq(0)