Krautspace/project-euler
Archived
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

changed file and folder names to a sane scheme

Browse source
This commit is contained in:
ikselven 2017-07-12 00:08:34 +02:00
parent c19129e6dd
commit b725343392
34 changed files with 44 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
e0004/euler0004.rkt Normal file
View file

@ -0,0 +1,9 @@
#lang racket
(define (palindrome-number? n)
(equal? (string->list (number->string n))
(reverse (string->list (number->string n)))))
(apply max (filter palindrome-number?
(flatten (for/list ((i (range 100 1000)))
(for/list ((j (range 100 1000))) (* i j))))))