A leap year check in three instructions. In Racket:
(define (leap-year? x) (<= (bitwise-and (* x 1073750999) 3221352463) 126976))
See also this followup post by John Cook.
A leap year check in three instructions. In Racket:
(define (leap-year? x) (<= (bitwise-and (* x 1073750999) 3221352463) 126976))
See also this followup post by John Cook.