Sequence: smallest number greater than previous term with exactly n divisors: Difference between revisions

Content added Content deleted
Line 306: Line 306:
countDivisors n = foldr f 0 [1..floor (sqrt $ realToFrac n)]
countDivisors n = foldr f 0 [1..floor (sqrt $ realToFrac n)]
where
where
f x r | n `mod` x == 0 = let y = n `div` x in if x == y then r+1 else r+2
f x r | n `mod` x == 0 = if n `div` x == x then r+1 else r+2
| otherwise = r
| otherwise = r
go t ((n,c):xs) | c == t = (t,n):go (succ t) xs
go t ((n,c):xs) | c == t = (t,n):go (succ t) xs
Retrieved from "https://rosettacode.org/wiki/Sequence:_smallest_number_greater_than_previous_term_with_exactly_n_divisors"