fork download 
  1. #!/usr/bin/perl
  2. # your code goes here
  3. my $output=1; #0 - vivodit tolko resultat, 1 - vivodit' podrobnosti i resultat
  4. my $count=10; # skol'ko raz delat' vibor
  5. my $answer=1; # 0 - ne menyaem vibor, 1- menyaem vibor, 2 - menyaem randomom
  6.  
  7.  
  8. srand(time());
  9.  
  10. #ispolzuem hash dlya naglyadnosti
  11. my %init_doors=(
  12.           'red' =>0,
  13.           'green' =>0,
  14.           'blue' =>0
  15.           );
  16.  
  17.  
  18. my @variants=('red','green','blue');
  19.  
  20. my $success=0;
  21. my $failed=0;
  22.  
  23. for (my $i=0;$i<$count;$i++)
  24. {
  25.  
  26.  my $target=$variants[int rand(3)];#zagadivaem
  27.  if ($output)
  28.  {
  29.   print "Zagadali: $target\n";
  30.  };
  31.  
  32.  
  33.  my $test=$variants[int rand(3)];#popitka ugadat
  34.  
  35.  if ($output)
  36.  {
  37.   print "Popitka: $test\n";
  38.  };
  39.  
  40.  my %temp_doors=%init_doors;
  41.  
  42.  my $add_variant="";
  43.  my @result_array=(); # tut budem hranit spisok posle otbrasivaniya vedushchim lishnego varianta
  44.  
  45.  if ($target eq $test)    #esli zagadannoye sovpalo s vibrannim
  46.   {
  47.     delete($temp_doors{$target}); #udalyaem zagadannoye
  48.     my $temp=0;
  49.     my @temp_array=();
  50.     foreach my $key (keys %temp_doors)    #pomeshchaem v massiv ostavsheesya
  51.                                           #dva znacheniya chto bi po indeksu randomom vibrat'
  52.     {
  53.      $temp_array[$temp]=$key;
  54.      $temp++;
  55.     };
  56.  
  57.     $add_variant=$temp_array[int rand(2)]; #vibiraem kakoy neverniy variant ostavit'  (verniy to uge uagadan)
  58.     $result_array[0]=$test;
  59.     $result_array[1]=$add_variant;
  60.   }
  61.  else  #esli zagadannoye vedushchim ne sovpalo s vibrannim igrayushchim, togda dobavlyaem zagadannoye k vibrannomu
  62.   {
  63.     $result_array[0]=$test;
  64.     $result_array[1]=$target;
  65.   };
  66.  if ($output)
  67.  {
  68.   print "Vtoroy shans - vibor iz: ".join(',',@result_array)."\n"; #vivodim vse chto ostalos' posle otbrasivaniya
  69.  };
  70.  
  71.  if ($answer == 0) #esli ne menyaem vibor
  72.  {
  73.   if ($output)
  74.   {
  75.    print "Ne menyaem vibor\n";
  76.   };
  77.   if ($test eq $target)
  78.    {
  79.     if ($output)
  80.     {
  81.      print "Resultat: Ugadali\n";
  82.     };
  83.     $success++;
  84.    }
  85.    else
  86.    {
  87.     if ($output)
  88.     {
  89.      print "Resultat: Ne ugadali\n";
  90.     };
  91.     $failed++;
  92.    };
  93.  }
  94.  elsif ($answer ==1) # esli menyaem vibor
  95.   {
  96.    if ($output)
  97.    {
  98.     print "Menyaem vibor s $test на $result_array[1]\n";
  99.    };
  100.    $test=$result_array[1]; # v $result_array[0] - vsegda vibraniy varian, poetome dlyz smeni vibore berem $result_array[1]
  101.  
  102.    if ($test eq $target)
  103.    {
  104.     if ($output)
  105.     {
  106.      print "Resultat: Ugadali\n";
  107.     };
  108.     $success++;
  109.    }
  110.    else
  111.    {
  112.     if ($output)
  113.     {
  114.      print "Resultat: Ne ugadali\n";
  115.     };
  116.     $failed++;
  117.    };
  118.   }
  119.  elsif ($answer==2) #vibiraem randomom vtoroy raz
  120.  {
  121.    $test=$result_array[int rand(2)];
  122.    if ($output)
  123.    {
  124.     print "Delaem vibor snova randomom, vibrali $test\n";
  125.    };
  126.    if ($test eq $target)
  127.    {
  128.     if ($output)
  129.     {
  130.      print "Resultat: Ugadali\n";
  131.     };
  132.     $success++;
  133.    }
  134.    else
  135.    {
  136.     if ($output)
  137.     {
  138.      print "Resultat: Ne ugadali\n";
  139.     };
  140.     $failed++;
  141.    };
  142.  
  143.  
  144.  };
  145.  if ($output)
  146.  {
  147.   print "\n=========================================================\n";
  148.   };
  149. };
  150.  
  151. print "\nVsego: $count\n";
  152. print "Ugadano: $success\n";
  153. print "Ne ugadano: $failed\n";
  154.  
Success #stdin #stdout 0s 3608KB
comments (?)
stdin 
Standard input is empty
stdout 
Zagadali: blue
Popitka: green
Vtoroy shans - vibor iz: green,blue
Menyaem vibor s green на blue
Resultat: Ugadali

=========================================================
Zagadali: green
Popitka: red
Vtoroy shans - vibor iz: red,green
Menyaem vibor s red на green
Resultat: Ugadali

=========================================================
Zagadali: red
Popitka: red
Vtoroy shans - vibor iz: red,blue
Menyaem vibor s red на blue
Resultat: Ne ugadali

=========================================================
Zagadali: blue
Popitka: red
Vtoroy shans - vibor iz: red,blue
Menyaem vibor s red на blue
Resultat: Ugadali

=========================================================
Zagadali: blue
Popitka: blue
Vtoroy shans - vibor iz: blue,green
Menyaem vibor s blue на green
Resultat: Ne ugadali

=========================================================
Zagadali: blue
Popitka: red
Vtoroy shans - vibor iz: red,blue
Menyaem vibor s red на blue
Resultat: Ugadali

=========================================================
Zagadali: green
Popitka: red
Vtoroy shans - vibor iz: red,green
Menyaem vibor s red на green
Resultat: Ugadali

=========================================================
Zagadali: green
Popitka: red
Vtoroy shans - vibor iz: red,green
Menyaem vibor s red на green
Resultat: Ugadali

=========================================================
Zagadali: green
Popitka: green
Vtoroy shans - vibor iz: green,blue
Menyaem vibor s green на blue
Resultat: Ne ugadali

=========================================================
Zagadali: red
Popitka: green
Vtoroy shans - vibor iz: green,red
Menyaem vibor s green на red
Resultat: Ugadali

=========================================================

Vsego: 10
Ugadano: 7
Ne ugadano: 3
https://ideone.com/VkIIWS
language:
Perl (perl 5.28.1)
created:
11 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!