Rosetta Code

Soundex: Difference between revisions

Page Discussion

Soundex (view source)

Revision as of 01:09, 17 September 2011

4 bytes removed ,  12 years ago
→‎{{header|Common Lisp}}: Only need three 0 chars.
(→‎{{header|Common Lisp}}: Graceful behavior on empty string.)
(→‎{{header|Common Lisp}}: Only need three 0 chars.)
Line 222:
(push (get-code c) o)
finally
(return (subseq (coerce (nreverse `(#\0 #\0 #\0 #\0 ,@o)) 'string) 0 4))))))
 
</lang>
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/131797"