Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options

Re: YAGG (Yet Another Golf Game)

by chipmunk (Parson)
on Feb 13, 2002 at 06:33 UTC ( #145095=note: print w/replies, xml ) Need Help??

in reply to YAGG (Yet Another Golf Game)

This solution comes in at 89 characters:
@h=0;print map(rand>.5?++$H&&++$h[-1]&&H:++$#h&&$",,$/, join('|',grep$_,@h),$/,$H,$/
Could you clarify the exact output format that the code should produce?

Replies are listed 'Best First'.
Re: Re: YAGG (Yet Another Golf Game)
by Necos (Friar) on Feb 13, 2002 at 21:14 UTC
    Just a the number of heads that occur in a row, follwed by the number of heads total. Look at the sample output in the root node for a better example. The only real requirement in the output is that the flip data, tally, and total need to be separated by newlines.

    Theodore Charles III
    Network Administrator
    Los Angeles Senior High
    4650 W. Olympic Blvd.
    Los Angeles, CA 90019
    323-937-3210 ext. 224

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://145095]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (1)
As of 2021-10-23 05:53 GMT
Find Nodes?
    Voting Booth?
    My first memorable Perl project was:

    Results (86 votes). Check out past polls.