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

16
e0030/euler0030.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)))))