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

Just another update

Browse source
This commit is contained in:
Ingy döt Net 2015-02-20 00:35:01 -05:00
parent a25938f123
commit 00a190b0a6
6591 changed files with 94363 additions and 23227 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Task/Caesar-cipher/Elena/caesar-cipher.elena
View file

@ -1,7 +1,7 @@
#define system.
#define system'routines.
#define extensions.
#define extensions'math.
#define system'math.
// --- Constants ---
@ -29,13 +29,13 @@
(-1 < anIndex)
? [
theExtendee eval:(Letters @ (modulus:(theKey+anIndex):26))
theExtendee eval:(Letters @ ((theKey+anIndex) int mod:26))
]
! [
anIndex := BigLetters indexOf &index:0 &char:aChar.
(-1 < anIndex)
? [
theExtendee eval:(BigLetters @ (modulus:(theKey+anIndex):26))
theExtendee eval:(BigLetters @ ((theKey+anIndex) int mod:26))
]
! [
theExtendee eval:aChar.