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)))) |