Turing Contest 255chr max - changed to 20 line max

[TheFerret]

I know the second one is longer but it looks pretty good and I thought comments don't count...

[Andy]

i think bugz/catalyst should win

[Tony]

learn to read dodge (love martin)

bugzpodder wrote:

I did not make this

[Andy]

i read that.. if we can rip movies/apps off bit torrent legally in canada... i think a lil plagerization isnt bending the rules a bit

[Dan]

hey what about mine? the abity to restart any CS server in 20 lines! it is at least intresting. and the abity to take over landschool in 20 lines is not bad ether .

Any how if i had to pick a winner out of the more leagl entrys i whould pick tonys and Catalyst for showing how they can own grade 10 FP in 20 lines.

[Andy]

well... it did kinda say turing

[Dan]

pfff minor deatals.....

[Andy]

heh... y dont u make a thousand line long header file and just include it in c++

[Dan]

b/c now that whould be cheating. not my falut java is better for networking.

[rizzix]

not only that dan. of course thats true.. but u need to take into consideration statements instead of lines. cuz its possible to write an entire java application in one line.. but it could have 10000+++ statements.. of course i'm sure ur app is pretty low on statements heh.

[rizzix]

another thing that makes java so ideal for wirting small programs.. is its chain method calls and anonyous inner classes heh. (an anonymous inner class can be considered one statement.

[beard0]

Well, this brings the TURING Contest to a close. A poll should be appearing shortly.

[beard0]

Come on guys, vote for the winner!
At least everyone who has made a post here should be voting!

[Homer_simpson]

no comment...

View.Set ("offscreenonly")
colorback (black)
var x, y, z, rs : array 1 .. 100 of real
proc rotate (OriginX, OriginY : real, var secondpartX, secondpartY : real, Rotaion : real)
secondpartY := OriginY - (((OriginY - secondpartY) * cosd (Rotaion)) - ((OriginX - secondpartX) * sind (Rotaion)))
secondpartX := OriginX - (((OriginX - secondpartX) * cosd (Rotaion)) + ((OriginY - secondpartY) * sind (Rotaion)))
end rotate
for i : 1 .. 100
x (i) := Rand.Int (-100, 100)
y (i) := Rand.Int (-100, 100)
z (i) := Rand.Int (101, 301)
end for
loop
for i : 2 .. 100
drawline (round (x (i - 1) / (z (i - 1) / 100)) + 320, round (y (i - 1) / (z (i - 1) / 100)) + 200, round (x (i) / (z (i) / 100)) + 320, round (y (i) / (z (i) / 100)) + 200, white)
rotate (0, 200.5, x (i), z (i), 1)
end for
View.Update
cls
end loop

[josh]

wow, that is sick homer!!!!!!!!!!!!!!