Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 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))