44 lines
1.2 KiB
Text
44 lines
1.2 KiB
Text
[ [] swap
|
|
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
|