initial commit

8 files changed, 63 insertions, 0 deletions

diff --git a/challenge-144/adam-russell/blog.txt b/challenge-144/adam-russell/blog.txt
new file mode 100644
index 0000000000..e69de29bb2
--- /dev/null
+++ b/challenge-144/adam-russell/blog.txt
diff --git a/challenge-144/adam-russell/blog1.txt b/challenge-144/adam-russell/blog1.txt
new file mode 100644
index 0000000000..e69de29bb2
--- /dev/null
+++ b/challenge-144/adam-russell/blog1.txt
diff --git a/challenge-144/adam-russell/cxx/ch-1.cxx b/challenge-144/adam-russell/cxx/ch-1.cxx
new file mode 100644
index 0000000000..e69de29bb2
--- /dev/null
+++ b/challenge-144/adam-russell/cxx/ch-1.cxx
diff --git a/challenge-144/adam-russell/cxx/ch-2.cxx b/challenge-144/adam-russell/cxx/ch-2.cxx
new file mode 100644
index 0000000000..e69de29bb2
--- /dev/null
+++ b/challenge-144/adam-russell/cxx/ch-2.cxx
diff --git a/challenge-144/adam-russell/perl/ch-1.pl b/challenge-144/adam-russell/perl/ch-1.pl
new file mode 100644
index 0000000000..fa42aad875
--- /dev/null
+++ b/challenge-144/adam-russell/perl/ch-1.pl
@@ -0,0 +1,47 @@
+use strict;
+use warnings;
+##
+#   
+##
+use boolean; 
+use LWP::UserAgent;
+use constant PRIME_URL => "http://primes.utm.edu/lists/small/100000.txt";
+
+sub get_primes{
+    my @primes;
+    my $ua = new LWP::UserAgent(
+        ssl_opts => {verify_hostname => 0}
+    );
+    my $response = $ua->get(PRIME_URL);
+    my @lines = split(/\n/,$response->decoded_content);
+    foreach my $line (@lines){
+        my @p = split(/\s+/, $line);
+        unless(@p < 10){
+            push @primes, @p[1..(@p - 1)];
+        }
+    }
+    return @primes;
+}
+
+sub factor{
+    my($n) = @_;
+    my @factors = ();
+    for  my $j (2 .. sqrt($n)){
+        push @factors, [$j, $n / $j] if $n % $j == 0;
+    }
+    return @factors;
+}
+
+semiprime{
+    my($n) = @_;
+    my @primes = get_primes; 
+    my @factors = factor($n);
+    return false if @factors != 1;  
+    my @prime_factors = grep {$factors[0]->[0] == $_ || $factors[0]->[1] == $_} @primes;     
+    return false if @prime_factors != 2; 
+    return true; 
+}
+
+MAIN:{
+    semiprime_100;
+}
diff --git a/challenge-144/adam-russell/perl/ch-2.pl b/challenge-144/adam-russell/perl/ch-2.pl
new file mode 100644
index 0000000000..ad275c0103
--- /dev/null
+++ b/challenge-144/adam-russell/perl/ch-2.pl
@@ -0,0 +1,16 @@
+use strict;
+use warnings;
+##
+#    
+##
+
+use constant ULAM_LIMIT => 10;   
+
+sub ulam{
+    my($u, $v) = @_;    
+
+}
+
+MAIN:{
+    ulam(1, 2);   
+}
diff --git a/challenge-144/adam-russell/prolog/ch-1.p b/challenge-144/adam-russell/prolog/ch-1.p
new file mode 100644
index 0000000000..e69de29bb2
--- /dev/null
+++ b/challenge-144/adam-russell/prolog/ch-1.p
diff --git a/challenge-144/adam-russell/prolog/ch-2.p b/challenge-144/adam-russell/prolog/ch-2.p
new file mode 100644
index 0000000000..e69de29bb2
--- /dev/null
+++ b/challenge-144/adam-russell/prolog/ch-2.p