apl>" <-APL2-------------------- sam281.txt ---------------------------->
apl>" <- Bug testing --------------------------------------------------->
apl>Lfx 'z#oper a' 'z#!a'
oper
apl>Goper[0.1] 'entering oper'G
apl>oper -3
entering oper
z#!a
^ 36 - invalid argument to factorial.
The error occurred in function oper
oper[2]
apl>Llc
2
apl>oper -6
entering oper
z#!a
^ 36 - invalid argument to factorial.
The error occurred in function oper
oper[2]
apl>a#6
apl>$Llc_1
720
apl>a#3
apl>$Llc_1
6
apl>Lfx 'z#factr a' 'a#a_1' 'z#!a'
factr
apl>factr -3
z#!a
^ 36 - invalid argument to factorial.
The error occurred in function factr
factr[2]
apl>Llc
2
apl>)si
factr[2] *
apl>Gfactr[H2]G
apl>$Llc
factr -3
^ 98 - no returned value from user function when exected.
apl>Llc " Line counter s/b empty now.
.
apl>" <- Fix (Lfx) pp 292-296 ------------------------------------------>
apl>" The "r" in "Lfx r" m/b simple character matrix, or a vector whose items
apl>" are character vectors or character scalars.
apl>Lfx 'z#fmt r' 'z#Fr'
fmt
apl>fmt 'abcdef'
abcdef
apl>Lfx 'z#fn r' 'z#1+rX2' Lav[1]
^ Unknown character.
Lfx 'z#fn r' 'z#1+rX2' Lav[1]
^ 58 - syntax error.
apl>" <- Index Origin (Lio) p 297 -------------------------------------->
apl>Lio#1
apl>r#34 18 24
apl>r[1]
34
apl>Lio#0
apl>r[1]
18
apl>r[0]
34
apl>Lio#1
apl>Ar
2 3 1
apl>Lio#0
apl>Ar
1 2 0
apl>Lio#1
apl>" <- Canonical Reprsentation (Lcr) --------------------------------->
apl>Lfx L#c#'z#left add right' 'z#left+right'
z#left add right z#left+right
add
apl>Lcr 'add'
z#left add right
z#left+right
apl>1 add 2
3
apl>" <- Line Counter (Llc) pp 300-301 --------------------------------->
apl>Lfx 'g' '''g line 1''' '''g: '',Llc' 'h'
g
apl>c # 'h' '''h line 1''' '''h line 2''' '''h line 3''' '''h: '',Llc'
apl>Lfx c, 'j' '''h line 6'''
h
apl>c # 'j' '''j line 1''' '''j line 2''' '''j line 3''' '''j line 4'''
apl>Lfx c, '''j line 5 ''' '''j: '',Llc' '''j line 7'''
j
apl>Lcr 'g'
g
'g line 1'
'g: ',Llc
h
apl>Lcr 'h'
h
'h line 1'
'h line 2'
'h line 3'
'h: ',Llc
j
'h line 6'
apl>Lcr 'j'
j
'j line 1'
'j line 2'
'j line 3'
'j line 4'
'j line 5 '
'j: ',Llc
'j line 7'
apl>g
g line 1
g: 2
h line 1
h line 2
h line 3
h: 4 3
j line 1
j line 2
j line 3
j line 4
j line 5
j: 6 5 3
j line 7
h line 6
apl>Gj[6.1] JJJJJJG
apl>Lfx 'z#factr a' 'z#!a'
factr
apl>factr -3
z#!a
^ 36 - invalid argument to factorial.
The error occurred in function factr
factr[1]
apl>Llc
1
apl>factr -6
z#!a
^ 36 - invalid argument to factorial.
The error occurred in function factr
factr[1]
apl>Llc
1 1
apl>g
g line 1
g: 2 1 1
h line 1
h line 2
h line 3
h: 4 3 1 1
j line 1
j line 2
j line 3
j line 4
j line 5
j: 6 5 3 1 1
JJJJJJ
^ 70 - missing right argument during execute.
The error occurred in function j
j[7]
apl>Llc
7 5 3 1 1
apl>)si
j[7] *
h[5]
g[3]
factr[1] *
factr[1] *
apl>Gj[H7]G
apl>$Llc
h line 6
apl>)off
factr -6
^ 998 - end of apl processing.
factr -3
^ 998 - end of apl processing.
