Kaktus

Я тоже пива хочууу.


N=3; %envelopes
P=100000; %popytki
cnt=0;
for p=1:P,
S=randperm(N); %shuffle

m=0; %match ?
for n=1:N,
if (S(n)==n),
m++;break;
end
end

if (m==0),
cnt++;
end

m=0;
end
cnt/P