Split a character string based on change of character: Difference between revisions

m
Delete unnecessary return
(Add Common Lisp implementation)
m (Delete unnecessary return)
Line 224:
do (vector-push-extend c buffer)
finally (push buffer result)
(return (format t "~{~A~^, ~}"(nreverse result))))))
 
(split "gHHH5YY++///\\")</lang>
68

edits