Matematiker ??? Se her!

Jeg har vist godt nok en uddannelse med matematik og
statistik, men jeg kan bedre lide at prøve mig frem.
Jeg har skrevet i lille Perl-program, der spiller Memory
med 2x18 brikker. Og det spiller optimalt. Det blander
selv og snyder ikke. Af 10000 spil fik jeg disse resultater:

27 = 106
28 = 2477
29 = 5564
30 = 1802
31 = 51

Altså i 106 tilfælde af 10000 tog det 27 træk (vend af 2 kort)
at finde dem allesammen. Er man meget heldig, kan man gøre
det på 18, men det indtraf ikke. Flere kørsler giver samme
billede. Vil du se programmet? I din terminologi er antal klik
altså lig det dobbelte af mine "træk".

Ok, det kan gøres lidt bedre. Får man som kort nummer 2 et kort man har
set før, vil man selvfølgelig tage dem i næste træk. Det giver lidt bedre tal:

25 = 8
26 = 113
27 = 1118
28 = 3618
29 = 3763
30 = 1268
31 = 109
32 = 3

maksimum, hvis man er dygtig - og uheldig - er 34, opnået på denne måde:

1,2 1,3 (1,1) 4,3 (3,3) 5,4 (4,4) 6,5 (5,5) 7,6 (6,6) 8,7 (7,7) 9,8 (8,8)
10,9 (9,9) 11,10 (10,10) 12,11 (11,11) 13,12 (12,12) 14,13 (13,13)
15,14 (14,14) 16,15 (15,15) 17,16 (16,16) 18,17 (17,17) 18,18

12,11 betyder at man først trække 12 og så 11
(11,11) betyder at man nu kender begge 11-eres placering og trække begge for
at få det overstået.

Og Perl-programmet er her - uden kommentarer (Livet er for kort til kommentarer ... ;-) )

$test=0;
for ($spil=1;$spil<=10000;$spil++) {

  for ($i=1,$c=1;$i<=36;$i=$i+2,$c++) {
    $a[$i]=$c;
    $a[$i+1]=$c;
  }

  for ($i=1;$i<=36;$i++) { #kortene blandes
    $x=int(rand 36)+1;
    $tmp=$a[$i];
    $a[$i]=$a[$x];
    $a[$x]=$tmp;
  }

  sub traek {
    my $start=1;
    while ($a[$start]==0) {
      $start++;
    }
    my $val=$a[$start];
    $a[$start]=0;
    return $val;
  }
  print "-------------------\n" if $test;
  $antal=18; $traek=0; undef(%set);
  while ($antal>0) {
    $x=&traek; $traek++;  print "$x" if $test;
    if ($set{$x}) {
      $antal--; print " set før" if $test;
    } else {
      $set{$x}=1;
      $y=&traek(); print " $y" if $test;
      if ($x==$y) {
        $antal--; print " ens" if $test;
      } elsif ($set{$y}) {
        $traek++; $antal--; print " og $y er set før" if $test;
      } else {
        $set{$y}=1;
      }
    }
    print "\n" if $test;
  }
  $stat[$traek]++;
}

for ($i=1;$i<=1000;$i++) {
  if ($stat[$i]!=0) {
    print "$i = $stat[$i]\n";
  }
}

*GG*

Rolig Erik - rolig.

jeg har ikke brug fo al den data *S*

jeg skal bare vide hvordan sådan en scoreliste skal se ud *s*

kan du bekræftige at dette er realistisk ?

36 - 50 klik : du har en fessors hjerne
50 - 75 klik : der er meget dygtig
76 - 100 klik : du er ved at være der
101 - 125 klik : du kan blive bedre
126 - ??? : prøv spillet igen :-)

Må jeg ikke have det lidt sjovt ????

Jeg mener at du skal have

  36-50: Du er godt nok heldig
  51-68: Du er en professor  (eller 70, men bruger man 70 har man ikke spillet optimalt!!)
  69-....resten må du selv om.

Bruger vi de samme regler?
Mulighed 1
  Sålænge der er kort på bordet:
    træk et kort, og kig op det
    træk et andet, kort
    hvis de er ens har du et stik og fjerner dem
    ellers vender du begge kort

Mulighed 2
  Sålænge der er kort på bordet
    træk 2 kort (2 kort afhænger altså ikke af første kort)
    hvis de er ens har du et stik og fjerner dem
    ellers vender du begge kort

Jeg har brugt mulighed 1

2 fejl:

  I 30-06-00 12:44:43 skal 1,3 være 3,1
  I 30-06-00 13:01:47 skal "træk et kort, og kig op det" være "træk et kort, og kig på det"

Erik < skide godt arbejde - du fortjener de 60 point :-)