freddo
User
Feb 10, 2002, 7:21 AM
Views: 22942
|
|
I lended money to my 'coin'puter... (GOLF)
|
|
|
Hello Everybody,
This week there was 1_500_000 euros to win in belgium at lotto, and i wanted my computer to participate.... so i came out with this first solution:perl -e 'while($a<7){$x=int(rand 42)+1;++$l{$x},$a++unless$l{x}}print join" ",keys%l;'
so who's making it shorter?
Freddo
PS: sadly making it shorter wont make it the winner one  ...
;---
(This post was edited by freddo on Feb 10, 2002, 7:22 AM)
|
MAIN
SEARCH
WHO'S 
LOG 
