Contents

module Series (largestProduct) where

import Control.Monad    ((>=>))
import Data.Char        (digitToInt, isDigit)
import Data.List        (tails)
import Data.Maybe       (mapMaybe)
import Safe             (maximumMay)
import Safe.Exact       (takeExactMay)

largestProduct :: (Integral a, Num b, Ord b) => a -> String -> Maybe b
largestProduct n = traverse charToNum >=> maximumMay . products
  where
    products = mapMaybe (fmap product . takeExactMay (fromIntegral n)) . tails
    charToNum x
        | isDigit x = Just . fromIntegral . digitToInt $ x
        | otherwise = Nothing

Version data entries

334 entries across 334 versions & 1 rubygems

Version	Path
trackler-2.2.1.56	tracks/haskell/exercises/largest-series-product/examples/success-standard/src/Series.hs
trackler-2.2.1.55	tracks/haskell/exercises/largest-series-product/examples/success-standard/src/Series.hs
trackler-2.2.1.54	tracks/haskell/exercises/largest-series-product/examples/success-standard/src/Series.hs
trackler-2.2.1.53	tracks/haskell/exercises/largest-series-product/examples/success-standard/src/Series.hs
trackler-2.2.1.52	tracks/haskell/exercises/largest-series-product/examples/success-standard/src/Series.hs
trackler-2.2.1.51	tracks/haskell/exercises/largest-series-product/examples/success-standard/src/Series.hs
trackler-2.2.1.50	tracks/haskell/exercises/largest-series-product/examples/success-standard/src/Series.hs
trackler-2.2.1.49	tracks/haskell/exercises/largest-series-product/examples/success-standard/src/Series.hs
trackler-2.2.1.48	tracks/haskell/exercises/largest-series-product/examples/success-standard/src/Series.hs
trackler-2.2.1.47	tracks/haskell/exercises/largest-series-product/examples/success-standard/src/Series.hs
trackler-2.2.1.46	tracks/haskell/exercises/largest-series-product/examples/success-standard/src/Series.hs
trackler-2.2.1.45	tracks/haskell/exercises/largest-series-product/examples/success-standard/src/Series.hs
trackler-2.2.1.44	tracks/haskell/exercises/largest-series-product/examples/success-standard/src/Series.hs
trackler-2.2.1.43	tracks/haskell/exercises/largest-series-product/examples/success-standard/src/Series.hs
trackler-2.2.1.42	tracks/haskell/exercises/largest-series-product/examples/success-standard/src/Series.hs
trackler-2.2.1.41	tracks/haskell/exercises/largest-series-product/examples/success-standard/src/Series.hs
trackler-2.2.1.40	tracks/haskell/exercises/largest-series-product/examples/success-standard/src/Series.hs
trackler-2.2.1.39	tracks/haskell/exercises/largest-series-product/examples/success-standard/src/Series.hs
trackler-2.2.1.38	tracks/haskell/exercises/largest-series-product/examples/success-standard/src/Series.hs
trackler-2.2.1.37	tracks/haskell/exercises/largest-series-product/examples/success-standard/src/Series.hs