Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

Bag uniform distribution algorithms

by davido (Archbishop)
on Apr 25, 2013 at 15:01 UTC ( #1030688=perlquestion: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    qw( A A A A )
    qw( B B )
    qw( C C C )
    qw( D )
  2. or download this
    qw( A C B A D C A B C A ) # I think...
  3. or download this
    # Sublists generated by an iterator.
    my @p1 = ( 'A'  , undef, undef,   'A', undef, undef,   'A', undef, und
    +ef,   'A' );
    print "@solution\n";
    # Produces A C B A D C A B A C

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1030688]
Front-paged by Corion
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (8)
As of 2018-03-17 19:14 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (225 votes). Check out past polls.