- Added solutions by David Santiago.

2 files changed, 21 insertions, 0 deletions

diff --git a/challenge-143/david-santiago/raku/ch-1.raku b/challenge-143/david-santiago/raku/ch-1.raku
new file mode 100755
index 0000000000..65553e4fcd
--- /dev/null
+++ b/challenge-143/david-santiago/raku/ch-1.raku
@@ -0,0 +1,5 @@
+use MONKEY-SEE-NO-EVAL;
+
+sub MAIN($expression) {
+    say EVAL $expression;
+}
diff --git a/challenge-143/david-santiago/raku/ch-2.raku b/challenge-143/david-santiago/raku/ch-2.raku
new file mode 100755
index 0000000000..60007ddf5c
--- /dev/null
+++ b/challenge-143/david-santiago/raku/ch-2.raku
@@ -0,0 +1,16 @@
+#!/usr/bin/env raku
+
+# bipronic numbers:
+# Numbers of the form x*(x+1) * y*(y+1) ("bipronics") with x and y nonnegative integers. 
+
+sub MAIN (Int $n){
+    for (1..$n/2.ceiling) -> $a {
+	for (1..$a) -> $b {
+	    if $a*($a+1) * $b*($b+1) == $n {
+		say "Yes";
+		return;
+	    }
+	}
+    }  
+    say "No";
+}