AltME groups: search
Help · search scripts · search articles · search mailing listresults summary
world | hits |
r4wp | 917 |
r3wp | 9345 |
total: | 10262 |
results window for this page: [start: 1601 end: 1700]
world-name: r3wp
Group: RAMBO ... The REBOL bug and enhancement database [web-public] | ||
Gabriele: 5-Jan-2005 | if you open console://, can you get anything out of it? | |
Volker: 8-Jan-2005 | apt-get install termcap-compat | |
Anton: 21-Jan-2005 | I get the same as PhilB: "**Crash : expand series overflow" rvdraw57e, WinXP | |
Anton: 11-Feb-2005 | I think so. Bad timezone found by QUERY (as used by INFO?). Replacement is to use GET-MODES file 'modification date. | |
Anton: 11-Feb-2005 | oops, that should be GET-MODES file 'modification-date, but Sunanda's answer is more relevant.. | |
Carl: 18-Feb-2005 | Yes... that is the main issue: since a path can be represented as a block, how does the trailing slash get indicated in a block? | |
Romano: 22-Feb-2005 | Anton, that are the results of standard split-path that i replicated.The only difference is in %"" which gives an error on split-path and that result on split-path-3. I have some problems on how path are splitted by split-path in some cases, but to change them is a problematic thing, because all handlers knows how split-path works and get their decisions on it. I am not sure that the better result is [%./ none] in the %"" example, because the starting path (%"") is a file of name "" like in the %"a" example, where the starting path is a file of name "a". In the other 2 examples (%/ %.) the starting path is a DIR not a file (and the file is "exactly" none). | |
Henrik: 14-Mar-2005 | who's car will I have to wash to get a RAMBO account? :-) | |
Anton: 18-Mar-2005 | Isn't that kind of inconsistant ? You have a choice of 0 or 2+. How do you get just 1 leading space ? Furthermore: | |
Gabriele: 21-Mar-2005 | indeed, if you preceed the lines after the first view by semicolons (;) you get the same problem | |
Ladislav: 6-Apr-2005 | Gabriele: this is the response I get: Chunk no 1 before insert read handler execution interrupted! response Chunk no 2 before insert after insert after insert | |
Tomc: 6-Apr-2005 | Gabriele: Carl thought it was a possibility, and asked me to add the request ro rambo so it did not get lost. | |
Group: Script Library ... REBOL.org: Script library and Mailing list archive [web-public] | ||
Geomol: 21-Aug-2009 | It doesn't seem, functions with get-word refinements are used very much. | |
Geomol: 21-Aug-2009 | Not refinements, get-word arguments. | |
Sunanda: 13-Dec-2009 | It'd make some sense to add an [R2] tag to all existing scripts (we can do that automatically) and/or [R3//untested] tag. But let's get some [R3] scripts first, so we have a_need_ to make the distinction. A couple of my scripts should be tagged as [R3] -- I just never got a round tuit: http://www.rebol.org/art-display-article.r?article=j26z | |
NickA: 23-Jan-2010 | It would be great for us to have a little "rent-a-reboler" site, at which anyone wanting REBOL features like this (or even scripts - any sort of development work), could post a job and developers could reply with bids. That could give RT motivation to add features that only certain users are interested in initially, and I bet we'd see lots of features get added to REBOL3 as extensions. I'd love to support REBOL by paying for little features that I need/want. Animated GIFs are not a priority for me, but I can think of at least 10 low level functions that I'd buy. | |
Brock: 23-Jan-2010 | ... conversely if the pieces are small enough, and can be done by one coder in a relatively short amount of time, many small pieces would get completed. You know the saying, "pennies make dollars". | |
Anton: 22-Jul-2010 | Mmm... also it seems wrong to try to fix another program's error. The original program with the error should be fixed, not all the programs which might get its erroneous output. | |
Sunanda: 22-Jul-2010 | True.....But the page you get to does have a "download script" link. That is usable by REBOL. | |
Sunanda: 22-Jul-2010 | Yes, a simple request, but a tough problem to get right in all practical cases. | |
Anton: 22-Jul-2010 | Would a rebol function named "get-rebol.org-script" in your user.r (or built-in to rebol) help alleviate the problem at all? | |
Anton: 22-Jul-2010 | It would just convert a "view-script.r" link into a "download-a-script.r" link, so that users take, for example, the money.r link and type this into their console: do get-rebol.org-script http://www.rebol.org/view-script.r?script=money.r | |
Andreas: 20-Oct-2010 | I get it for all scripts, AFAICT. | |
Andreas: 20-Oct-2010 | Okay, I get a script library header inserted, which uses CR LF to terminate lines. | |
Sunanda: 20-Oct-2010 | We've had all sorts of fun trying to get the line endings to work for everyone. There's a magic, undocumented URL parameter you can add to the URL that might make a difference on your platform. It is MODE=???? I'll just cut'n'paste the comment from the download-a-script source... it may help explain it: ;; mode=windows -- the default. Makes LF or CR into CRLF ;; mode=binary -- sends file as binary ;; mode=carl -- saved and reloads file first as Carl thought ;; this would fix the problem ;; mode=text -- the old default. Works in most cases. Just ;; prints the file (so sends whatever line ;; terminations work on the platform the library ;; is running on. | |
Sunanda: 20-Oct-2010 | Just lookin at the source......We do edit line ending to try to get them consistent. Perhaps consistent, but wrong! | |
shadwolf: 16-Jan-2011 | I just submitted to rebol.org a 4 line script and it took me 1 hour is it normal to spend 1 hours on the header formating for just a copy past ? Can't we in 2011 get ride of it and have a form that you fill and generate the header for your script ? This is the numberone pain in the ass thing that makes me vomit each time i use rebol.org .... | |
shadwolf: 16-Jan-2011 | I just submitted to rebol.org a 4 line script and it took me 1 hour is it normal to spend 1 hours on the header formating for just a copy past ? Can't we in 2011 get ride of it and have a form that you fill and generate the header for your script ? This is the numberone pain in the ass thing that makes me vomit each time i use rebol.org .... | |
shadwolf: 16-Jan-2011 | ok then second point localting the contribute with your script button ..... THAT'S THE MAIN ISSUE HERE !!! HOW CAN U HIDE IT !!! IF IT TAKES MORE THAN 3 SECOND ONCE LOGED IN TO GET TO THAT POINT U FAILLED IS THAT CLEAR ????!!! | |
shadwolf: 16-Jan-2011 | you should inspire your self from android market or app store ... seriously ... Make rebol.org goal like this Easy to get, Easy to Set. Only essential information provided ... | |
shadwolf: 16-Jan-2011 | in my "member's loundge golf club for only snobish people that are snobe enough to still code in rebol" ido you find normal to get the new about rebol community at the end of this page ??? I'm registered since 7 years in rebol.org and that's just now I notice it .. | |
shadwolf: 16-Jan-2011 | that's the problem when you pile up things one on top of another without never get a second thought of ok what do i want people to absolutle see when they log in ? | |
shadwolf: 16-Jan-2011 | What is the main information I want people to get their eye ball catch on ? this is what lead most of the commercial website now in day ... Just apply that pleaaaaaaaaaaaaaaaaase !!!! | |
shadwolf: 16-Jan-2011 | when i enter on rebol.org it's like i enter in a cementary or a museum !! it's not a place that's engaging people to get there often ! | |
Maxim: 16-Jan-2011 | like just about everything going on with the REBOL language and its community... right now... if you want to participate and actually DO something, (I mean doing something else than bitch and moan), people will be happy for your help, even Sunanda at rebol.org. I used to be part of rebol.org team and it took me a single mail from me to get included in the team. it might take a bit more from you now that you've just insulted its main (sole?) author pretty harshly. | |
Group: !Readmail ... a Rebol mail client [web-public] | ||
[unknown: 9]: 30-Jun-2007 | Phil if you need an IMAP account on a server to test with, we can give you access to the one we set up to test Qtask's new Webmail interface. The account contains lots of examples like large attachments, deep folders. As we learn more, we fill it with ore examples. Just shoot me a private message, and I will get you name and password. | |
Nicolas: 2-Mar-2010 | But I can't get any further | |
Group: SDK ... [web-public] | ||
Gabriele: 1-Nov-2005 | henrik, if you only get normal /View, there is no point in the encap service. i.e. it wouldn't help the com interface project at all. | |
Henrik: 1-Nov-2005 | but you don't get /Command functions for free. that would be the trick to get you to buy the SDK as opposed to using an encapping service | |
Gabriele: 1-Nov-2005 | henrik, you don't get any R icon on the desktop the way i described. and, as petr says, there are programs around that make the process of unzipping and running automatic, so the user only sees one exe. | |
Ashley: 4-Dec-2005 | Most of the GUI work I do does not use VID or networking, so enface without any of the view-* or prot-* scripts is what I want. I do not want to use a loader front-end based on rebview that includes all this code. The cost in executable size may be small (less than 100Kb), but it's the start-up time and memory cost that I like to get as lean as possible. This will become more of an issue if and when REBOL is ported to small memory footprint devices. | |
Graham: 5-Dec-2005 | Anyway, it's very good news to finally get a new sdk - and for command - before Xmas. | |
Volker: 5-Dec-2005 | IIRC ssh is rts own implementation, or do i get that wrong? | |
Group: !Uniserve ... Creating Uniserve processes [web-public] | ||
DideC: 9-Mar-2005 | encap-fs: context [ cache: path: none root: system/script/path get-cache: func [file][ path: parse file "/" remove-each dir path [dir = ".."] file: to-file path either file [ either file: select cache file [file][load file] ][ make error! join "Cannot access : " file ] ] set 'encap? to-logic select system/components 'decap either encap? [ set 'set-cache func [list [block!] /local bin file][ cache: list ;cache: make block! 16 ;parse list [ ; some [ ; (bin: no) opt ['binary (bin: yes)] ; set file file! ( ; repend cache [ ; file ; either bin [read/binary file][read file] ; ] ; ) ; ] ;] ] set 'do-cache func [file [file!]][do get-cache file] set 'load-cache func [file [file!]][load first get-cache file] set 'read-cache func [file [file!]][] ][ set-cache: none do-cache: :do load-cache: :load read-cache: :read ] ] | |
Graham: 11-Mar-2005 | Got a working pop server now for uniserve .. connected to a firebird database. Now to get the smtp service to save files to the database as well. | |
Graham: 12-Mar-2005 | I've further improved my spam busting mail service. If I get an email from a new user, and that email passes all my spam tests, I now will send an smtp challenge to the mail server that should have sent that mail. I know some mail servers will respond that every user combination exists, but others will not, and that will all help. | |
Graham: 13-Mar-2005 | It will help me determine how effective this is. I need people who get a fair bit of spam, and don't mind their mail sitting on my server. | |
Graham: 13-Mar-2005 | Just message me here ... and I'll set it up tonight when I get back home. | |
Graham: 16-Mar-2005 | Can some of you lurkers help me test out my spam filtering? I just need you to send me an email to [gchiu-:-compkarori-:-com]. I want to see how many get non delivered, or misclassified as spam. Just post here if you send me an email. Thanks, | |
Graham: 19-Mar-2005 | this is my first crude webmail interface to my smtp service. http://www.compkarori.co.nz:8001/ use userid: "test" password: "account" If you send a message to [test-:-compkarori-:-com], it will take 15mins at least to get thru ( which is the default delay I have built in for mail from new users). But after that it should be very quick. | |
MikeL: 17-May-2005 | From the documentation, "Uniserve's purpose is to offer a simple but powerful solution for programming client and servers applications that can be combined with View interfaces easily." The uses for the Asynch that I can come up with are: 1. Backup after transactions. 2. Journalizing / reporting after a committed transaction update 3. Database access 4. Queuing of side-effect events that are not needed for the response in the user interface. Aside from that, my understanding is that an synch event could be made asynch to allow a lower end server to process the workload. Does anyone have any other uses from the 4 noted? Does anyone have a simple sample of tying Uniserve into the View interfaces? Are there any results of driving some load using uniserve versus synchronous or other solutions like threaded models? I am trying to get my head around this a bit more and want to rely less on the Doc-likes-it-some-it-must-be-the-right-thing-to-do approach that I have used before. I read the Medusa documentation that Doc refers to but it did not lead me to any good application examples. | |
MikeL: 17-May-2005 | Thanks Graham. Your response came in while I was composing this.... OK I have a simple View interface displaying a uniserve response so I follow that. With a view user interface I can see you could get the data needed for multiple tab pages asynchronously and have some saving there. For a script serving out html pages, it could be broken up so that asynch go after independent parts but they would have to be all emitted to the browser at once. Is anyone doing that with Uniserv or other? | |
MikeL: 17-May-2005 | In that ramble, I had both - I have a View client app that I want to know how to access Uniservices to make the programming easy and I also want to know how to Uniserve if I want to run a CGI that connects to a database, does some credit application calculations, and emits html to the client. For this CGI script, I would get both performance improvements and an easier programming model ... if I am reading the doc correctly. | |
Terry: 6-Oct-2005 | Any simple examples on using "stop-at" with uniserve to pick up posted data??? Can only dig up "GET" ?? | |
Terry: 7-Oct-2005 | I have another question though.. with the httpd service, where is the actual data? I get the headers, and i get the length of the data, but not the actual binary.. im submitting a form using POST... GET is fine. | |
Terry: 7-Oct-2005 | One can get all fancy playing with ports and protocols, but in the end, there's alot to be said for DBI | |
Terry: 8-Oct-2005 | Ok, the problem with POST data was with domain forwarding, and not with Uniserve.. GET works fine, POST didn't. | |
Terry: 4-Feb-2006 | Ok.. so now I can run the external script by placing waiting till i finsh the external, and get back to the 'on-received' function... but I have a number of functions that I use to process my external script.. Do I need to load those functions with every on-received event??? | |
Will: 31-Aug-2006 | Mike, I started using Apache and rebol as cgi, this is not suited for performances as on every call to the cgi, a new instance of rebol is initialized, run and closed. I thought about using fastcgi, but never came to a working solution. Now I use uniserve as main webserver, here some advantages: -it is fast! On my local machine I get +- 600 req/sec for static pages and a max of 160req/sec for dynamic rsp pages -it is written in rebol, I could easly(less than 10 lines code) add a rewrite engine -child process are persistent, this mean you can keep state of your web applications, implement caching, keep a pool of connection to databases open (in apache + rebol/cgi you'd have to open and close the connection for every request) -it is written by Dock whom I may be the biggest fan ;-) btw I'm running an unreleased version (have bought commercial support) that support http 1.1, stuff like If-Modified etc.. If you have more specific questions, I'll be glad to try and answer. | |
MikeL: 1-Sep-2006 | When I can get that simple part working then I want to add Make-Doc, my-sql-protocol and Andrew's ML dialect as services so I can get some leverage from these. | |
Group: SVG Renderer ... SVG rendering in Draw AGG [web-public] | ||
shadwolf: 30-Jun-2005 | then construc path to get data then translate this data to a draw equivalent exploitable datas | |
Graham: 2-Jul-2005 | Firefox is supposed to be able to support SVG ( a subset at least ) without plugins, but I couldn't get it to work. I had to download Adobe's plugin. | |
shadwolf: 1-Jan-2006 | transform problem are on their way to be solve gradient too by cyphre and Carl those two things are the most blockant problems until they are not completly solved we can't expect to have a full working SVG rendering engine -> most of SVG imagines use transform effects and gradients this means that if we want to get a pretty good and reliable SVG engine we have to fixe those two issue. SVR rendering engine is a good and hudge test upon AGG integration to REBOL/View and it allows us to embetter it !!! Once we get a fully working engine with basic human understandable algorithm i will start the optimisation process using parse (but to be franck i don't know how parse will react in front svg row data or how will be the time to dev this parse based SVG engine ... in all cases I think the actual engine have teached me a lot arrounf the SVG to AGG adaptation process so i hope the translation to parse and parse/rules will not be too hard and too long) | |
Pekr: 20-Jun-2006 | would following news help us to get AGG - SVG compatible gradients? It regards AGG 2.4, new branch of AGG, and I am sure we will get it ported to REBOL too ... New utility class template is added, gradient_lut. It allows you to easily create a color LUT for gradients from a set of color stops as they are defined in SVG, section Gradients and Patterns. | |
Group: AJAX ... Web Development Using AJAX [web-public] | ||
Volker: 5-Dec-2005 | Interesting, bever thought about that. Seems Google has thought about that too. Because with firefox they can build spiders which press buttons, read the results from the dom etc. Means you may get some robot-users which try mad input.. And they have this new traffic-tools for webmasters, where you can see what is searched, how yoursite is ranked etc. So everyone can tune his ajax enough to be googable too. | |
Pekr: 11-Apr-2006 | hope we get full-featured plug-in one day ... | |
BrianW: 21-Apr-2006 | Well, Javascript maybe rather than Java, but I get the idea. | |
Chris: 16-May-2006 | For all Yahoo!'s talk about web UI patterns and best practise, I still required User Agent Spoofing (through Camitools) to get it working... | |
Henrik: 30-Jan-2009 | I was amazed at how well video runs in Silverlight on my Mac. But I'd still like to see a separation of video from Flash to get a simpler and truly optimized video player. | |
Group: Syncing ... Syncing technologies [web-public] | ||
BrianH: 4-Jan-2006 | By "for comparison purposes", I mean don't change the file date, just subtract the diff between you and UTC to get the adjusted file date in memory and then compare against the adjusted file date from the server. | |
Group: Tech News ... Interesting technology [web-public] | ||
Geomol: 23-Feb-2006 | No. We need to get out of the browser. A place like that should have a REBOL client! :-) | |
Henrik: 23-Feb-2006 | http://www.news.uiuc.edu/news/06/0222quantum.html<--- Quantum computing reaches more spooky levels. Get an answer from an algorithm without running the computer. It's called "counterfactual computation". | |
Sunanda: 1-Mar-2006 | I've been telling people foy years to get a machine for work and a machine to trash for games etc. Because if they call me (as they often do) and say "I've broken my only computer by downloading a game and now I can't get it to work and I've got to do something important" they get zero sympathy and I'm pretty dis-inclined to lend a hand in fixing their crisis. | |
Sunanda: 6-Mar-2006 | MVS is called Z/OS these days. Hard to hack -- but then not many people wouid have the skills to even get started: the concepts are so different to what you'd expect from a PC or UNIX background. But not impossible | |
[unknown: 10]: 22-Mar-2006 | About the Email.. I think they dont understand where email is going.. If they would have build an email client that would support encryption or packaging from text to grafics they would be on the route to the future.. For..re-inventing the wheel with lots of bells and advertising.. (yes im a little anti java and .net internet applications currently ;-) Ever stranger...NET is dead and also is Java..still many use it.. i dont get it.. | |
yeksoon: 31-Mar-2006 | RoR like most other framework, sells the ease to get things done. What I think makes them standout, is the way they SHOW it. 1. Ruby itself is always a 'simpler' approach to Java. That is one EASE 2. They SHOW you on their webcast...and they said it themselves. 'SHOW, Don't Tell' http://rubyonrails.org/screencasts 3. And they also SHOW it by using tools other programmers use, eg TextMate, drawing a targetted group potential user. The success of RoR puts a lot of big companies to shame. (given the resources they have) | |
Geomol: 13-Apr-2006 | All those Google applications. Wouldn't it be a lot better user experience, if REBOL clients were made, instead of having the applications inside a browser? Might be a good plan: 1) Get people away from MS products. It's not the best solution having everything inside a browser, but it lets them know again, that they have a choice. 2) Now people have choices, they can choose the best solution, which is REBOL reblets. | |
Henrik: 19-Apr-2006 | he should be careful with windows that can be flipped over and are hinged at the center of the frame. I have those in my livingroom. When opened at a certain angle, the reflection in the glass is directed towards the roof. Sometimes a bird would get "caught" in the reflection while sitting on the roof and start attacking the window glass repeatedly. It looks really funny, but you have to clean up the mess afterwards: I suppose repeatedly banging their head against the window glass every 2 seconds for 10 minutes makes for a bad stomach... | |
Maxim: 21-Apr-2006 | Thanks Henrik, you just made my day ;-) running windows XP apps on OSX natively! HAHAHAHAHA get the better OS, and the better Software and run them together. event though they wheren't meant to even support each other from the start :-) | |
Maarten: 26-Apr-2006 | To me, it is all very simple. I just install a program that protects all content on my computer before *anything* comes on my PC. Now, every piece of software that tries to get anything of my computer... of course the protection I offer is cumbersome, so most software will circumvent it... and I can sue them. Of cousre I can publish something to protect me, espscially from a non-US country. | |
BrianW: 12-May-2006 | Why is it that my favorite languages only get popular when they get fat and slow? :) | |
Pekr: 12-May-2006 | dunno how they are organised. They apparently do get some money, then they announce possibility to gain some grants .... | |
JaimeVargas: 12-May-2006 | It is better to be a polyglot than succumb on the I don't understand that, so I will not use it, and by the way I will bash any other language that I don't get. | |
Group: !Liquid ... any questions about liquid dataflow core. [web-public] | ||
Maxim: 18-May-2007 | so using cgi for that kind of think (for liquid) is almost impossible, cause the viewers need to get the information BACK. | |
Maxim: 18-May-2007 | hehe, right now... with the cgi in between, I don't think you'll get a lot more out of building it in liquid... | |
Maxim: 24-May-2007 | my next step for liquid (what I was working on During the devcon, but wasn't able to get done do to lack of sleep) was the creation of liquid net. | |
Maxim: 24-May-2007 | cause in many times when IT changes you get unwanted results out of its interaction with other systems. | |
Josh: 17-Apr-2008 | Maxim, you ever get some more of those demos worked up for liquid? | |
Tomc: 19-Apr-2008 | I think you can still get his attention on the maillist | |
Josh: 26-Feb-2009 | the !sum plug is a good example,but I get a little stuck beyond that. From my first impression of trying to do this, it seems like I'm going to have to define so many variables to make it too troublesome. But I'm sure that I'll have to learn how to think in the right way to avoid all that | |
Josh: 27-Feb-2009 | SOunds great! If you can't get it finished, at least show me a sizable component of it so I can get some ideas | |
Josh: 6-Mar-2009 | That's neat! I will try not to set them to non integers! ;-) j/k I'll have to see how it all works under the hood, once I get it | |
Maxim: 7-Mar-2009 | the example is DONE, it has MANY interconnected plugs which handle all maner of data integrity, button style effects, even disabling some buttons, when values get out of bounds! built with VID, latest version of liquid. | |
Maxim: 7-Mar-2009 | I'm REALLY happy to do it. its a great opportunity for me to actually get some limelight on liquid :-) | |
Sunanda: 7-Mar-2009 | I've not had a chance to play with it yet, Max. I suspect many of the downloads will be bots that like to index new content.....Not people passing by to check the scripts. New/changed scripts get prominent home page billing, so the bots come flocking to feast. | |
Maxim: 13-Mar-2009 | anyone who wants to get to use liquid, don't hesitate to try and ask stupid questions. They are hard to answer, and its giving me a chance to get a general feeling of what needs more attention in the forthcomming revision to the whole liquid documentation. | |
Maxim: 13-Mar-2009 | pipes work in about the same way, but every time a value is filled within a piped plug, ALL of the other members of that pipe ALSO get filled with the same value. | |
Group: reblets ... working reblets (50-100 lines or less) [web-public] | ||
Maxim: 19-Mar-2009 | rebol [ title: "explore.r" version 1.0 date: 2009-03-19 author: "Maxim Olivier-Adlhoch" copyright: "2009(c)Maxim Olivier-Adlhoch" tested: "win xp" notes: "Add any dir to the dirs block. options are self explanatory" ] dirs: [ %/C/ [] %"/C/program files/" [expand] "%tmp%" [label "temp dir"] "" [ label "my documents"] ] blk: [] explore-dir: func [path expand? /local cmd][ call/shell rejoin [" explorer " either expand? ["/n,/e,"]["/n,"] path ] ] ctr: 1 foreach [item opts] dirs [ ctr: ctr + 1 expand?: found? find opts 'expand label: any [select opts 'label to-local-file item] append blk compose/deep [ pad 20 (to-set-word setw: rejoin ["dir" ctr]) check (expand?) pad 20 btn 200 left (label) [ explore-dir to-local-file item get in (to-word setw) 'data ] ] append blk 'return ] view layout compose [across vtext right "expand?" vtext "folder" return (blk)] | |
Maxim: 19-Mar-2009 | bug creep: parens disapeared for some strange reason... replace in the above: btn 200 left (label) [ explore-dir to-local-file item get in (to-word setw) 'data ] with btn 200 left (label) [ explore-dir (to-local-file item) get in (to-word setw) 'data ] | |
Ammon: 1-Apr-2009 | REBOL [ File: %scramble.r Author: "Ammon Johnson" Email: [ammon-:-johnson-:-gmail-:-com] Version: 0.0.1 History: [ 0.0.1 31-Mar-2009 "scrambles and descrambles code" ] ] scramble: context [ words: [] load-words: does [ foreach word first system/words [ add-word mold word ] ] add-word: func [ word /local chars length ][ chars: charset word unless found? find words chars [repend words [chars copy []]] unless found? find words/:chars length: length? word [repend words/:chars [length copy []]] length: select words/:chars length unless found? find length word [insert tail length word] word ] get-word: func [ word /local chars length ][ chars: charset word unless chars: select words chars [return "UNKNOWN"] unless length: select chars length? word [return "UNKNOWN"] random/only length ] scramble: func [ txt /local result ][ result: parse/all txt " " forall result [ unless empty? trim copy result/1 [change result random add-word result/1] ] form result ] descramble: func [ txt /local result ][ result: parse/all txt " " forall result [ unless empty? trim copy result/1 [change result get-word result/1] ] form result ] ] |
1601 / 10262 | 1 | 2 | 3 | 4 | 5 | ... | 15 | 16 | [17] | 18 | 19 | ... | 99 | 100 | 101 | 102 | 103 |