Update all new Tasks

2015-02-20 09:02:09 -05:00 · 2015-02-20 09:02:09 -05:00 · 91df62d461
commit 91df62d461
parent 00a190b0a6
5697 changed files with 93386 additions and 804 deletions
--- a/Task/Natural-sorting/PicoLisp/natural-sorting-1.l
+++ b/Task/Natural-sorting/PicoLisp/natural-sorting-1.l
@ -0,0 +1,29 @@
+(de parseNatural (Str)
+   (clip
+      (make
+         (for (L (chop Str)  L)
+            (cond
+               ((sp? (car L))
+                  (link " ")
+                  (while (and L (sp? (car L)))
+                     (pop 'L) ) )
+               ((>= "9" (car L) "0")
+                  (link
+                     (format
+                        (make
+                           (loop
+                              (link (pop 'L))
+                              (NIL (>= "9" (car L) "0")) ) ) ) ) )
+               (T
+                  (let Word
+                     (pack
+                        (replace
+                           (make
+                              (loop
+                                 (link (lowc (pop 'L)))
+                                 (NIL L)
+                                 (T (sp? (car L)))
+                                 (T (>= "9" (car L) "0")) ) )
+                            "ß" "ss" "ſ" "s" "ʒ" "s" ) )
+                     (unless (member Word '(the it to))
+                        (link Word) ) ) ) ) ) ) ) )