Lowest unfound integer challenge

1 files changed, 11 insertions, 0 deletions

diff --git a/challenge-080/simon-proctor/raku/ch-1.raku b/challenge-080/simon-proctor/raku/ch-1.raku
new file mode 100644
index 0000000000..2b86522724
--- /dev/null
+++ b/challenge-080/simon-proctor/raku/ch-1.raku
@@ -0,0 +1,11 @@
+#!/usr/bin/env raku
+
+use v6;
+
+#| Given a list of integers find the first positive integer not in the list.
+sub MAIN (
+    *@N where { $_.all ~~ Int } #= List of integers
+) {
+    say (1...*).first( * !~~ any(@N) );
+    
+}