4 lines
121 B
Racket
4 lines
121 B
Racket
|
#lang racket
|
||
|
|
|
||
|
|
(- (* (apply + (range 1 101)) (apply + (range 1 101)))
|
||
|
|
(foldl + 0 (map (λ (x) (* x x)) (range 1 101))))
|