10 lines
166 B
Text
10 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);
|