Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re^4: [OT] Stats problem

by Anonymous Monk
on Feb 26, 2015 at 15:17 UTC ( #1117963=note: print w/replies, xml ) Need Help??


in reply to Re^3: [OT] Stats problem
in thread [OT] Stats problem

Just for fun, a simulation to confirm:

use List::Util qw/shuffle sum/; my $RUNS = 1_000_000; my %counts; for (1..$RUNS) { my @deck = shuffle 0..51; my $in_correct_loc = grep {$_==$deck[$_]} 0..51; $counts{$in_correct_loc}++; } print "Number of cards in the correct position: % of runs\n"; printf "% 4d: %.4f%%\n", $_, 100*$counts{$_}/$RUNS for sort {$a<=>$b} keys %counts; my $one_or_more = sum map {$_//0} @counts{1..52}; printf "1-52: %.4f%%\n", 100*$one_or_more/$RUNS; __END__ Number of cards in the correct position: % of runs 0: 36.8130% 1: 36.8086% 2: 18.3846% 3: 6.1085% 4: 1.5349% 5: 0.2926% 6: 0.0487% 7: 0.0080% 8: 0.0010% 9: 0.0001% 1-52: 63.1870%

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1117963]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (9)
As of 2020-05-31 10:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    If programming languages were movie genres, Perl would be:















    Results (173 votes). Check out past polls.

    Notices?