Не знаю, как это делается на php, но в теории можно применить следующий алгоритм: Перебираем все числа от 0 (ни одного элемента) до (2^n) - 1 (все элементы), где n - длина масcива. На каждом шаге перебора смотрим все биты числа, и если i-й бит равен единице, то i-й элемент будет входить в комбинацию. Например, для трёх элементов:.
При этом все заданные цифры входят в запись числа. Таким образом, имеет место перестановки из 4 элементов и их число равно. 24 четырехзначных числа. Сколькими способами можно распределить между 7 спортсменами три призовых места. Пронумеруем спортсменов цифрами от 1 до 7. Рассмотрим все возможные комбинации этих цифр по три. Тогда будет соответствовать -тому призовому месту. В каждой такой комбинации будет важен порядок входящих в неё цифр и не все цифры задействованы. Следовательно, имеем размещение 7 элементов по три. То есть, из скольких комбинаций четырех цифр мне нужно было выбирать? Прежде всего, все возможные комбинации 6 из 49 формул игры должны.
0 - нет элементов. 1 - (001) только 1й элемент. 2 - (010) только 2й.
3 - (011) 2й и 1й. 4 - (100) только 3й. 5 - (101) 1й и 3й. 6 - (110) 1й и 2й. 7 - (111) 1й, 2й, 3й.
Цифра 4 В Нумерологии
Код: combi:='; MainForm.ListBox1.Clear; for i:=1 to n do //n-максимальная длина, тип Integer combi:=combi+s; //s-максимальное число тип Char. Переменная combi строкового типа. Например если нужно узнать сколько комбинаций в пятизначном числе (переменная n=5) состоящей из чисел от 0 до 3, то s='3'; for i:=0 to StrToInt(combi) do begin a:=0; for j:=1 to Length(IntToStr(i)) do begin if (StrToInt(IntToStr(i)j) in 0.StrToInt(s)) then a:=a+1; end; if a=Length(IntToStr(i)) then MainForm.ListBox1.AddItem(IntToStr(i),nil); // в ListBox1 записываем результат end; Минус в том, что чем длиннее комбинация тем дольше считает. Например на пятизначную комбинацию состоящей из чисел от 0 до 3 тратиться время в несколько секунд. Этот код максимально подходит под мои личные задачи.