2 lines
98 B
Text
2 lines
98 B
Text
(mod 0 ==) :divisor?
|
|
(((400 divisor?) (4 divisor?) (100 divisor? not)) cleave and or) :leap-year?
|