apl>" <-APL2-------------------- sam275.txt ----------------------------> apl>" <- Residue (|) p 226 ---------------------------------------------> apl>10 | 17 7 apl>10 | 8 10 -4 4j3 8 0 6 4j3 apl>4j6 | 7j10 3j4 apl>-10 7j10 .3 | 17 5 10 -3 -5j7 .1 apl>" <- Reverse (`O(circle stile) `R(circle bar)) pp226-229 -----------> apl>`O#L#a#'desserts' desserts `O#L#a#'desserts' ^ 66 - left argument to assignment must be a variable name. apl>`OL#a#'desserts' desserts stressed apl>`OL#b#(1 2) (3 4) (5 6) 1 2 3 4 5 6 5 6 3 4 1 2 apl>`OL#c#3 5R'emit regaltide ' emit regal tide time lager edit apl>L#d#3 4RI12 1 2 3 4 5 6 7 8 9 10 11 12 apl>(`Od)#3 4R'stopspinoder' apl>d pots nips redo apl>L#a#2 3 1R'in' 'out' 'up' 'right' 'left' 'down' in out up right left down apl>`O[2]a up out in down left right apl>`O[1]a right left down in out up apl>L#b#3 4RI12 1 2 3 4 5 6 7 8 9 10 11 12 apl>(`O[1]b)#3 4R_I12 apl>b -9 -10 -11 -12 -5 -6 -7 -8 -1 -2 -3 -4 apl>" <- Roll (?) p230 -------------------------------------------------> apl>Lrl#7 apl>a#?5R10 apl>&/aEI10 " should always produce 1 1 apl>Lrl#9 apl>a#?5R10 apl>&/aEI10 " should always produce 1 1 apl>Lrl 9 apl>Lio#0 apl>Lrl#16807 apl>a#?6R10 apl>&/aEI10 " should always produce 1 1 apl>Lio#1 apl>Lrl#16807 apl>b#?6R10 apl>&/1=b_a " should always produce 1 1 apl>" <- Rotate (`O(circle stile)) p231 --------------------------------> apl>1`OL#a#1 2 3 4 5 6 7 1 2 3 4 5 6 7 2 3 4 5 6 7 1 apl>2`OL#b#2 5R'angleaside' angle aside glean ideas apl>-2`Oa 6 7 1 2 3 4 5 apl>-1`OL#d#2 4R'acheinks' ache inks each sink apl>-1 0 1`OL#h#3 3R'ateeattea' ate eat tea eat eat eat apl>1 2`OL#k#2 3R'cat' 'bear' 'pony' 'gnu' 'bird' 'fox' cat bear pony gnu bird fox bear pony cat fox gnu bird apl>Rk 2 3 apl>`=k 2 apl>L#s#2 3 5R'taressmartearthsetonlagershear' tares smart earth seton lager shear apl>Rs 2 3 5 apl>L#q#2 3R4 0 -1 -2 5 1 4 0 -1 -2 5 1 apl>q `O s stare smart heart onset lager hears apl>2`OL#w#'stripe' stripe ripest apl>(2`Ow)#'thermo' apl>w mother apl>" <- Rotate (`O(circle stile)) with axis [] pp234-237 --------------> apl>L#a#'betta' 'carp' 'eel' 'loach' betta carp eel loach apl>L#b#'bay' 'cedar' 'elm' 'larch' bay cedar elm larch apl>L#c#3 4 1Ra,b,'boa' 'cavy' 'eland' 'lion' betta carp eel loach bay cedar elm larch boa cavy eland lion apl>1`O[1]c bay cedar elm larch boa cavy eland lion betta carp eel loach apl>1`O[2]c carp eel loach betta cedar elm larch bay cavy eland lion boa apl>L#u#3 1R'alfred' 'think' 'quick' alfred think quick apl>1`Ru think quick alfred apl>-1`Ru quick alfred think apl>w#'abcdefghijklmnopqrst' apl>w#w,(I20) apl>L#w#3 4 5Rw,'ABCDEFGHIJKLMNOPQRST' a b c d e f g h i j k l m n o p q r s t 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 A B C D E F G H I J K L M N O P Q R S T apl>Rw 3 4 5 apl>L#v#3 5R0 1 -1 2 -2 -3 -1 1 3 0 1 0 2 -1 3 0 1 -1 2 -2 -3 -1 1 3 0 1 0 2 -1 3 apl>v`O[2]w a g r n o k b m d j p l c i j p b m i j 6 17 8 19 5 11 7 18 4 5 11 17 8 4 5 1 12 3 14 20 F B M S T F L C S T P G R I O A Q H N O apl>y#3 4RI12 apl>(1 -1 2 -2`O[1]y)#3 4R'ABCDEFGHIJKL' apl>y IFGL AJKD EBCH apl>)off