Caesar cipher: Difference between revisions

m
Fix misspellings of Caesar.
(→‎Insitux: implementation)
m (Fix misspellings of Caesar.)
Line 3,197:
</syntaxhighlight>
=={{header|Forth}}==
<syntaxhighlight lang="forth">: ceasarcaesar ( c n -- c )
over 32 or [char] a -
dup 0 26 within if
Line 3,203:
else 2drop then ;
 
: ceasarcaesar-string ( n str len -- )
over + swap do i c@ over ceasarcaesar i c! loop drop ;
: ceasarcaesar-inverse ( n -- 'n ) 26 swap - 26 mod ;
 
2variable test
s" The five boxing wizards jump quickly!" test 2!
 
3 test 2@ ceasarcaesar-string
test 2@ cr type
 
3 ceasarcaesar-inverse test 2@ ceasarcaesar-string
test 2@ cr type</syntaxhighlight>
 
=={{header|Fortran}}==
{{works with|Fortan 90 and later}}
14

edits