Tau function: Difference between revisions

m
Fix brain-o
(Shorter version with for loop)
m (Fix brain-o)
Line 2,137:
 
(define (divisor-count n)
(length (filter (λ (x) (zero? (remainder n x))) (range 1 (+ 1add1 n)))))
 
(printf "Count of divisors of the integers from 1 to ~a are~n" limit)
11

edits