Sha256: 5c4ccb6ef0450e55e58180c988747bcdd6ae7a151030c2edfdb30d490f33b59d
Contents?: true
Size: 399 Bytes
Versions: 120
Compression:
Stored size: 399 Bytes
Contents
module PerfectNumbers (classify, Classification(..)) where
data Classification = Deficient | Perfect | Abundant deriving (Eq, Show)
classify :: Int -> Maybe Classification
classify n | n < 1 = Nothing
| n < divisors = Just Abundant
| n > divisors = Just Deficient
| otherwise = Just Perfect
where divisors = sum $ filter ((0==) . mod n) [1..(div n 2)]
Version data entries
120 entries across 120 versions & 1 rubygems