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

racket solutions for problems 6 7 and 8

Browse source
This commit is contained in:
Lowl3v3l 2017-05-09 20:57:45 +02:00
parent 14379b035f
commit 04a8190ccb
3 changed files with 57 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
6/euler6.rkt Normal file
View file

@ -0,0 +1,4 @@
#lang racket
(- (* (apply + (range 1 101)) (apply + (range 1 101)))
(foldl + 0 (map (λ (x) (* x x)) (range 1 101))))