Maximum triangle path sum: Difference between revisions
→{{header|J}}: Add J
(Added Ada version) |
(→{{header|J}}: Add J) |
||
Line 179:
{{out}}
<pre>1320</pre>
=={{header|J}}==
<lang j>padTri=: 0 ". [: ];._2 ] NB. parse triangle and pad with zeros
maxSum=: [: {. (+ (0 ,~ 2 >./\ ]))/ NB. find max triangle path sum</lang>
'''Example Usage'''
<lang j> maxSum padTri freads 'triangle.txt'
1320</lang>
=={{header|Perl 6}}==
| |||