19 lines
490 B
Plaintext
19 lines
490 B
Plaintext
;;; Declare and initialize variables
|
|
lvars str='Hello,How,Are,You,Today';
|
|
;;; Iterate over string
|
|
lvars ls = [], i, j = 1;
|
|
for i from 1 to length(str) do
|
|
;;; If comma
|
|
if str(i) = `,` then
|
|
;;; Prepend word (substring) to list
|
|
cons(substring(j, i - j, str), ls) -> ls;
|
|
i + 1 -> j;
|
|
endif;
|
|
endfor;
|
|
;;; Prepend final word (if needed)
|
|
if j <= length(str) then
|
|
cons(substring(j, length(str) - j + 1, str), ls) -> ls;
|
|
endif;
|
|
;;; Reverse the list
|
|
rev(ls) -> ls;
|