[REBOL] [Fwd: Microsoft Patents Ones, Zeroes]
From: joel::neely::fedex::com at: 8-Feb-2002 7:40
Hi, all,
Apropos of recent open/closed discussions (oops! that's a binary
distinction!) I thought we could all use a laugh...
Chris Hanneken wrote:
> I think you'll appreciate this.
>
> http://www.theonion.com/onion3311/microsoftpatents.html
>
--
; sub REBOL {}; sub head ($) {@_[0]}
REBOL []
# despam: func [e] [replace replace/all e ":" "." "#" "@"]
; sub despam {my ($e) = @_; $e =~ tr/:#/.@/; return "\n$e"}
print head reverse despam "moc:xedef#yleen:leoj" ;
