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

Add tasks for all the new languages

Browse source
This commit is contained in:
Tina Müller 2016-12-05 23:44:36 +01:00
parent 9dc3c2bb62
commit bba7bfd280
13208 changed files with 134745 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

16
Task/Caesar-cipher/XLISP/caesar-cipher-1.xlisp Normal file
View file

@ -0,0 +1,16 @@
(defun caesar-encode (text key)
(defun encode (ascii-code)
(defun rotate (character alphabet)
(define code (+ character key))
(cond
((> code (+ alphabet 25)) (- code 26))
((< code alphabet) (+ code 26))
(t code)))
(cond
((and (>= ascii-code 65) (<= ascii-code 90)) (rotate ascii-code 65))
((and (>= ascii-code 97) (<= ascii-code 122)) (rotate ascii-code 97))
(t ascii-code)))
(list->string (mapcar integer->char (mapcar encode (mapcar char->integer (string->list text))))))
(defun caesar-decode (text key)
(caesar-encode text (- 26 key)))