blob: 496888a5daa07fe809ad7d71992ac51cb2607a5d (
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
#!/usr/bin/env rakudo
#
# ex. ./ch-2.raku < input.txt # where input is rectangular shaped data block of numbers
#
sub MAIN () {
my $d = verifyInput();
"Input:".say;
$d.join("\n").say;
my $output;
while ($d) {
my $f = $d.shift;
$output.push($f);
if ($d) {
my $l = $d.pop.reverse;
my $leftCnt = 0;
my $tmp;
while ($d) {
my $t = shift $d;
if ( $t.elems ) {
my $tl = pop $t;
$output.push($tl);
$tmp.push($t);
}
$leftCnt++;
}
if ( $l ) {
$output.push($l);
$l = Nil;
}
while ( $leftCnt >0 ) {
my $t = pop $tmp;
if ( $t.elems ) {
my $tf = shift $t;
$output.push($tf);
if ( $d ) {
$d.unshift( ($t) );
} else {
$d = [$t];
}
}
$leftCnt--;
}
}
}
"".say;
"Output:".say;
$output.List.flat.join(", ").say;
}
sub verifyInput() {
my $data;
my $lcnt = 0;
my $dsz = 0;
for $*IN.lines() -> $l {
my @d = $l.comb(/\d+/);
if ( $dsz == 0 ) { $dsz = @d.elems; }
if ( $dsz != @d.elems ) { die "Input must be in rectangular format."; }
$data.push( @d );
$lcnt++;
}
if ( $lcnt < 2 ) { die "there must be at least 2 lines of input."; }
if ( $dsz < 2 ) { die "line length must be greater than 1."; }
return $data;
}
|
