Added ch-1 solutions. perl and raku

2 files changed, 12 insertions, 0 deletions

diff --git a/challenge-049/ruben-westerberg/perl/ch-1.pl b/challenge-049/ruben-westerberg/perl/ch-1.pl
new file mode 100755
index 0000000000..b2df8150ad
--- /dev/null
+++ b/challenge-049/ruben-westerberg/perl/ch-1.pl
@@ -0,0 +1,7 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+my ($num, $factor)=($ARGV[0]//55,1);
+$factor++ until  ($num*$factor) =~ /^[01]+$/;
+printf "Smallest multiple: %d\n",$num*$factor;
diff --git a/challenge-049/ruben-westerberg/raku/ch-1.raku b/challenge-049/ruben-westerberg/raku/ch-1.raku
new file mode 100755
index 0000000000..46a1be2e4a
--- /dev/null
+++ b/challenge-049/ruben-westerberg/raku/ch-1.raku
@@ -0,0 +1,5 @@
+#!/usr/bin/env raku
+
+my ($num, $factor)=(@*ARGS[0]//55,1);
+$factor++ until ($num*$factor) ~~ /^<[01]>+$/;
+printf "Smallest multiple: %d\n",$num*$factor;