challenge-059/mohammad-anwar/raku/ch-1.p6


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

#!/usr/bin/env perl6

use v6.d;

sub MAIN($L = [ 1, 4, 3, 2, 5, 2 ], $K = 3) {

    my $O = split-list($L, $K);
    say sprintf("Input:  [ %s ]", $L.join(" -> "));
    say sprintf("Output: [ %s ]", $O.join(" -> "));
}

sub split-list($L, $K) {

    my $before = [];
    my $after  = [];
    for |$L -> $i {
        if $i < $K {
            $before.push: $i;
        }
        else {
            $after.push: $i;
        }
    }

    return [ |$before, |$after ];
}