doesn't use a likned list directly because it's a weird thing to do in Perl or Raku

1 files changed, 13 insertions, 0 deletions

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;
+}