15 lines
350 B
ObjectPascal
15 lines
350 B
ObjectPascal
// Все виды использования Permutations, Combinations, Cartesian
|
||
##
|
||
var a := Arr(1,3,5,7);
|
||
a.Permutations.Println;
|
||
a.Cartesian(2).Println;
|
||
a.Permutations(2).Println;
|
||
a.Combinations(2).Println;
|
||
Println;
|
||
var s := Seq(1,3,5,7);
|
||
s.Permutations.Println;
|
||
s.Cartesian(2).Println;
|
||
s.Permutations(2).Println;
|
||
s.Combinations(2).Println;
|
||
|