|
몬티홀 게임 혹은 시뮬레이션 죄다 엉망이군.
n 개 중 하나 선택했을 때 그것이 맞을 확률 1/n , 그리고 나머지에 (n-1)/n에 있음을 보여 주는code이군요.
동전 프로그램이어야지 다른 식은 언어도단입니다. 즉 남아 있는 2개 중에 경품이 있다를 무시하고 있습니다. 한 10년 만에 써보는 perl 이니 문법보다 내용만 보세요. @cup=(0,0); $win=0; $lose=0; $ran=rand()*10 & 1; # ran은 0이나 1을 가진다.
for ($_=0; $_<100; $_++:) { if ($ran ==0) { $cup[0]=1; $cup[1]=0;} else {$cup[0]=0; $cup[1]=1;} if ($cup[0]=1) $win++ else $lose++; }
# 처음 컵 선택시지만 두번째 컵 선택이라고 마찬가지 결과 print (" Win = ", $win, "Lose = ", $lose);
여기서, $cup[0] 이 $ ran 이니, 랜덤함수의 홀 짝은 비율이 같을 수 밖에 없다.
니무 위키에서 보니, 실제 php 프로그램 코드 있네요. 입 맛대로 만들어 논. n개 중에 하나 1을 배정하고, 나머지는 사회자가 다 가져가는 식으로.. 코드는 안 봤지만 인터넷에 올라온 몬티 컴게임은 100% 그식일겝니다.
선행과 전혀 상관 없이 남은 두 카드는 0 이거나 1인데, 하나만 1이라는 프로그램을 짜야지. n 개의 배열에 하나만 1을 넣어 놓고, 한 배열 변수가 1일 확률 구하는 프로그램이에요 죄다.
만에 하나, 그런 식의 접근이라도, n개 배열에 1을 하나만 넣은 다음,
배열변수가 0인 n-2 개를 제외하면, 두개가 남지요, i와k.
이 두 배열 값(배열[i], 배열[k])은 0 이거나 1입니다. 단 배열[i]와 배열[k] 값은 달라야 합니다.
이것을 수 만 번 시행해서 배열[i]와 배열[k] 합을 봐야지오 .
이것을 해봐야지 안다고요? 지렁이 앞에 가서 코 박으세요.
저는 unix사용자였기에 perl을 무척 사량햇습니다. unix 명령들을 그냥 그대로 수행할 수 있으니까요. 특히 awk과 sed를 쓰면 프로그램이 매우 간편해지지요. 헌데 regular expression 사용시 특수문자(delimiter)나 변수 사용시는 , 코드 최소화하는데 언제나 도전이었고 대부분 escape(\) 로 해결이 가능했지요. 세계 최단 코드가 언제나 목표였으니까요.
|
.png){kind=logo}
