fork download 
  1. use 5.012;
  2. use warnings;
  3.  
  4. my %r;
  5. for(1..1000){
  6.     my $n = join('', sort{ (rand() < 0.5) ? -1 : 1 } (1..3));
  7. 	$r{$n}++;
  8. }
  9.  
  10. foreach(sort keys %r){
  11. 	say "$_ => $r{$_}";
  12. }
  13.  
  14. __END__
  15.  
  16. -+- 1,2 -+- 1,3 -+- 2,3 - 123
  17.  |       |       +- 3,2 - 132
  18.  |       |
  19.  |       +- 3,1 - 321
  20.  |
  21.  +- 2,1 -+- 2,3 -+- 1,3 - 213
  22.          |       +- 3,1 - 231
  23.          |
  24.          +- 3,2 - 312
  25.  
  26. 123, 132, 213, 231 の確率 1/8
  27. 312, 321 の確率 1/4
  28.  
Success #stdin #stdout 0s 4684KB
comments (?)
stdin 
Standard input is empty
stdout 
123 => 112
132 => 139
213 => 127
231 => 131
312 => 244
321 => 247
https://ideone.com/Ni7koB
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!