challenge-059/laurent-rosenfeld/perl/ch-1.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

use strict;
use warnings;
use feature "say";

sub partition {
    my $k = shift;
    my @before = grep {$_ < $k} @_;
    my @after = grep {$_ >= $k} @_;
    return @before, @after;
}

my $k = shift;
my $list_str = shift // "1 4 3 2 5 2";
my @list = $list_str =~ /\d+/g;
my @result = partition $k, @list;
say join " → ", @result;