This repository has been archived on 2024-01-26. You can view files and clone it, but cannot push or open issues or pull requests.
project-euler/6/euler6.rkt
2017-05-09 20:57:45 +02:00

4 lines
No EOL
121 B
Racket

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