Doing part 2 first this week. Will look at the seek stuff in a bit.

1 files changed, 27 insertions, 0 deletions

diff --git a/challenge-098/simon-proctor/raku/ch-2.raku b/challenge-098/simon-proctor/raku/ch-2.raku
new file mode 100644
index 0000000000..092b3fe86f
--- /dev/null
+++ b/challenge-098/simon-proctor/raku/ch-2.raku
@@ -0,0 +1,27 @@
+#!/usr/bin/env raku
+
+use v6;
+
+#| Given an int and a sorted list of ints output the index the first valus has (or should have) in the list
+multi sub MAIN ( Int $N, #= Integer to check the location of
+           *@N where @N.sort ~~ @N #= Sorted list of integers
+         ) {
+    say find-in-list($N,@N);
+}
+
+multi sub MAIN( "test" ) is hidden-from-USAGE {
+    use Test;
+    is( find-in-list( 3, [1,2,3,4] ), 2 );
+    is( find-in-list( 6, [1,3,5,7] ), 3 );
+    is( find-in-list( 10, [12,14,16,18] ), 0 );
+    is( find-in-list( 19, [11,13,15,17] ), 4 );
+    done-testing;
+}
+
+sub find-in-list( Int $n, @n ) {
+    for @n.kv -> $i, $v {
+        return $i if $v ~~ $n;
+        return $i if $v > $n;
+    }
+    return @n.elems;
+}