NEUSTART

1

2

3

4

5

6

Prüfen

Leider falsch!

Richtig!

a1 = RandomPointIn(-3, -2, 2, 3)
w1 = Random(1, 6)
sek = 11 (slider from 0 to 11)
blindeck = Polygon((-4.713217450434637 | -5), (5.286782549565363 | -5), 4)
w2 = Random(1, 6)
a2 = RandomPointIn(-1, 2, 2, 3)
w3 = Random(1, 6)
w4 = Random(1, 6)
w5 = Random(1, 6)
w6 = Random(1, 6)
a3 = RandomPointIn(3, 4, 2, -1)
a4 = RandomPointIn(-3, -2, 0, -2)
a5 = RandomPointIn(0, 2, 1, -1)
a6 = RandomPointIn(-1, 2, -2, -3)
t: 6
liLoesung: {0, 0, 0, 0, 0, 0}
lErgebnis = Sort({w1, w2, w3, w4, w5, w6})
wahl = 3
richtig = false
pruefung = false
Text7 = TableText(liLoesung, "hc")
lihaeufigErg = Frequency(lErgebnis)
lierg = Unique(lErgebnis)
l1bis6 = Sequence(1, 6)
h1 = If(Defined[IndexOf[1, lierg]], Element[lihaeufigErg, IndexOf[1, lierg]], 0)
h2 = If(Defined[IndexOf[2, lierg]], Element[lihaeufigErg, IndexOf[2, lierg]], 0)
h3 = If(Defined[IndexOf[3, lierg]], Element[lihaeufigErg, IndexOf[3, lierg]], 0)
h4 = If(Defined[IndexOf[4, lierg]], Element[lihaeufigErg, IndexOf[4, lierg]], 0)
h5 = If(Defined[IndexOf[5, lierg]], Element[lihaeufigErg, IndexOf[5, lierg]], 0)
h6 = If(Defined[IndexOf[6, lierg]], Element[lihaeufigErg, IndexOf[6, lierg]], 0)
lihErgebnis = Sequence(If[Defined[IndexOf[k, lierg]], Element[lihaeufigErg, IndexOf[k, lierg]], 0], k, 1, 6)
lilsg = Unique(liLoesung)
lihaeufigLsg = Frequency(liLoesung)
lihLoesung = Sequence(If[Defined[IndexOf[k, lilsg]], Element[lihaeufigLsg, IndexOf[k, lilsg]], 0], k, 1, 6)
anzahlRichtige = Sum(Sequence[Min[Element[lihErgebnis, k], Element[lihLoesung, k]], k, 1, 6])
Text10: "" + anzahlRichtige + " richtig"
ohnet = true
a = Length(liLoesung)