> A honarable listing on the one that builds the smallest ROT13 using bitsets and parsing ;-)
Compact but obscure.
rot13: func [
string [string!] /local non-letter p
] [
non-letter: negate charset [#"a" - #"z" #"A" - #"Z"]
parse/all/case string: copy string [
any [
some non-letter |
p: skip (change p p/1 // 32 + 12 // 26 + 1 + and p/1 96)
]
]
string
]
Brett.
--
To unsubscribe from this list, just send an email to
[EMAIL PROTECTED] with unsubscribe as the subject.
