2016 Update

2016-12-05 22:15:40 +01:00 · 2016-12-05 22:15:40 +01:00 · dcf5d15da3
commit dcf5d15da3
parent 948b86eafa
7965 changed files with 139854 additions and 31002 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 ) ) ) )