Advertisement
Guest User

Untitled

a guest
Aug 17th, 2017
46
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.94 KB | None | 0 0
  1. # PERL
  2. use warnings;
  3. use strict;
  4. use List::Util;
  5.  
  6. package Deck;
  7. sub new {
  8. my $class = shift;
  9. my $self = {
  10. _deck_size => shift
  11. };
  12.  
  13. bless $self, $class;
  14. return $self
  15. }
  16.  
  17. sub deck_size {
  18. my ($self, $deck_size) = @_;
  19. $self->{_deck_size} = $deck_size if defined($deck_size);
  20. return $self->{_deck_size}
  21. }
  22.  
  23. sub shuffle {
  24. my ($self) = @_;
  25. return List::Util::shuffle (1 .. $self->deck_size);
  26. }
  27.  
  28. my $deck = new Deck(52);
  29. my @shuffled_deck = $deck->shuffle;
  30. print "@shuffled_deck";
  31.  
  32.  
  33.  
  34. # PYTHON
  35. import random
  36. class Deck:
  37. """Simple deck shuffler"""
  38. def __init__(self, deck_size):
  39. self.deck_size = deck_size
  40. def shuffle(self):
  41. deck = range(self.deck_size)
  42. random.shuffle(deck)
  43. return deck
  44.  
  45. o = Deck(52)
  46. print o.shuffle()
  47.  
  48.  
  49.  
  50. # RUBY
  51. class Deck
  52. def initialize(deck_size=52)
  53. @deck = (1..deck_size).to_a
  54. end
  55.  
  56. def shuffle
  57. @deck.shuffle
  58. end
  59.  
  60. end
  61.  
  62. p Deck.new.shuffle
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement