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

[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