Tokenize a string: Difference between revisions

;;; If comma

if str(i) = `,` then

cons(substring(j, i - j, str), ls) -> ls;

i + 1 -> j;

endif;

endfor;

if j <= length(str) then

cons(substring(j, length(str) - j + 1, str), ls) -> ls;