Oh, heavens, NO! I want ugly code in OTHER languages... legitimate, legitimately ugly code in other languages.
If I wanted ugly code in Rev, I could simply use my own! :-/ Judy http://revined.blogspot.com On Thu, Dec 11, 2008 at 7:41 PM, Brian Yennie <[email protected]>wrote: > If you want ugly code in Rev, the key is to do things in a horrible, obtuse > and irrational fashion. Smoke and mirrors, my friends! > (nope, haven't tested this but it looks right to me =)) > > on foo > put item -5 of "fox,cat,dog,horse" into t > put 0*pi*100 into x > repeat while (x < (256 - charToNum(space))) > put empty into l > put numToChar(x+32) after l > put numToChar(32) before l > put (x+32) before l > put l into line (x+1) of t > put x + 1 into x > end repeat > replace space with " "&space&space&space&" " in t > sort lines of t numeric by word 1 of each > put line 1 to -1 of (t&cr) > end foo > > > Hi Judy, >> >> A few very simple examples. Revolution is clearly much more readable and >> easier to work with for starting programmers than other languages. >> >> # revolution >> on foo >> repeat with x = 32 to 255 >> put x & " " & numToChar(x) & cr after msg >> end repeat >> end foo >> >> This one is hardly readable if you're not used to reading programing code: >> >> # php >> <?php >> for ($chrNr=32;$chrNr < 255;$chrNr++) >> { >> echo $chrNr." ".chr($chrNr)."\n"; >> } >> ?> >> >> Just for fun, here's the AppleScript version. Quite similar to Revolution, >> but much more picky. >> >> -- applescript >> on foo() >> set myList to "" >> repeat with x from 32 to 255 >> set myList to myList & x & " " & (ASCII character x) & >> return >> end repeat >> return myList >> end foo >> >> Btw, if you want ugly code, this one should not be omitted... >> >> 0 REM BASIC >> 10 LET x = 31 >> 20 LET X = X + 1 >> 30 PRINT x," ",CHR$(x) >> 40 IF x < 255 GOTO 20 >> 50 END >> > _______________________________________________ > use-revolution mailing list > [email protected] > Please visit this url to subscribe, unsubscribe and manage your > subscription preferences: > http://lists.runrev.com/mailman/listinfo/use-revolution > _______________________________________________ use-revolution mailing list [email protected] Please visit this url to subscribe, unsubscribe and manage your subscription preferences: http://lists.runrev.com/mailman/listinfo/use-revolution
