Week 154: Boring solutions for a boring exercise.

29 files changed, 317 insertions, 0 deletions

diff --git a/challenge-154/abigail/awk/ch-2.awk b/challenge-154/abigail/awk/ch-2.awk
new file mode 100644
index 0000000000..bacab592c1
--- /dev/null
+++ b/challenge-154/abigail/awk/ch-2.awk
@@ -0,0 +1,13 @@
+#!/usr/bin/awk
+
+#
+# See https://theweeklychallenge.org/blog/perl-weekly-challenge-154
+#
+
+#
+# Run as: awk -f ch-2.awk
+#
+
+BEGIN {
+    print "2, 3, 5, 7, 37, 151, 3329, 23833, 13091204281, 3093215881333057"
+}
diff --git a/challenge-154/abigail/bash/ch-2.sh b/challenge-154/abigail/bash/ch-2.sh
new file mode 100644
index 0000000000..17c05c978c
--- /dev/null
+++ b/challenge-154/abigail/bash/ch-2.sh
@@ -0,0 +1,11 @@
+#!/bin/sh
+
+#
+# See https://theweeklychallenge.org/blog/perl-weekly-challenge-154
+#
+
+#
+# Run as: bash ch-2.sh
+#
+
+echo "2, 3, 5, 7, 37, 151, 3329, 23833, 13091204281, 3093215881333057"
diff --git a/challenge-154/abigail/basic/ch-2.bas b/challenge-154/abigail/basic/ch-2.bas
new file mode 100644
index 0000000000..c08bb06904
--- /dev/null
+++ b/challenge-154/abigail/basic/ch-2.bas
@@ -0,0 +1,9 @@
+010 REM 
+020 REM See https://theweeklychallenge.org/blog/perl-weekly-challenge-154
+030 REM 
+
+040 REM 
+050 REM Run as: basic ch-2.bas
+060 REM 
+
+100 PRINT "2, 3, 5, 7, 37, 151, 3329, 23833, 13091204281, 3093215881333057"
diff --git a/challenge-154/abigail/bc/ch-2.bc b/challenge-154/abigail/bc/ch-2.bc
new file mode 100644
index 0000000000..880de05869
--- /dev/null
+++ b/challenge-154/abigail/bc/ch-2.bc
@@ -0,0 +1,12 @@
+#!/usr/bin/bc
+
+#
+# See https://theweeklychallenge.org/blog/perl-weekly-challenge-154
+#
+
+#
+# Run as: bc ch-2.bc
+#
+"2, 3, 5, 7, 37, 151, 3329, 23833, 13091204281, 3093215881333057
+"
+quit
diff --git a/challenge-154/abigail/befunge-93/ch-2.bf93 b/challenge-154/abigail/befunge-93/ch-2.bf93
new file mode 100644
index 0000000000..c027554922
--- /dev/null
+++ b/challenge-154/abigail/befunge-93/ch-2.bf93
@@ -0,0 +1,2 @@
+< v,_@#:< "2, 3, 5, 7, 37, 151, 3329, 23833, 13091204281, 3093215881333057" +55
+  >     ^
diff --git a/challenge-154/abigail/c/ch-2.c b/challenge-154/abigail/c/ch-2.c
new file mode 100644
index 0000000000..0bfb7a0175
--- /dev/null
+++ b/challenge-154/abigail/c/ch-2.c
@@ -0,0 +1,16 @@
+# include <stdlib.h>
+# include <stdio.h>
+# include <string.h>
+
+/*
+ * See https://theweeklychallenge.org/blog/perl-weekly-challenge-154
+ */
+
+/*
+ * Run as: cc -o ch-2.o ch-2.c; ./ch-2.o
+ */
+
+int main (void) {
+    printf ("2, 3, 5, 7, 37, 151, 3329, 23833, 13091204281, 3093215881333057\n");
+    exit (0);
+}
diff --git a/challenge-154/abigail/cobol/ch-2.cb b/challenge-154/abigail/cobol/ch-2.cb
new file mode 100644
index 0000000000..18c7b58e88
--- /dev/null
+++ b/challenge-154/abigail/cobol/ch-2.cb
@@ -0,0 +1,14 @@
+IDENTIFICATION DIVISION.
+PROGRAM-ID. XXX.
+
+*>
+*> See https://theweeklychallenge.org/blog/perl-weekly-challenge-154
+*>
+
+*>
+*> Run as: cobc -xF -o ch-2.o ch-2.cb; ./ch-2.o
+*>
+
+PROCEDURE DIVISION.
+    DISPLAY "2, 3, 5, 7, 37, 151, 3329, 23833, 13091204281, 3093215881333057".
+    STOP RUN.
diff --git a/challenge-154/abigail/csh/ch-2.csh b/challenge-154/abigail/csh/ch-2.csh
new file mode 100644
index 0000000000..ad620d535c
--- /dev/null
+++ b/challenge-154/abigail/csh/ch-2.csh
@@ -0,0 +1,11 @@
+#!/bin/csh
+
+#
+# See https://theweeklychallenge.org/blog/perl-weekly-challenge-154
+#
+
+#
+# Run as: csh ch-2.csh
+#
+
+echo "2, 3, 5, 7, 37, 151, 3329, 23833, 13091204281, 3093215881333057"
diff --git a/challenge-154/abigail/erlang/ch-2.erl b/challenge-154/abigail/erlang/ch-2.erl
new file mode 100644
index 0000000000..2311095b7a
--- /dev/null
+++ b/challenge-154/abigail/erlang/ch-2.erl
@@ -0,0 +1,15 @@
+%
+% See https://theweeklychallenge.org/blog/perl-weekly-challenge-154
+%
+
+%
+% Run as: ln ch-2.erl ch2.erl
+%         erl -compile ch2
+%         erl -noshell -s ch2 main -s init stop
+%
+
+-module (ch2).
+-export ([main/0]).
+
+main () ->
+    io:fwrite ("2, 3, 5, 7, 37, 151, 3329, 23833, 13091204281, 3093215881333057\n").
diff --git a/challenge-154/abigail/forth/ch-2.fs b/challenge-154/abigail/forth/ch-2.fs
new file mode 100644
index 0000000000..f967bac57d
--- /dev/null
+++ b/challenge-154/abigail/forth/ch-2.fs
@@ -0,0 +1,5 @@
+\
+\ See https://theweeklychallenge.org/blog/perl-weekly-challenge-154
+\
+
+.( 2, 3, 5, 7, 37, 151, 3329, 23833, 13091204281, 3093215881333057)
diff --git a/challenge-154/abigail/fortran/ch-2.f90 b/challenge-154/abigail/fortran/ch-2.f90
new file mode 100644
index 0000000000..e57ac31f39
--- /dev/null
+++ b/challenge-154/abigail/fortran/ch-2.f90
@@ -0,0 +1,12 @@
+!
+! See https://theweeklychallenge.org/blog/perl-weekly-challenge-154
+!
+
+!
+! Run as: gfortran -o ch-2.o ch-2.f90; ./ch-2.o
+!
+
+program ch2
+    implicit none
+    write (*, *) "2, 3, 5, 7, 37, 151, 3329, 23833, 13091204281, 3093215881333057"
+end
diff --git a/challenge-154/abigail/go/ch-2.go b/challenge-154/abigail/go/ch-2.go
new file mode 100644
index 0000000000..57ce8a76dc
--- /dev/null
+++ b/challenge-154/abigail/go/ch-2.go
@@ -0,0 +1,15 @@
+package main
+
+//
+// See https://theweeklychallenge.org/blog/perl-weekly-challenge-154
+//
+
+//
+// Run as: go run ch-2.go
+//
+
+import "fmt"
+
+func main () {
+    fmt . Print ("2, 3, 5, 7, 37, 151, 3329, 23833, 13091204281, 3093215881333057\n")
+}
diff --git a/challenge-154/abigail/java/ch-2.java b/challenge-154/abigail/java/ch-2.java
new file mode 100644
index 0000000000..f79a6f307a
--- /dev/null
+++ b/challenge-154/abigail/java/ch-2.java
@@ -0,0 +1,13 @@
+//
+// See https://theweeklychallenge.org/blog/perl-weekly-challenge-154
+//
+
+//
+// Run as: ln ch-2.java ch2.java; javac ch2; java ch2
+//
+
+public class ch2 {
+    public static void main (String [] args) {
+        System . out . print ("2, 3, 5, 7, 37, 151, 3329, 23833, 13091204281, 3093215881333057\n");
+    }
+}
diff --git a/challenge-154/abigail/lua/ch-2.lua b/challenge-154/abigail/lua/ch-2.lua
new file mode 100644
index 0000000000..76cb7ffbb9
--- /dev/null
+++ b/challenge-154/abigail/lua/ch-2.lua
@@ -0,0 +1,11 @@
+#!/opt/local/bin/lua
+
+--
+-- See https://theweeklychallenge.org/blog/perl-weekly-challenge-154
+--
+
+--
+-- Run as: lua ch-2.lua
+--
+
+print ("2, 3, 5, 7, 37, 151, 3329, 23833, 13091204281, 3093215881333057")
diff --git a/challenge-154/abigail/m4/ch-2.m4 b/challenge-154/abigail/m4/ch-2.m4
new file mode 100644
index 0000000000..2fd1ad879a
--- /dev/null
+++ b/challenge-154/abigail/m4/ch-2.m4
@@ -0,0 +1 @@
+2, 3, 5, 7, 37, 151, 3329, 23833, 13091204281, 3093215881333057
diff --git a/challenge-154/abigail/mmix/ch-2.mms b/challenge-154/abigail/mmix/ch-2.mms
new file mode 100644
index 0000000000..16467db46a
--- /dev/null
+++ b/challenge-154/abigail/mmix/ch-2.mms
@@ -0,0 +1,17 @@
+%
+% See https://theweeklychallenge.org/blog/perl-weekly-challenge-154
+%
+
+%
+% Run as: mmixal -o ch-2.mmo ch-2.mms; mmix -q ch-2.mmo
+%
+        LOC     Data_Segment
+        GREG    @
+Text    BYTE    "2, 3, 5, 7, 37, 151, 3329, 23833, "
+        BYTE    "13091204281, 3093215881333057",10,0
+
+        LOC     #100
+
+Main    LDA     $255,Text
+        TRAP    0,Fputs,StdOut
+        TRAP    0,Halt,0
diff --git a/challenge-154/abigail/node/ch-2.js b/challenge-154/abigail/node/ch-2.js
new file mode 100644
index 0000000000..c646dc9325
--- /dev/null
+++ b/challenge-154/abigail/node/ch-2.js
@@ -0,0 +1,11 @@
+#!/usr/local/bin/node
+
+//
+// See https://theweeklychallenge.org/blog/perl-weekly-challenge-154
+//
+
+//
+// Run as: node ch-2.js
+//
+
+console . log ("2, 3, 5, 7, 37, 151, 3329, 23833, 13091204281, 3093215881333057")
diff --git a/challenge-154/abigail/ocaml/ch-2.ml b/challenge-154/abigail/ocaml/ch-2.ml
new file mode 100644
index 0000000000..dbafc79e66
--- /dev/null
+++ b/challenge-154/abigail/ocaml/ch-2.ml
@@ -0,0 +1,9 @@
+(*                                                                   *)
+(* See https://theweeklychallenge.org/blog/perl-weekly-challenge-154 *)
+(*                                                                   *)
+
+(*                       *)
+(* Run as: ocaml ch-2.ml *)
+(*                       *)
+
+print_endline "2, 3, 5, 7, 37, 151, 3329, 23833, 13091204281, 3093215881333057";
diff --git a/challenge-154/abigail/pascal/ch-2.p b/challenge-154/abigail/pascal/ch-2.p
new file mode 100644
index 0000000000..bbc7d3c37b
--- /dev/null
+++ b/challenge-154/abigail/pascal/ch-2.p
@@ -0,0 +1,13 @@
+Program XXX;
+
+(*                                                                   *)
+(* See https://theweeklychallenge.org/blog/perl-weekly-challenge-154 *)
+(*                                                                   *)
+
+(*                                           *)
+(* Run as: fpc -och-1.out ch-2.p; ./ch-2.out *)
+(*                                           *)
+
+begin
+    writeln ('2, 3, 5, 7, 37, 151, 3329, 23833, 13091204281, 3093215881333057')
+end.
diff --git a/challenge-154/abigail/php/ch-2.php b/challenge-154/abigail/php/ch-2.php
new file mode 100644
index 0000000000..0dde59f5a4
--- /dev/null
+++ b/challenge-154/abigail/php/ch-2.php
@@ -0,0 +1,11 @@
+<?php
+    //
+    // See https://theweeklychallenge.org/blog/perl-weekly-challenge-154
+    //
+
+    //
+    // Run as: php ch-2.php
+    //
+
+    echo "2, 3, 5, 7, 37, 151, 3329, 23833, 13091204281, 3093215881333057\n"
+?>
diff --git a/challenge-154/abigail/postscript/ch-2.ps b/challenge-154/abigail/postscript/ch-2.ps
new file mode 100644
index 0000000000..ca74770e0e
--- /dev/null
+++ b/challenge-154/abigail/postscript/ch-2.ps
@@ -0,0 +1,10 @@
+%!PS
+%
+% See https://theweeklychallenge.org/blog/perl-weekly-challenge-154
+%
+
+%
+% Run as: ps2ascii ch-2.ps
+%
+
+(2, 3, 5, 7, 37, 151, 3329, 23833, 13091204281, 3093215881333057) =
diff --git a/challenge-154/abigail/python/ch-2.py b/challenge-154/abigail/python/ch-2.py
new file mode 100644
index 0000000000..07681a8243
--- /dev/null
+++ b/challenge-154/abigail/python/ch-2.py
@@ -0,0 +1,11 @@
+#!/usr/local/bin/python3
+
+#
+# See https://theweeklychallenge.org/blog/perl-weekly-challenge-154
+#
+
+#
+# Run as: python ch-2.py
+#
+
+print ("2, 3, 5, 7, 37, 151, 3329, 23833, 13091204281, 3093215881333057")
diff --git a/challenge-154/abigail/r/ch-2.r b/challenge-154/abigail/r/ch-2.r
new file mode 100644
index 0000000000..374d3571d8
--- /dev/null
+++ b/challenge-154/abigail/r/ch-2.r
@@ -0,0 +1,11 @@
+#!/usr/local/bin/Rscript
+
+#
+# See https://theweeklychallenge.org/blog/perl-weekly-challenge-154
+#
+
+#
+# Run as: Rscript ch-2.r
+#
+
+cat ("2, 3, 5, 7, 37, 151, 3329, 23833, 13091204281, 3093215881333057\n")
diff --git a/challenge-154/abigail/rexx/ch-2.rexx b/challenge-154/abigail/rexx/ch-2.rexx
new file mode 100644
index 0000000000..c9e445aaa9
--- /dev/null
+++ b/challenge-154/abigail/rexx/ch-2.rexx
@@ -0,0 +1,9 @@
+/*
+ * See https://theweeklychallenge.org/blog/perl-weekly-challenge-154
+ */
+
+/*
+ * Run as: rexx ch-2.rexx
+ */
+
+say "2, 3, 5, 7, 37, 151, 3329, 23833, 13091204281, 3093215881333057"
diff --git a/challenge-154/abigail/ruby/ch-2.rb b/challenge-154/abigail/ruby/ch-2.rb
new file mode 100644
index 0000000000..29340a7766
--- /dev/null
+++ b/challenge-154/abigail/ruby/ch-2.rb
@@ -0,0 +1,11 @@
+#!/usr/bin/ruby
+
+#
+# See https://theweeklychallenge.org/blog/perl-weekly-challenge-154
+#
+ 
+#
+# Run as: ruby ch-2.rb
+#
+
+puts ("2, 3, 5, 7, 37, 151, 3329, 23833, 13091204281, 3093215881333057");
diff --git a/challenge-154/abigail/scheme/ch-2.scm b/challenge-154/abigail/scheme/ch-2.scm
new file mode 100644
index 0000000000..9b3cd273ee
--- /dev/null
+++ b/challenge-154/abigail/scheme/ch-2.scm
@@ -0,0 +1,12 @@
+#!/usr/local/bin/guile
+!#
+
+;;;
+;;; See https://theweeklychallenge.org/blog/perl-weekly-challenge-154
+;;;
+
+;;;
+;;; Run as: guile --no-auto-compile ch-2.scm
+;;;
+
+(display "2, 3, 5, 7, 37, 151, 3329, 23833, 13091204281, 3093215881333057\n")
diff --git a/challenge-154/abigail/sed/ch-2.sed b/challenge-154/abigail/sed/ch-2.sed
new file mode 100644
index 0000000000..42ba5c35e1
--- /dev/null
+++ b/challenge-154/abigail/sed/ch-2.sed
@@ -0,0 +1,12 @@
+#
+# See https://theweeklychallenge.org/blog/perl-weekly-challenge-154
+#
+
+#
+# Run as: sed -f ch-2.sed
+#
+# For each line in the input file, we write the first three
+# self-describing numbers.
+#
+
+s/.*/2, 3, 5, 7, 37, 151, 3329, 23833, 13091204281, 3093215881333057/
diff --git a/challenge-154/abigail/sql/ch-2.sql b/challenge-154/abigail/sql/ch-2.sql
new file mode 100644
index 0000000000..aae7812a01
--- /dev/null
+++ b/challenge-154/abigail/sql/ch-2.sql
@@ -0,0 +1,9 @@
+--
+-- See https://theweeklychallenge.org/blog/perl-weekly-challenge-154
+--
+
+-- 
+-- Run as: sqlite3 < ch-2.sql
+--
+
+SELECT "2, 3, 5, 7, 37, 151, 3329, 23833, 13091204281, 3093215881333057";
diff --git a/challenge-154/abigail/tcl/ch-2.tcl b/challenge-154/abigail/tcl/ch-2.tcl
new file mode 100644
index 0000000000..510bac5776
--- /dev/null
+++ b/challenge-154/abigail/tcl/ch-2.tcl
@@ -0,0 +1,11 @@
+#!/usr/local/opt/tcl-tk/bin/tclsh
+
+#
+# See https://theweeklychallenge.org/blog/perl-weekly-challenge-154
+#
+
+#
+# Run as: tclsh ch-2.tcl
+#
+
+puts "2, 3, 5, 7, 37, 151, 3329, 23833, 13091204281, 3093215881333057"