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

added some solutions in racket, deuglyfied 14

Browse source
This commit is contained in:
Lowl3v3l 2017-06-06 20:29:13 +02:00
parent 5f58ca8c87
commit a6770f6bca
4 changed files with 41 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

16
30/euler30.rkt Normal file
View file

@ -0,0 +1,16 @@
#lang racket
(define (findlimit it)
(if (> (expt 10 it) (* it (expt 9 5)))
it
(findlimit (+ it 1))))
(define (digits x)
(map (λ (x) (- (char->integer x) 48))
(string->list (number->string x))))
(apply +(filter (λ (x) (equal? x
(apply + (map (λ (x) (expt x 5)) (digits x)))))
(range 2 (expt 10 (findlimit 1)))))