aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

A-M baby

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 21:29:02 -07:00
parent 764da6cbbb
commit db842d013d
19005 changed files with 197040 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Task/Greatest-subsequential-sum/Haskell/greatest-subsequential-sum-1.hs Normal file
View file

@ -0,0 +1,10 @@
import Data.List (inits, tails, maximumBy)
import Data.Ord (comparing)
subseqs :: [a] -> [[a]]
subseqs = concatMap inits . tails
maxsubseq :: (Ord a, Num a) => [a] -> [a]
maxsubseq = maximumBy (comparing sum) . subseqs
main = print $ maxsubseq [-1, -2, 3, 5, 6, -2, -1, 4, -4, 2, -1]

7
Task/Greatest-subsequential-sum/Haskell/greatest-subsequential-sum-2.hs Normal file
View file

@ -0,0 +1,7 @@
maxsubseq = mss_ (0,[]) (0,[]) where
mss_ _ x [] = x
mss_ here sofar (x:xs) = mss a b xs where
a = max (0,[]) (fst here + x, snd here ++ [x])
b = max sofar a
main = print $ maxsubseq [-1, -2, 3, 5, 6, -2, -1, 4, -4, 2, -1]