11 lines
166 B
Text
11 lines
166 B
Text
|
;;; Define a procedure
|
||
|
|
define proc(x);
|
||
|
|
printf(x*x, '%p,');
|
||
|
|
enddefine;
|
||
|
|
|
||
|
|
;;; Create array
|
||
|
|
lvars ar = { 1 2 3 4 5};
|
||
|
|
|
||
|
|
;;; Apply procedure to array
|
||
|
|
appdata(ar, proc);
|