" <-APL2-------------------- sam275.txt ---------------------------->
" <- Residue (|) p 226 --------------------------------------------->
10 | 17
10 | 8 10 -4 4j3
4j6 | 7j10
-10 7j10 .3 | 17 5 10
" <- Reverse (`O(circle stile) `R(circle bar)) pp226-229 ----------->
`O#L#a#'desserts'
`OL#a#'desserts'
`OL#b#(1 2) (3 4) (5 6)
`OL#c#3 5R'emit regaltide '
L#d#3 4RI12
(`Od)#3 4R'stopspinoder'
d
L#a#2 3 1R'in' 'out' 'up' 'right' 'left' 'down'
`O[2]a
`O[1]a
L#b#3 4RI12
(`O[1]b)#3 4R_I12
b
" <- Roll (?) p230 ------------------------------------------------->
Lrl#7
a#?5R10
&/aEI10 " should always produce 1
Lrl#9
a#?5R10
&/aEI10 " should always produce 1
Lrl
Lio#0
Lrl#16807
a#?6R10
&/aEI10 " should always produce 1
Lio#1
Lrl#16807
b#?6R10
&/1=b_a " should always produce 1
" <- Rotate (`O(circle stile)) p231 -------------------------------->
1`OL#a#1 2 3 4 5 6 7
2`OL#b#2 5R'angleaside'
-2`Oa
-1`OL#d#2 4R'acheinks'
-1 0 1`OL#h#3 3R'ateeattea'
1 2`OL#k#2 3R'cat' 'bear' 'pony' 'gnu' 'bird' 'fox'
Rk
`=k
L#s#2 3 5R'taressmartearthsetonlagershear'
Rs
L#q#2 3R4 0 -1 -2 5 1
q `O s
2`OL#w#'stripe'
(2`Ow)#'thermo'
w
" <- Rotate (`O(circle stile)) with axis [] pp234-237 -------------->
L#a#'betta' 'carp' 'eel' 'loach'
L#b#'bay' 'cedar' 'elm' 'larch'
L#c#3 4 1Ra,b,'boa' 'cavy' 'eland' 'lion'
1`O[1]c
1`O[2]c
L#u#3 1R'alfred' 'think' 'quick'
1`Ru
-1`Ru
w#'abcdefghijklmnopqrst'
w#w,(I20)
L#w#3 4 5Rw,'ABCDEFGHIJKLMNOPQRST'
Rw
L#v#3 5R0 1 -1 2 -2 -3 -1 1 3 0 1 0 2 -1 3
v`O[2]w
y#3 4RI12
(1 -1 2 -2`O[1]y)#3 4R'ABCDEFGHIJKL'
y
)off