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
