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

[REBOL] Re: pleac

From: joel:neely:fedex at: 13-Oct-2003 6:57

Thanks, Andreas! Andreas Bolka wrote:
>>rot13: func [s [string!]] [ >> foreach char s [ >> prin any [ >> select/case "anabobcpcdqderefsfgtghuhivijwjkxklylmzm" char >> select/case "AZABOBCPCDQDEREFSFGTGHUHIVIJWJKXKLYLMZM" char >> char >> ] >> ] >> prin newline >>] > > sorry the nit-picking, but i guess the first #"Z" in the second > sequence should rather be an #"N" :) >
You're absolutely right. I didn't proofread (or test enough)! -jn-