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

problem 4 solution in racket

Browse source
This commit is contained in:
Lowl3v3l 2017-05-09 20:10:38 +02:00
parent 7ae79991f5
commit 14379b035f
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
4/euler4.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))))))