[REBOL] Re: pleac
From: andreas:bolka:gmx at: 12-Oct-2003 14:54
Hi Joel,
Sunday, October 12, 2003, 2:36:46 PM, Joel wrote:
> How about a slightly more REBOL-intensive variation?
> 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" :)
--
Best regards,
Andreas
