Maximum triangle path sum: Difference between revisions
Content added Content deleted
(Added Applesoft BASIC, Chipmunk Basic, GW-BASIC, MSX Basic, QBasic and PureBasic) |
(→{{header|Haskell}}: Added a ZipList variant) |
||
Line 1,854: | Line 1,854: | ||
. foldr1 |
. foldr1 |
||
((<*> tail) . zipWith3 (\x y z -> x + max y z)) |
((<*> tail) . zipWith3 (\x y z -> x + max y z)) |
||
--------------------------- TEST ------------------------- |
|||
main :: IO () |
|||
main = |
|||
print $ |
|||
maxPathSum |
|||
[ [55], |
|||
[94, 48], |
|||
[95, 30, 96], |
|||
[77, 71, 26, 67], |
|||
[97, 13, 76, 38, 45], |
|||
[07, 36, 79, 16, 37, 68], |
|||
[48, 07, 09, 18, 70, 26, 06], |
|||
[18, 72, 79, 46, 59, 79, 29, 90], |
|||
[20, 76, 87, 11, 32, 07, 07, 49, 18], |
|||
[27, 83, 58, 35, 71, 11, 25, 57, 29, 85], |
|||
[14, 64, 36, 96, 27, 11, 58, 56, 92, 18, 55], |
|||
[02, 90, 03, 60, 48, 49, 41, 46, 33, 36, 47, 23], |
|||
[92, 50, 48, 02, 36, 59, 42, 79, 72, 20, 82, 77, 42], |
|||
[56, 78, 38, 80, 39, 75, 02, 71, 66, 66, 01, 03, 55, 72], |
|||
[44, 25, 67, 84, 71, 67, 11, 61, 40, 57, 58, 89, 40, 56, 36], |
|||
[85, 32, 25, 85, 57, 48, 84, 35, 47, 62, 17, 01, 01, 99, 89, 52], |
|||
[06, 71, 28, 75, 94, 48, 37, 10, 23, 51, 06, 48, 53, 18, 74, 98, 15], |
|||
[27, 02, 92, 23, 08, 71, 76, 84, 15, 52, 92, 63, 81, 10, 44, 10, 69, 93] |
|||
]</syntaxhighlight> |
|||
{{Out}} |
|||
<pre>1320</pre> |
|||
ZipList variant: |
|||
<syntaxhighlight lang="haskell">import Control.Applicative (ZipList (ZipList, getZipList)) |
|||
---------------- MAXIMUM TRIANGLE PATH SUM --------------- |
|||
maxPathSum :: [[Int]] -> Int |
|||
maxPathSum triangleRows = |
|||
head |
|||
( foldr1 |
|||
( \xs -> |
|||
( \ys zs -> |
|||
getZipList |
|||
( ( ( (\x y z -> x + max y z) |
|||
<$> ZipList xs |
|||
) |
|||
<*> ZipList ys |
|||
) |
|||
<*> ZipList zs |
|||
) |
|||
) |
|||
<*> tail |
|||
) |
|||
triangleRows |
|||
) |
|||
--------------------------- TEST ------------------------- |
--------------------------- TEST ------------------------- |