Looking for ugly code comparisons WAS: Slashdotter looking for kids' programming language

[Judy Perry]

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 <briany at qldlearning.com>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
> use-revolution at lists.runrev.com
> Please visit this url to subscribe, unsubscribe and manage your
> subscription preferences:
> http://lists.runrev.com/mailman/listinfo/use-revolution
>