blob: 2e11d61f7f2e044d46865e376c8688563814f273 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
#!/usr/bin/env perl
use List::Util;
use v5.26;
my $n=$ARGV[0]//4;
my @number=1..$n;
my @waves=grep {
my $res=1;
while (my ($k,$v)=each @$_) {
state $prev;
unless ($k) {
$prev=$v;
next;
}
my $op=(($k%2)==0) ? 1 : -1;
$res &&=($v-$prev)*$op > 0;
last unless $res;
$prev=$v;
}
$res?$_: ();
}
combinations(\@number,$n);
say join ",", @$_ for @waves;
sub combinations {
my @combinations=();
my ($data,$size)=@_;
my @indexes=(0) x ($size+1);;
my $i=0;
until ($indexes[$size]) {
my $count=List::Util::uniq(@indexes[0..$size-1]);
push @combinations, [@$data[@indexes[0..$size-1]]] if $count == $size;
$indexes[0]++;
for (0..$size-1) {
if ($indexes[$_] != 0 and 0 == ($indexes[$_] % @$data)) {
$indexes[$_]=0;
$indexes[$_+1]++;
}
}
}
@combinations;
}
|
