Sha256: 663da6b4460471afab6aa60dd69d6c92bc1a51a3f4a27a6e057608e1d6afafbd
Contents?: true
Size: 270 Bytes
Versions: 396
Compression:
Stored size: 270 Bytes
Contents
module Grains (square, total) where
import Data.Maybe (fromJust)
square :: Integer -> Maybe Integer
square x
| x < 1 = Nothing
| x > 64 = Nothing
| otherwise = Just . (2^) . pred $ x
total :: Integer
total = sum . map (fromJust . square) $ [1..64]
Version data entries
396 entries across 396 versions & 1 rubygems