challenge-325/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
22
23
24

#!/usr/bin/env perl

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

sub main (@prices) {
    my @solution = ();
    foreach my $i ( 0 .. $#prices ) {
        my $discount = 0;
        foreach my $j ( $i + 1 .. $#prices ) {
            if ( $prices[$j] <= $prices[$i] ) {
                $discount = $prices[$j];
                last;
            }
        }
        push @solution, $prices[$i] - $discount;
    }

    say '(' . join( ', ', @solution ) . ')';
}

main(@ARGV);