0 ... keine Übereinstimmung

Noch einmal

ListeA = Sequence(Random[1, 6], i, 1, 300)
ListeB = Sequence(Random[1, 6], i, 1, 300)
ListeC = Sequence(Random[1, 6], i, 1, 300)
Ergebnis1 = Sequence(If[Element[ListeA, i] ≟ Element[ListeB, i], Element[ListeA, i], 0], i, 1, 300)
Ergebnis = Sequence(If[Element[ListeC, i] ≟ Element[Ergebnis1, i], Element[ListeC, i], 0], i, 1, 300)
n = BarChart(Ergebnis, 1)