[REBOL] Re: pleac
From: krobillard:cox at: 11-Oct-2003 14:39
I followed a link off the Pleac site to the ROT13 implementation page
(http://www.miranda.org/~jkominek/rot13/). The REBOL version posted there is
unbelievably bad! It's so bad that I suspect it was sent in as a joke. I
sent the webmaster the version below. I just hope the site is still being
maintained. I'd hate for someone to think REBOL is so cumbersome.
foreach c input [
cap: c and 32
c: c and complement cap
if (c >= #"A") and (c <= #"Z") [
c: c - #"A" + 13 // 26 + #"A"
prin to-char c or cap