Maximum triangle path sum: Difference between revisions
m
→{{header|Haskell}}
m (→JavaScript :: Functional: Tidied) |
|||
Line 1,468:
Or, inlining the data for quick testing, and using an applicative expression:
<lang haskell>
maxPathSum = head . foldr1 ((<*> tail) . zipWith3 (\x y z -> x + max y z))▼
maxPathSum :: [[Int]] -> Int
maxPathSum =
head
. foldr1
--------------------------- TEST -------------------------
main :: IO ()
main =
print $
maxPathSum
[ [55],
]</lang>
{{Out}}
<pre>1320</pre>
|