aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2023-10-02 18:11:16 -07:00
parent 796d366b97
commit 35bcdeebf8
504 changed files with 7045 additions and 610 deletions
Download patch file Download diff file Expand all files Collapse all files

12
Task/Caesar-cipher/Forth/caesar-cipher.fth
View file

@ -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