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

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Task/Rot-13/Scheme/rot-13-1.ss Normal file
View file

@ -0,0 +1,14 @@
(define (rot13 str)
(define (rot13-char c)
(integer->char (+ (char->integer c)
(cond ((and (char>=? c #\a) (char<? c #\n))
13)
((and (char>=? c #\A) (char<? c #\N))
13)
((and (char>=? c #\n) (char<=? c #\z))
-13)
((and (char>=? c #\N) (char<=? c #\Z))
-13)
(else
0)))))
(list->string (map rot13-char (string->list str))))

47
Task/Rot-13/Scheme/rot-13-2.ss Normal file
View file

@ -0,0 +1,47 @@
;; Works with: chibi, csi, gosh, gsi, guile
(cond-expand
(r7rs (import (scheme base)
(scheme write)))
(gambit)
(chicken (import (r7rs))))
(define char-rot13
(let* ((A (char->integer #\A))
(N (char->integer #\N))
(Z (char->integer #\Z))
(a (char->integer #\a))
(n (char->integer #\n))
(z (char->integer #\z))
(inc 13)
(dec (- inc))
(rot (lambda (c direction)
(integer->char (+ c direction)))))
(lambda (ch)
(let ((c (char->integer ch)))
(if (>= c A)
(if (< c N)
(rot c inc)
(if (<= c Z)
(rot c dec)
(if (>= c a)
(if (< c n)
(rot c inc)
(if (<= c z)
(rot c dec)
ch))))))))))
(define (string-rot13 str)
(string-map char-rot13 str))
(if (not (and (string=? (string-rot13 "abcdefghijklmnopqrstuvwxyz")
"nopqrstuvwxyzabcdefghijklm")
(string=? (string-rot13 "ABCDEFGHIJKLMNOPQRSTUVWXYZ")
"NOPQRSTUVWXYZABCDEFGHIJKLM")))
(error "Test failed."))
(let loop ((line (read-line)))
(if (string? line)
(begin
(display (string-rot13 line))
(newline)
(loop (read-line)))))