[REBOL] Re: pleac/rot13
From: brett:codeconscious at: 13-Oct-2003 2:05
> A honarable listing on the one that builds the smallest ROT13 usingbitsets 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.