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;
|
|||
|
|
|