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