From c4d4ea6d47d2bdb737cec5ad05472f63e7e762d3 Mon Sep 17 00:00:00 2001 From: Simon Proctor Date: Mon, 4 May 2020 10:40:54 +0100 Subject: doesn't use a likned list directly because it's a weird thing to do in Perl or Raku --- challenge-059/simon-proctor/raku/ch-1.raku | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 challenge-059/simon-proctor/raku/ch-1.raku (limited to 'challenge-059') diff --git a/challenge-059/simon-proctor/raku/ch-1.raku b/challenge-059/simon-proctor/raku/ch-1.raku new file mode 100644 index 0000000000..3c485e913a --- /dev/null +++ b/challenge-059/simon-proctor/raku/ch-1.raku @@ -0,0 +1,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; +} -- cgit