This repository has been archived on 2024-01-26. You can view files and clone it, but cannot push or open issues or pull requests.
project-euler/e0005/euler0005.rkt

4 lines
No EOL
98 B
Racket

#lang racket
(do ((n 20 (+ n 20)))
((andmap zero? (map ((curry remainder) n) (range 1 21))) n))