Added ch-2.pl and ch-2.p6

2 files changed, 23 insertions, 0 deletions

diff --git a/challenge-041/ruben-westerberg/perl/ch-2.pl b/challenge-041/ruben-westerberg/perl/ch-2.pl
new file mode 100755
index 0000000000..3a2f87592d
--- /dev/null
+++ b/challenge-041/ruben-westerberg/perl/ch-2.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use v5.26;
+
+print map { "n: $_ l: ".l($_)."\n"} 0..19;
+
+sub l {
+	my $i=shift;
+	state @cache=(1,1);
+	push @cache, $cache[-1]+$cache[-2]+1 while(! defined($cache[$i]));
+	$cache[$i];
+}
diff --git a/challenge-041/ruben-westerberg/raku/ch-2.p6 b/challenge-041/ruben-westerberg/raku/ch-2.p6
new file mode 100755
index 0000000000..cd75f4258a
--- /dev/null
+++ b/challenge-041/ruben-westerberg/raku/ch-2.p6
@@ -0,0 +1,10 @@
+#!/usr/bin/env perl6
+
+put (0..19).map({ "n: $_ l: "~l($_)}).join("\n");
+
+sub l($i) {
+	state @cache=(1,1);
+	@cache.push(@cache[*-1,*-2].sum+1) while !@cache[$i].defined;
+	@cache[$i];
+}
+