running apl.75 in unix v5a
look at a0.cold for time period: printf("a p l ? 1 1 _ version 2-E nov 75_1\n");
K this is a string K
# works as backspace
negative numbers are prefixed by @ e.g. @1 means negative 1
C comment
10 P 2 returns 100 (exponent)
3 = 2 returns 6 (multiply)
a ] 35 assign 35 to a
a [ 1 < b [ 2 < c [ 3
multiple assignment is possible, set a to 1, b to 2 and c to 3
a - 1 add 1 to a
a _ 1 subtract 1 to a
-/a sum all elements of a
a [ I10
a J.= a generate multiplication table
a [ 1 2 3
b [ 4 5 6
a + b returns .25 .40 .50 (division)
a [ 1 2 3
a;2' returns 2nd element of a
a;1,2' returns 1st and 2nd element of a
KappleK;4'
returns 4th character of string apple
3Q10 returns 3 random numbers from 1 to 10
a [ I10
3Y a take first 3 elements of vector a
M @5 returns absolute value of negative 5
a [ K gerbil power K
store string in a
O^HM a reverse vector a stores rewop libreg in a
O1 returns pi
K^H. 5 return 5 factorial or 120
K^H. 3.5 returns 11.6317284 (fractional factorials are permitted)
2 K^H. 5 choose 2 from 5 which returns 10
34 D 23 returns the minimum value
17 S 24 returns maximum value
T 1 not 1 returns 0
T 0 not 0 returns 1
3 & 2 3 is greater than 2 returns 1
2 P .5 return square root of 2
a [ 3 3 R I9 assign numbers 1 to 9 as a 3 by 3 array to a
1O1 returns sine at 1 in radians
2O1 returns cosine at 1 in radians
3O1 returns tan at 1 in radians
1 O O+4 returns sine of 45 degrees
x [ 3
K x = K < x returns x = 3
L [ a [ 3 assign 3 to a and print result
x [ L input value for x
a [ 2 2 R I4
L^H+ a return matrix inverse of a
a [ I4
a [ 2 2 R a reshape a into 2 2 matrix
KcatK E KhatK returns 0 1 1 (2nd and 3rd characters are the same)
c [ KcatdogK
KcatK E c is cat an element of c, returns 1 1 1
"digits 9 specifies that 9 digits are displayed
"drop test1 delete file test1
"edit testo edits file testo
"lib shows files in current directory
"off exits
"origin 1 sets origin to 1 and prints out previous setting
"read multi read function multi
"vars list variables
"width 80 set width to 80 characters
missing
-------
no way of listing functions e.g. "list fn
ibeams
------
B^HN 30 returns width
replacement characters
----------------------
< is ;
functions
---------
comb
multi 5 generate 5x5 multiplication table