apl>" <------------------------- sam093.txt ---------------------------->


apl>" <--- Dyadic User Function, no return. ---------------------------->


apl>a # 1 40 R 'a user b                                '


apl>a # a,[1]  '''Sum of arguments, a + b, is '',Fa+b     '


apl>Lfx a

user

apl>1 user 2

Sum of arguments, a + b, is 3

apl>" <--- Dyadic User Function, with return, and local variable. ------>


apl>d # 47


apl>a # 1 40 R 'c # a user b;d                          '


apl>a # a,[1]  'd # a + b                               '


apl>a # a,[1]  '''Sum of arguments, a + b, is '',Fd       '


apl>a # a,[1]  '" Now set return value to sum squared.  '


apl>a # a,[1]  'c # d X d                               '


apl>Lfx a

user

apl>'Product of sum is ', F 1 user 2

Sum of arguments, a + b, is 3
Product of sum is 9

apl>d

47

apl>a

c # a user b;d                          
d # a + b                               
'Sum of arguments, a + b, is ',Fd       
" Now set return value to sum squared.  
c # d X d                               

apl>)off