perl
for(1..10**6){
　$pair=12;$miss=$open=0;$close=$pair*2;
while($miss<9 and $pair){
　if((rand 1) < $open/$close){$open--;$pair--;$close--;}#一枚目で当たり
　else{$open++;$close--;
　　if((rand 1) < $open/$close){#二枚目でペア発見
　　　if((rand 1) < 1/$open){}else{$miss++;}#一枚目と同じ/違う
　　　$pair--;$open--;
　　}else{$miss++;$open++;}
　　$close--;
　}
}$count++ unless $pair;}print $count/10**4 . q/%クリア/;
98.7518%クリア

初級…$pair=6;$miss<3 で 13.87%くらい
もっともめくったカード全部覚えられるかという問題はあるけど