From bab377cd85c27a372a72dd05949702c4e78f197b Mon Sep 17 00:00:00 2001 From: Lucas Ransan Date: Mon, 14 Jun 2021 21:22:04 +0200 Subject: Raku week 117 task 1 --- challenge-117/luc65r/README | 1 + challenge-117/luc65r/input.txt | 14 ++++++++++++++ challenge-117/luc65r/raku/ch-1.raku | 6 ++++++ 3 files changed, 21 insertions(+) create mode 100644 challenge-117/luc65r/README create mode 100644 challenge-117/luc65r/input.txt create mode 100755 challenge-117/luc65r/raku/ch-1.raku diff --git a/challenge-117/luc65r/README b/challenge-117/luc65r/README new file mode 100644 index 0000000000..ae1b87639b --- /dev/null +++ b/challenge-117/luc65r/README @@ -0,0 +1 @@ +Solutions by Lucas Ransan diff --git a/challenge-117/luc65r/input.txt b/challenge-117/luc65r/input.txt new file mode 100644 index 0000000000..5b9d9ab1ce --- /dev/null +++ b/challenge-117/luc65r/input.txt @@ -0,0 +1,14 @@ +11, Line Eleven +1, Line one +9, Line Nine +13, Line Thirteen +2, Line two +6, Line Six +8, Line Eight +10, Line Ten +7, Line Seven +4, Line Four +14, Line Fourteen +3, Line three +15, Line Fifteen +5, Line Five diff --git a/challenge-117/luc65r/raku/ch-1.raku b/challenge-117/luc65r/raku/ch-1.raku new file mode 100755 index 0000000000..07d06622a7 --- /dev/null +++ b/challenge-117/luc65r/raku/ch-1.raku @@ -0,0 +1,6 @@ +#!/usr/bin/env raku + +sub MAIN(Str:D $file = '-') { + my @ns = $file.IO.lines».match(/\d+/)».UInt; + .key.say for (@ns.min .. @ns.max) ∖ @ns; +} -- cgit