Krautspace/project-euler
Archived
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity
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/5/euler5.rkt

4 lines
98 B
Racket
Raw Normal View History

racket solution for problem 5
2017-05-09 19:55:27 +02:00
#lang racket
nicer imperative solution for problem 5 in racket
2017-06-13 16:57:18 +02:00
(do ((n 20 (+ n 20)))
((andmap zero? (map ((curry remainder) n) (range 1 21))) n))
Reference in a new issue Copy permalink