3 files changed, 84 insertions, 0 deletions
diff --git a/challenge-148/robert-dicicco/perl/ch-1.pl b/challenge-148/robert-dicicco/perl/ch-1.pl
new file mode 100644
index 0000000000..ac8de1c8d7
--- /dev/null
+++ b/challenge-148/robert-dicicco/perl/ch-1.pl
@@ -0,0 +1,20 @@
+#!perl.exe
+
+use strict;
+use warnings;
+use Lingua::EN::Numbers qw(num2en);
+
+### Author: Robert DiCicco
+### Date: 17-JAN-2022
+### Challenge 148 Eban Numbers
+
+my $n = 0;
+while($n < 100){
+    my $engnum = num2en($n);
+    if(index($engnum, 'e') == -1 ){
+        print("$n ");
+    }
+    $n++;
+}
+
+print("\n");
diff --git a/challenge-148/robert-dicicco/perl/ch-2.pl b/challenge-148/robert-dicicco/perl/ch-2.pl
new file mode 100644
index 0000000000..729beb0080
--- /dev/null
+++ b/challenge-148/robert-dicicco/perl/ch-2.pl
@@ -0,0 +1,45 @@
+#!perl.exe
+
+use strict;
+use warnings;
+use 5.30.0;
+
+### Author: Robert DiCicco
+### Date: 17-JAN-2022
+### Challenge 148 Cardano Triplets
+
+use constant MAX => 100;
+
+my $bc;
+my $count = 0;
+
+foreach my $aval ( 1..MAX ){
+    foreach my $bval ( 1..MAX ){
+        foreach my $cval ( 1..MAX ){
+            my $ret = isCardano( $aval, $bval, $cval );
+            if( $ret == 1 ){
+                $count++;
+                print("Count: $count\t\( $aval,$bval,$cval \)\n");
+            }
+            last if( $count == 10 );
+        }
+    }
+}
+
+sub isCardano {
+    my $a = int(shift);
+    my $b = int(shift);
+    my $c = int(shift);
+
+    $bc = $b * ( $c ** (1/2) );
+
+    my $val1 = ($a + $bc) ** (1/3);
+    my $val2 = abs(($a - $bc)) ** (1/3);
+    my $val3 = $val1 - $val2;
+
+    if( $val3 < 1.00001 and $val3 > 0.999999 ){
+        return 1;
+    } else {
+        return 0;
+    }
+}
diff --git a/challenge-148/robert-dicicco/ruby/ch-1.rb b/challenge-148/robert-dicicco/ruby/ch-1.rb
new file mode 100644
index 0000000000..0541f0f984
--- /dev/null
+++ b/challenge-148/robert-dicicco/ruby/ch-1.rb
@@ -0,0 +1,19 @@
+### Author: Robert DiCicco
+### Date: 18-JAN-2022
+### Challenge 148 Eban Numbers
+
+### Ruby Version
+
+require 'humanize'
+
+n = 0
+
+while n < 100
+    if n.humanize.count("e").zero?
+        print n.to_s + " "
+    end
+
+    n = n + 1
+end
+
+puts