challenge-059/simon-proctor/raku/ch-1.raku


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

#!/usr/bin/env raku

use v6;

#| Given an inflaction point and a list of values put all the items less than the inflection point
#| at the start of the last and all those great or equal after. Retain ordering.
sub MAIN (
    Int $inflection, #= Inflection point
    *@rest where .all ~~ Int #= List of values 
) {
    my %c = @rest.classify( * >= $inflection );
    ( |%c{False}, |%c{True} ).say;
}