RosettaCodeData/Task/Tokenize-a-string/Pop11/tokenize-a-string-7.pop11

10 lines
238 B
Plaintext

;;; Put list elements and lenght on the stack
destlist(ls);
;;; Build a vector from them
lvars ar = consvector();
;;; Display in a loop, putting trailing period
for i from 1 to length(ar) do
printf(ar(i), '%s.');
endfor;
printf('\n');