From f8e4d9c51244dbc1c7bdcfc95977493a3e5f9ce0 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 19 Dec 2022 10:10:43 +0100
Subject: Task 2 done

---
 challenge-196/luca-ferrari/raku/ch-2.p6 | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 challenge-196/luca-ferrari/raku/ch-2.p6

diff --git a/challenge-196/luca-ferrari/raku/ch-2.p6 b/challenge-196/luca-ferrari/raku/ch-2.p6
new file mode 100644
index 0000000000..69289313d7
--- /dev/null
+++ b/challenge-196/luca-ferrari/raku/ch-2.p6
@@ -0,0 +1,22 @@
+#!raku
+
+# Perl Weekly Challenge 196
+
+sub MAIN( *@list where { @list.grep( * ~~ Int ).elems == @list.elems } ) {
+
+    my @ranges;
+    my $start = -1;
+    my $end   = -1;
+    for 0 .. @list.elems {
+	next if ! $_;
+	next if $_ <= $end;
+
+	$start = $_;
+	$end   = $start;
+
+	$end++ while ( $end < @list.elems &&  @list[ $end + 1 ] == @list[ $end ] + 1 );
+	@ranges.push: [ $start, $end ] if ( $start < $end );
+    }
+
+    @ranges.join( "\n" ).say;
+}
-- 
cgit