CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
INDEX
Search Posts SEARCH
POSTS
Who's Online WHO'S
ONLINE
Log in LOG
IN

Home: Fun With Perl: Perl Golf: I lended money to my 'coin'puter... (GOLF): Edit Log



freddo
User

Feb 10, 2002, 7:21 AM


Views: 40382
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:

Code
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 Crazy...
;---

(This post was edited by freddo on Feb 10, 2002, 7:22 AM)


Edit Log:
Post edited by freddo (User) on Feb 10, 2002, 7:22 AM


Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives