Решения одной известной задачки
Jun. 4th, 2013 11:58 pm![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png)
# perl -le 'for(1..shift){$r[int(rand 3)==int(rand 3)]++}printf"%.03f\n",$r[0]/$r[1]' \ 10000000 2.001
# perl -le 'for(1..shift){$r[int(rand 3)==int(rand 3)]++}printf"%.03f\n",$r[0]/$r[1]' \ 10000000 2.001