19 lines
1.1 KiB
Text
19 lines
1.1 KiB
Text
[ dup 1 119 within not if
|
|
[ $ "Unknown element." fail ]
|
|
[ table 0
|
|
[ 118 times
|
|
[ i^ 1+
|
|
' [ 1 - - - - - - - - - - - - - - - - 2
|
|
3 4 - - - - - - - - - - 5 6 7 8 9 10
|
|
11 12 - - - - - - - - - - 13 14 15 16 17 18
|
|
19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
|
|
37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
|
|
55 56 - 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86
|
|
87 88 - 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118
|
|
- - - 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71
|
|
- - - 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 ]
|
|
find 18 /mod 1+ dip 1+
|
|
join nested swap dip join ] ] now! ] ] is task ( n --> [ )
|
|
|
|
' [ 1 2 29 42 57 58 59 71 72 89 90 103 113 ]
|
|
witheach [ dup echo say " -> " task echo cr ]
|