new files

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

@@ -0,0 +1,19 @@
+: ceasar ( 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 ;
+
+: ceasar-inverse ( n -- 'n ) 26 swap - 26 mod ;
+
+2variable test
+s" The five boxing wizards jump quickly!" test 2!
+
+3 test 2@ ceasar-string
+test 2@ cr type
+
+3 ceasar-inverse test 2@ ceasar-string
+test 2@ cr type