Maximum triangle path sum: Difference between revisions

m
(Added Quackery.)
Line 2,694:
rot swap join
swap ]
drop ] is pairwise-max ( [ --> [ )
 
[ [] unrot
Line 2,701:
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 ]
1,496

edits