adsense728x90


perl로 간단히 추첨 code Ruby



perl -e '@m = qw(a b c); warn $m[int rand(@m)]'


a, b, c 중 하나가 나온다.


histogram을 그려서 검증


use strict;

use warnings;


my %hist;

my @m = qw(a b c);


for ( my $i = 0; $i < 100000; $i++) {

  my $lucky = int rand(@m);

  #print "$lucky ";

  $hist{$lucky}++;

}


no warnings 'uninitialized';

foreach my $i (0 .. @m-1) {

  printf "$i: $hist{$i}\n"

}



ruby는 

ruby -e 'puts %w(a b c).sample'




덧글

댓글 입력 영역