Der/Die Nächste

Mit F9 bzw. Strg+R beginnen.

SuS: {"Karim  ", "Julian ", "Hagen  ", "Daniel ", "Nils", "Nicolas", "Martin ", "Jonas  ", "Thomas ", "Linus  ", "Thore  ", "Tim", "Julius ", "Till", "Eric "}
SuS2 = Join({SuS, SuS})
m = Length(SuS2)
L1 = Sequence(Random[0, 1000000000], i, 1, m)
L2 = Sort(L1)
L3 = Sequence(IndexOf[Element[L2, i], L1], i, 1, m)
L = Sequence(m)
Text1 = LaTeX(L, true, true)
Text2 = LaTeX(L3, true, true)
F9 = Random(1, 2)
A1 = 6
S = Element(SuS, Element[L3, Object["A1"]])
N = If(Object["A1"] ≟ 0 ∨ Object["A1"] > m, "", Element[SuS2, Element[L3, Object["A1"]]])
Text3: "" + N + ""