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

Version	Path
trackler-2.0.0.5	tracks/haskell/exercises/grains/examples/success-standard/src/Grains.hs
trackler-2.0.0.4	tracks/haskell/exercises/grains/examples/success-standard/src/Grains.hs
trackler-2.0.0.3	tracks/haskell/exercises/grains/examples/success-standard/src/Grains.hs
trackler-2.0.0.2	tracks/haskell/exercises/grains/src/Example.hs
trackler-2.0.0.1	tracks/haskell/exercises/grains/src/Example.hs
trackler-2.0.0.0	tracks/haskell/exercises/grains/src/Example.hs
trackler-1.0.4.1	tracks/haskell/exercises/grains/src/Example.hs
trackler-1.0.4.0	tracks/haskell/exercises/grains/src/Example.hs
trackler-1.0.3.0	tracks/haskell/exercises/grains/src/Example.hs
trackler-1.0.2.1	tracks/haskell/exercises/grains/src/Example.hs
trackler-1.0.2.0	tracks/haskell/exercises/grains/src/Example.hs
trackler-1.0.1.2	tracks/haskell/exercises/grains/src/Example.hs
trackler-1.0.1.1	tracks/haskell/exercises/grains/src/Example.hs
trackler-1.0.1.0	tracks/haskell/exercises/grains/src/Example.hs
trackler-1.0.0.1	tracks/haskell/exercises/grains/src/Example.hs
trackler-1.0.0	tracks/haskell/exercises/grains/src/Example.hs