Thread Präfixe rausschreiben (7 answers)
Opened by Philipp at 2012-04-29 13:14

moritz
 2012-04-29 23:12
#157951 #157951
User since
2007-05-11
923 articles
HausmeisterIn
[Homepage]
user image
Und falls dich doch eine Perl 6-Lösung interessiert:

Code: (dl )
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
use v6;

my $in = q[201.1 201(27,28,3,4,83,84,890,897,898,9)
201.1 2054
201.2 201(1,20-26,29,80-82,891-896,899)
201.3 201(52-54,6,75,76,85-88)
201.4 201(50,51,55-59,70-74,77-79)
202.1 202(20-24,28,29,4,75,8,90-92,94,95,97-99)
202.2 202(1,27,3,70-74,76-79,93)
202.3 202(25,26,5,6,96)
203.1 203(1-3,41-45,9)
203.1 206
203.2 203(40,46-49,5,8)
203.3 203(6,7)
2041.1 204
2051.1 2051
2051.1 2052
2051.1 2053
2051.1 2056
2051.1 2058];

for $in.lines {
my ($left, $right) = .words;
if $right ~~ /'(' (.*) ')'/ {
my $prefix = $right.substr(0, $/.from);
say "$left\t$prefix$_" for $0.split: ',';
}
else {
.say;
}
}


Funktioniert mit aktuellem Rakudo und Niecza.

View full thread Präfixe rausschreiben