September 2017 Update

2017-09-23 10:01:46 +02:00 · 2017-09-23 10:01:46 +02:00 · ba8067c3b7
commit ba8067c3b7
parent bba7bfd280
14570 changed files with 153136 additions and 63871 deletions
--- a/Task/Soundex/PicoLisp/soundex-1.l
+++ b/Task/Soundex/PicoLisp/soundex-1.l
--- a/Task/Soundex/PicoLisp/soundex-2.l
+++ b/Task/Soundex/PicoLisp/soundex-2.l
@ -0,0 +1,27 @@
+(de soundex (Str)
+   (let (Str (chop Str) Last)
+      (pack
+         (pad
+            -4
+            (cons
+               (uppc (car Str))
+               (head
+                  3
+                  (filter
+                     gt0
+                     (cdr
+                        (mapcar
+                           '((C)
+                              (and
+                                 (setq C
+                                    (case (uppc C)
+                                       (`(chop "AEIOUY") 0)
+                                       (`(chop "BFPV") 1)
+                                       (`(chop "CGJKQSXZ") 2)
+                                       (("D" "T") 3)
+                                       ("L" 4)
+                                       (("M" "N") 5)
+                                       ("R" 6) ) )
+                                 (<> Last C)
+                                 (setq Last C) ) )
+                           Str ) ) ) ) ) ) ) ) )