Anonymous user
Leap year: Difference between revisions
Forth
(Adding MUMPS example) |
(Forth) |
||
Line 72:
<lang clojure>(defn leap-year? [y]
(and (zero? (mod y 4)) (or (pos? (mod y 100)) (zero? (mod y 400)))))</lang>
=={{header|Forth}}==
<lang forth>: leap-year? ( y -- ? )
dup 400 mod 0= if drop true exit then
dup 100 mod 0= if drop false exit then
4 mod 0= ;</lang>
=={{header|Haskell}}==
| |||