aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy dot Net 2024-04-19 16:56:29 -07:00
parent 0df55f9f24
commit aec8ed51b6
1045 changed files with 18889 additions and 2777 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Task/Leap-year/Clojure/leap-year-1.clj Normal file
View file

@ -0,0 +1,4 @@
(defn leap-year? [y]
(and (zero? (mod y 4))
(or (pos? (mod y 100))
(zero? (mod y 400)))))

6
Task/Leap-year/Clojure/leap-year-2.clj Normal file
View file

@ -0,0 +1,6 @@
(defn leap-year? [y]
(condp #(zero? (mod %2 %1)) y
400 true
100 false
4 true
false))

2
Task/Leap-year/Clojure/leap-year.clj
View file

@ -1,2 +0,0 @@
(defn leap-year? [y]
(and (zero? (mod y 4)) (or (pos? (mod y 100)) (zero? (mod y 400)))))