fork download
copy 
  1. #!perl
  2.  
  3. use strict;
  4. use warnings;
  5.  
  6. use Data::Dumper;
  7. $Data::Dumper::Sortkeys = 1;
  8.  
  9. my $PURIFY = 1;
  10. my $SILENCE = 2;
  11. my $WATCHER = 3;
  12. my $STATUE = 4;
  13.  
  14. my $TURNS = 4;
  15. my $HAND_SIZE = 3;
  16.  
  17. my %results = ();
  18. for(1 .. 1_000) {
  19.     $results{ sim() } ++;
  20. }
  21.  
  22. print Dumper( \%results );
  23.  
  24. exit;
  25.  
  26. sub sim {
  27.     my @deck = (
  28.         ( 0 )        x 22,
  29.         ( $PURIFY )  x 2,
  30.         ( $SILENCE ) x 2,
  31.         ( $WATCHER ) x 2,
  32.         ( $STATUE )  x 2,
  33.     );
  34.     shuffle( \@deck );
  35.     my @hand = draw( $HAND_SIZE, \@deck );
  36.  
  37.     # mulligan
  38.     my @mulligan = ();
  39.     my @keep = ();
  40.     my $spell = 0;
  41.     my $target = 0;
  42.     while(@hand) {
  43.         my $card = shift @hand;
  44.         if(not $card) {
  45.             push @mulligan, $card;
  46.         }
  47.         elsif($card == $PURIFY
  48.             or $card == $SILENCE
  49.             ) {
  50.             if($spell) {
  51.                 push @mulligan, $card;
  52.             }
  53.             else {
  54.                 push @keep, $card;
  55.                 $spell ++;
  56.             }
  57.         }
  58.         elsif($card == $WATCHER
  59.             or $card == $STATUE
  60.             ) {
  61.             if($target) {
  62.                 push @mulligan, $card;
  63.             }
  64.             else {
  65.                 push @keep, $card;
  66.                 $target ++;
  67.             }
  68.         }
  69.     }
  70.  
  71.     @hand = ( @keep, draw( scalar @mulligan, \@deck ) );
  72.     push @deck, @mulligan;
  73.     shuffle( \@deck );
  74.  
  75.     return 0 if checkHand( @hand );
  76.  
  77.     for( 1 .. $TURNS ) {
  78.         push @hand, draw( 1, \@deck );
  79.         return $_ if checkHand( @hand );
  80.     }
  81.  
  82.     return -1;
  83. }
  84.  
  85. sub shuffle {
  86.     my ($deck) = @_;
  87.  
  88.     my $i = @{ $deck };
  89.     while(-- $i) {
  90.         my $j = int rand( $i + 1 );
  91.         @{ $deck }[ $i, $j ] = @{ $deck }[ $j, $i ];
  92.     }
  93.  
  94.     return;
  95. }
  96.  
  97. sub draw {
  98.     my ($count, $deck) = @_;
  99.  
  100.     my @hand = ();
  101.     for(1 .. $count) {
  102.         push @hand, shift @{ $deck };
  103.     }
  104.  
  105.     return @hand;
  106. }
  107.  
  108. sub checkHand {
  109.     my @hand = @_;
  110.  
  111.     my $spell = 0;
  112.     my $target = 0;
  113.     for my $card (@hand) {
  114.         if($card == $SILENCE
  115.             or $card == $PURIFY
  116.             ) {
  117.             $spell ++;
  118.         }
  119.         elsif($card == $WATCHER
  120.             or $card == $STATUE
  121.             ) {
  122.             $target ++;
  123.         }
  124.     }
  125.  
  126.     return ($spell and $target);
  127. }
  128.  
Success #stdin #stdout 0.09s 7288KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
$VAR1 = {
          '-1' => 379,
          '0' => 285,
          '1' => 89,
          '2' => 105,
          '3' => 73,
          '4' => 69
        };
https://ideone.com/dxn8gw
language:
Perl (perl 5.28.1)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!