Algotithmus für Permutationen?

[AtWork]

Hallo!
Ich habe das folgende Problem: Bin auf der Suche nach einem möglichst schnellen Algorithmus zur Berechnung von Permutationen.
Ein Beispiel: Sei die Reihe {1,4,5,8,6,7,9} gegeben.
Die Permutation 012 kommt 3-mal vor ({1,4,5},{4,5,8},{6,7,9}), die Permutation 021 kommt 1-mal vor ({5,8,6}) und 201 kommt 1-mal vor ({8,6,7}).
Der Algorithmus sollte mir die Anzahl der Permutationen einer Sorte ausgeben, wobei die Art der "Sorte" keine Rolle spielt. Als Output würde also (3,1,1) ausreichen.
Bisher habe ich alles mit IF-Schleifen gemacht. Wenn ich aber mehr als 3 Zahlen vergleichen will, muss ich ziemlich viel tippen. Das geht bestimmt auch eleganter. Weiss jemand wie?

Vielen Dank....