Hi, Norman,
Here's one way, but I don't know about smallness...
Rebolinth wrote:
>
> A honarable listing on the one that builds the smallest ROT13 using bitsets and
> parsing ;-)
>
r13: func [s [string!] /local left right neither r13char c] [
left: charset [#"a" - #"m" #"A" - #"M"]
right: charset [#"n" - #"z" #"N" - #"Z"]
neither: complement union left right
r13char: [
[ copy c left (c: +13 + to-char c)
| copy c right (c: -13 + to-char c)
| copy c neither]
(prin to-char c)
]
parse s [any r13char]
]
-jn-
--
To unsubscribe from this list, just send an email to
[EMAIL PROTECTED] with unsubscribe as the subject.
