Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- # PERL
- use warnings;
- use strict;
- use List::Util;
- package Deck;
- sub new {
- my $class = shift;
- my $self = {
- _deck_size => shift
- };
- bless $self, $class;
- return $self
- }
- sub deck_size {
- my ($self, $deck_size) = @_;
- $self->{_deck_size} = $deck_size if defined($deck_size);
- return $self->{_deck_size}
- }
- sub shuffle {
- my ($self) = @_;
- return List::Util::shuffle (1 .. $self->deck_size);
- }
- my $deck = new Deck(52);
- my @shuffled_deck = $deck->shuffle;
- print "@shuffled_deck";
- # PYTHON
- import random
- class Deck:
- """Simple deck shuffler"""
- def __init__(self, deck_size):
- self.deck_size = deck_size
- def shuffle(self):
- deck = range(self.deck_size)
- random.shuffle(deck)
- return deck
- o = Deck(52)
- print o.shuffle()
- # RUBY
- class Deck
- def initialize(deck_size=52)
- @deck = (1..deck_size).to_a
- end
- def shuffle
- @deck.shuffle
- end
- end
- p Deck.new.shuffle
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement