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

solution for problem 9 in racket

Browse source
This commit is contained in:
Lowl3v3l 2017-05-09 21:53:02 +02:00
parent 04a8190ccb
commit 5f58ca8c87
1 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
9/euler9.rkt Normal file
View file

@ -0,0 +1,14 @@
#lang racket
(define squarenums (map (λ (x) (* x x)) (range 1 500)))
(define squaresums
(for/list ((i squarenums))
(for/list ((j (cdr squarenums)))
(list (+ i j) i j))))
(apply * (map sqrt
(first (filter
(λ (x) (equal? 1000 (+ (sqrt (first x)) (sqrt (second x)) (sqrt (third x)))))
(filter (λ (x) (member (first x) squarenums)) (apply append squaresums))))))