Neuberechnung mit F9 bzw Strg+R

l = 300
n = 8 (slider from 1 to 20, step 1)
Z = Sequence(Random[1, n], i, 1, l)
T = Sequence(Unique[Take[Z, 1, n]], n, 1, l)
S = Sequence(i, i, 1, n)
V = Sort(Sequence[If[S ≟ Element[T, k], k, l], k, 1, Length[T]])
Laenge = Element(V, 1)
Text1 = LaTeX(S, true, true)
L = Take(Z, 1, Laenge)
Text2 = LaTeX(L, true, true)
Text3 = LaTeX(Laenge, true, true)
Text4 = Text("Simuliert wird das Warten auf die Serie S.")
Text5 = Text("Nach 300 Versuchen wird die Suche abgebrochen.")