Пакеты функций комбинаторики
Ниже даны примеры применения некоторых из этих функций:
> choose(4.3);
[[1.2.3],[1.2.4],[1.3.4],[2.3.4]]
> choose([a,a,b,c].3):
[[a,a,b],[a,a,c],[atb,c]]
> composition(3.2):
{[2.1],[1.2]}
> decodepart(4.2);
[1.1.2]
> fibonacci(l0);
55
> seq(fibonacci(1),i-1..12):
1.1.2.3.5.8.13.21.34.55.89.144
> partition(5);
[[1.1,1.1,1], [1.1,1.2], [1.2.2], [1.1.3], [2.3], [1.4], [5]]
> firstpart(3):
[1.1,1]
> nextpart(%);
[1.2]
> prevpart(%);
[1.1,1]
> lastpart(3):
[3]
> conjpart(%):
[1.1,1]
> multinomial(8.2.3.3);
560
> numbcomp(8.5):
35
> nuropart(3);
numpart(3)
> numbperm(4);
24
> numbperm([a,b]):
2
> numbperm({a,b,c},2);
6
> permute(3.2);
[[1,-2],[1.3],[2.1],[2.3],[3.1],[3.2]]
> permute([a,a,b],2):
[[a,a],[a,b],(b,a]]
> powerset([a,a,b]):
[[],[а],[b],[а,Ь],[а,а],[а,а,b-]]
> randcomb([a,b,c,d],3):
[a,c,d]
> randcomb([a,b,c,d],3);
[a,b,d]
> randpart(l0);
[2.8]
> randpart(l0):
[10]
> stirling(10.5);
-269325
> stirling2(10.5):
42525
> S: = subsets({1.2}):
> while not S[finished] do S[nextva1ue]() od:
{ }
{1}
{2}
{1.2}
> vectoint([l,0.0]);
1
> inttovec(6.3);
[1.0.1]
Читателю, желающему использовать данный пакет, рекомендуется внимательно ознакомиться с этими простыми примерами и просмотреть примеры из справочной базы данных для имеющихся в пакете функций.