[REBOL] Re: RRGib - Random Rebol Gibberish
From: gjones05:mail:orion at: 31-May-2001 6:24
Hi, Anton,
Like Brett, I'm sorry to see that my functionality to
the list is being supplanted by code!
I believe that a few more features are needed in order
to perfect the program in order to allow maximum list
un-productivity! The program output suffers from poor
formatting, but, hey, this ain't Python!
;;;;;;;;;;;;;;;;;;;;;;
random-system-word: does [random/only first system/words]
new-random-word: does [
new-word: make string! 20
loop add random 2 1 [
append new-word copy join random-system-word "-"
]
append remove back tail new-word ": "
; return new-word
]
new-random-line: does [
new-line: make string! 30
loop add random 4 2 [
append new-line copy join random-system-word " "
]
return new-line
]
new-random-program: func [len] [
new-program: make string! 300
loop len [
append new-program do random/only [new-random-word new-random-line newline]
]
]
;example usage
;print new-random-program 100
random-help-request: does [
random/only [
{Hi, List,^/I've been struggling with this
program for hours, and I can't figure out where I'm going wrong.
All feedback is welcome.^/^/}
{Hi, List,^/Here is a nifty program that is bound to be a killer app. Check
it out, but copyrights do apply! There are still one or two bugs to work out.^/^/}
{Hi, List,^/Should I submit this to UHURU/pro, or has it not been
sufficiently refactored?^/^/}
]
]
;example submission minus the 'send email command ;-)
print [random-help-request new-random-program 100]
;;;;;;;;;;;;;;;;;;;;;;
Now, we just need a program that will automatically respond to the list and we won't
even need to attend to the list at all!!!
--Scott Jones
