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/Odd-word-problem/PicoLisp/odd-word-problem-1.l
+++ b/Task/Odd-word-problem/PicoLisp/odd-word-problem-1.l
@ -0,0 +1,14 @@
+(de oddWords ()
+   (use C
+      (loop
+         (until (sub? (prin (setq C (char))) "!,.:;?"))
+         (T (= "." C))
+         (setq C (char))
+         (T
+            (= "."
+               (prin
+                  (recur (C)
+                     (if (sub? C "!,.:;?")
+                        C
+                        (prog1 (recurse (char)) (prin C)) ) ) ) ) ) )
+   (prinl) ) )
--- a/Task/Odd-word-problem/PicoLisp/odd-word-problem-2.l
+++ b/Task/Odd-word-problem/PicoLisp/odd-word-problem-2.l
@ -0,0 +1,2 @@
+(in "txt1" (oddWords))
+(in "txt2" (oddWords))