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/Move-to-front-algorithm/PicoLisp/move-to-front-algorithm-1.l
+++ b/Task/Move-to-front-algorithm/PicoLisp/move-to-front-algorithm-1.l
@ -0,0 +1,19 @@
+(de encode (Str)
+   (let Table (chop "abcdefghijklmnopqrstuvwxyz")
+      (mapcar
+         '((C)
+            (dec
+               (prog1
+                  (index C Table)
+                  (rot Table @) ) ) )
+         (chop Str) ) ) )
+
+(de decode (Lst)
+   (let Table (chop "abcdefghijklmnopqrstuvwxyz")
+      (pack
+         (mapcar
+            '((N)
+               (prog1
+                  (get Table (inc 'N))
+                  (rot Table N) ) )
+            Lst ) ) ) )