fork download
copy 
  1. use strict;
  2. use List::Util;
  3. my @g;
  4. my (@B, @I, @N, @G, @O);
  5. format STDOUT_TOP =
  6.  
  7.     B      I      N      G      O
  8. +------+------+------+------+------+
  9. .
  10. format STDOUT = 
  11. |@>>>> |@>>>> |@>>>> |@>>>> |@>>>> |
  12.  $g[0], $g[1],$g[2], $g[3],$g[4]
  13. +------+------+------+------+------+
  14. .
  15. sub make_card {
  16.   @B = List::Util::shuffle (1  .. 15);
  17.   @I = List::Util::shuffle (16 .. 30);
  18.   @N = List::Util::shuffle (31 .. 45);
  19.   @G = List::Util::shuffle (46 .. 60);
  20.   @O = List::Util::shuffle (61 .. 75);
  21. }
  22. sub show_card {
  23.   @g = ($B[0],$I[0],$N[0],$G[0],$O[0]); write;
  24.   @g = ($B[1],$I[1],$N[1],$G[1],$O[1]); write;
  25.   @g = ($B[2],$I[2],'FREE',$G[2],$O[2]); write;
  26.   @g = ($B[3],$I[3],$N[3],$G[3],$O[3]); write;
  27.   @g = ($B[4],$I[4],$N[4],$G[4],$O[4]); write;
  28.   $-=0;
  29. }
  30. for (0..5) {
  31.   make_card;
  32.   show_card;
  33. }
  34.  
Success #stdin #stdout 0.01s 4496KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
    B      I      N      G      O
+------+------+------+------+------+
|    2 |   19 |   43 |   48 |   64 |
+------+------+------+------+------+
|    8 |   24 |   32 |   60 |   74 |
+------+------+------+------+------+
|   13 |   28 | FREE |   55 |   75 |
+------+------+------+------+------+
|    4 |   16 |   39 |   53 |   69 |
+------+------+------+------+------+
|    9 |   30 |   35 |   52 |   72 |
+------+------+------+------+------+

    B      I      N      G      O
+------+------+------+------+------+
|   12 |   26 |   34 |   50 |   72 |
+------+------+------+------+------+
|   14 |   24 |   40 |   48 |   68 |
+------+------+------+------+------+
|    4 |   17 | FREE |   56 |   69 |
+------+------+------+------+------+
|   11 |   18 |   37 |   55 |   62 |
+------+------+------+------+------+
|    3 |   28 |   35 |   59 |   74 |
+------+------+------+------+------+

    B      I      N      G      O
+------+------+------+------+------+
|   11 |   30 |   38 |   46 |   63 |
+------+------+------+------+------+
|    3 |   24 |   44 |   60 |   69 |
+------+------+------+------+------+
|   13 |   26 | FREE |   57 |   70 |
+------+------+------+------+------+
|   15 |   23 |   35 |   51 |   66 |
+------+------+------+------+------+
|   12 |   20 |   43 |   52 |   71 |
+------+------+------+------+------+

    B      I      N      G      O
+------+------+------+------+------+
|   13 |   27 |   42 |   55 |   63 |
+------+------+------+------+------+
|    9 |   21 |   41 |   56 |   70 |
+------+------+------+------+------+
|    5 |   24 | FREE |   57 |   67 |
+------+------+------+------+------+
|    4 |   17 |   45 |   58 |   65 |
+------+------+------+------+------+
|   12 |   23 |   37 |   59 |   66 |
+------+------+------+------+------+

    B      I      N      G      O
+------+------+------+------+------+
|   11 |   27 |   43 |   54 |   73 |
+------+------+------+------+------+
|   10 |   17 |   37 |   58 |   69 |
+------+------+------+------+------+
|   14 |   25 | FREE |   60 |   65 |
+------+------+------+------+------+
|    7 |   19 |   40 |   51 |   71 |
+------+------+------+------+------+
|   13 |   23 |   36 |   49 |   72 |
+------+------+------+------+------+

    B      I      N      G      O
+------+------+------+------+------+
|    3 |   16 |   44 |   60 |   69 |
+------+------+------+------+------+
|    8 |   21 |   43 |   54 |   62 |
+------+------+------+------+------+
|   12 |   17 | FREE |   50 |   66 |
+------+------+------+------+------+
|   10 |   29 |   33 |   59 |   70 |
+------+------+------+------+------+
|    9 |   26 |   40 |   49 |   68 |
+------+------+------+------+------+
https://ideone.com/82oHLD
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!