challenge-326/sgreen/perl/ch-2.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

#!/usr/bin/env perl

use strict;
use warnings;
use feature 'say';
use experimental 'signatures';

sub main (@ints) {
    my @result = ();
    for ( my $i = 0 ; $i <= $#ints ; $i += 2 ) {
        my $count = $ints[$i];
        my $value = $ints[ $i + 1 ];
        foreach my $j ( 1 .. $count ) {
            push @result, $value;
        }
    }

    say "(" . join( ", ", @result ) . ")";
}

main(@ARGV);