Sha256: bd646de64f2a5761206f98c109c6c0c6b18088613ccedae4442b8482cdc867fc
Contents?: true
Size: 410 Bytes
Versions: 396
Compression:
Stored size: 410 Bytes
Contents
(define-module (squares)
#:export (sum-of-squares
square-of-sums
difference)
#:autoload (srfi srfi-1) (reduce iota))
(define sum-of-squares
(lambda (n)
(reduce + 0 (map (lambda (i) (expt i 2)) (iota n 1)))))
(define square-of-sums
(lambda (n)
(expt (reduce + 0 (iota n 1)) 2)))
(define difference
(lambda (n)
(- (square-of-sums n)
(sum-of-squares n))))
Version data entries
396 entries across 396 versions & 1 rubygems