Maximum triangle path sum: Difference between revisions
Content added Content deleted
m (→{{header|Quackery}}: tidy up) |
m (→{{header|Quackery}}: tidy up) |
||
Line 2,735: | Line 2,735: | ||
{{out}} |
{{out}} |
||
<pre> |
<pre>1320</pre> |
||
behead swap |
|||
witheach |
|||
[ tuck max |
|||
rot swap join |
|||
swap ] |
|||
drop ] is pairwise-max ( [ --> [ ) |
|||
[ [] unrot |
|||
witheach |
|||
[ dip behead + |
|||
rot swap join |
|||
swap ] |
|||
drop ] is add-items ( [ --> [ ) |
|||
[ behead dip |
|||
[ reverse |
|||
behead |
|||
pairwise-max |
|||
swap witheach |
|||
[ add-items |
|||
pairwise-max ] ] |
|||
add-items |
|||
0 peek ] is mtps ( [ --> n ) |
|||
' [ [ 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 ] ] |
|||
mtps echo</pre> |
|||
=={{header|Racket}}== |
=={{header|Racket}}== |