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/Caesar-cipher/Quackery/caesar-cipher.quackery
+++ b/Task/Caesar-cipher/Quackery/caesar-cipher.quackery
@ -0,0 +1,23 @@
+  [ dup upper != ]              is lower? ( c --> b )
+
+  [ dup lower != ]              is upper? ( c --> b )
+
+  [ swap $ "" unrot witheach
+      [ dup lower? iff
+          [ over +
+            dup lower? not if
+              [ 26 - ] ]
+        else
+          [ dup upper? if
+            [ over +
+              dup upper? not if
+                [ 26 - ] ] ]
+        rot swap join swap ]
+    drop ]                      is caesar ( $ --> $ )
+
+  [ 26 swap - ]                 is decode ( n --> n )
+
+  $ "Fere libenter homines id quod volunt credunt."
+  dup              echo$ cr
+  23 caesar dup    echo$ cr
+  23 decode caesar echo$ cr