Data update

Task/Caesar-cipher/Forth/caesar-cipher.fth

@@ -1,19 +1,19 @@
-: ceasar ( c n -- c )
+: caesar ( c n -- c )
   over 32 or [char] a -
   dup 0 26 within if
     over + 25 > if 26 - then +
   else 2drop then ;
 
-: ceasar-string ( n str len -- )
-  over + swap do i c@ over ceasar i c! loop drop ;
+: caesar-string ( n str len -- )
+  over + swap do i c@ over caesar i c! loop drop ;
 
-: ceasar-inverse ( n -- 'n ) 26 swap - 26 mod ;
+: caesar-inverse ( n -- 'n ) 26 swap - 26 mod ;
 
 2variable test
 s" The five boxing wizards jump quickly!" test 2!
 
-3 test 2@ ceasar-string
+3 test 2@ caesar-string
 test 2@ cr type
 
-3 ceasar-inverse test 2@ ceasar-string
+3 caesar-inverse test 2@ caesar-string
 test 2@ cr type

Task/Caesar-cipher/Icon/caesar-cipher-2.icon

@@ -0,0 +1,12 @@
+(function caeser by of
+  (let alphabets (proj (map char-code) (range 65 91) (range 97 123))
+       shifted   (.. vec (map (rotate by) alphabets))
+       table     (kv-dict (flatten alphabets) (flatten shifted)))
+  (... str (map #(or (table %) %) of)))
+
+(let original "The Quick Brown Fox Jumps Over The Lazy Dog."
+     encrypted (caeser -1 original)
+     decrypted (caeser 1 encrypted))
+(str "Original:  " original "
+Encrypted: " encrypted "
+Decrypted: " decrypted)