aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

2016 Update

Browse source
This commit is contained in:
Tina Müller 2016-12-05 22:15:40 +01:00
parent 948b86eafa
commit dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Task/Soundex/TXR/soundex-2.txr
View file

@ -11,13 +11,13 @@
(if (zerop (length s))
""
(let* ((su (upcase-str s))
(o (chr-str su 0)))
(o [su 0]))
(for ((i 1) (l (length su)) cp cg)
((< i l) (sub-str (cat-str ^(,o "000") nil) 0 4))
((< i l) [`@{o}000` 0 4])
((inc i) (set cp cg))
(set cg (get-code (chr-str su i)))
(if (and cg (null (eql cg cp)))
(set o (cat-str ^(,o ,cg) nil))))))))
(set cg (get-code [su i]))
(if (and cg (not (eql cg cp)))
(set o `@o@cg`)))))))
@(next :args)
@(repeat)
@arg