Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[REBOL] Re: pleac/rot13

From: brett:codeconscious at: 13-Oct-2003 2:05

> 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.