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 (
(printf "Count of divisors of the integers from 1 to ~a are~n" limit)
|