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.