Anonymous user
Maximum triangle path sum: Difference between revisions
+ Haskell solution
(+ D entry) |
(+ Haskell solution) |
||
Line 45:
.writeln;
}</lang>
{{out}}
<pre>1320</pre>
=={{header|Haskell}}==
This solution assumes the triangle is in a "triangle.txt" file.
<lang haskell>parse = map (map read . words) . lines
f x y z = x + max y z
g xs ys = zipWith3 f xs ys $ tail ys
solve = head . foldr1 g
main = readFile "triangle.txt" >>= print . solve . parse</lang>
{{out}}
<pre>1320</pre>
|