aboutsummaryrefslogtreecommitdiff
path: root/challenge-147
diff options
context:
space:
mode:
Diffstat (limited to 'challenge-147')
-rw-r--r--challenge-147/abigail/basic/ch-1.bas9
-rw-r--r--challenge-147/abigail/befunge-93/ch-1.bf932
-rw-r--r--challenge-147/abigail/cobol/ch-1.cb14
-rw-r--r--challenge-147/abigail/csh/ch-1.csh11
-rw-r--r--challenge-147/abigail/erlang/ch-1.erl15
-rw-r--r--challenge-147/abigail/forth/ch-1.fs5
-rw-r--r--challenge-147/abigail/fortran/ch-1.f9012
-rw-r--r--challenge-147/abigail/m4/ch-1.m41
-rw-r--r--challenge-147/abigail/mmix/ch-1.mms17
-rw-r--r--challenge-147/abigail/ocaml/ch-1.ml9
-rw-r--r--challenge-147/abigail/php/ch-1.php11
-rw-r--r--challenge-147/abigail/postscript/ch-1.ps10
-rw-r--r--challenge-147/abigail/rexx/ch-1.rexx9
-rw-r--r--challenge-147/abigail/scheme/ch-1.scm12
-rw-r--r--challenge-147/abigail/sed/ch-1.sed12
-rw-r--r--challenge-147/abigail/sql/ch-1.sql9
-rw-r--r--challenge-147/abigail/t/input-1-11
-rw-r--r--challenge-147/abigail/tcl/ch-1.tcl11
18 files changed, 170 insertions, 0 deletions
diff --git a/challenge-147/abigail/basic/ch-1.bas b/challenge-147/abigail/basic/ch-1.bas
new file mode 100644
index 0000000000..d8dd4cc894
--- /dev/null
+++ b/challenge-147/abigail/basic/ch-1.bas
@@ -0,0 +1,9 @@
+010 REM
+020 REM See https://theweeklychallenge.org/blog/perl-weekly-challenge-147
+030 REM
+
+040 REM
+050 REM Run as: basic ch-1.bas
+060 REM
+
+100 PRINT "2 3 5 7 13 17 23 37 43 47 53 67 73 83 97 113 137 167 173 197" \ No newline at end of file
diff --git a/challenge-147/abigail/befunge-93/ch-1.bf93 b/challenge-147/abigail/befunge-93/ch-1.bf93
new file mode 100644
index 0000000000..1125f4707a
--- /dev/null
+++ b/challenge-147/abigail/befunge-93/ch-1.bf93
@@ -0,0 +1,2 @@
+< v,_@#:< "2 3 5 7 13 17 23 37 43 47 53 67 73 83 97 113 137 167 173 197" +55
+ > ^ \ No newline at end of file
diff --git a/challenge-147/abigail/cobol/ch-1.cb b/challenge-147/abigail/cobol/ch-1.cb
new file mode 100644
index 0000000000..c44aa26483
--- /dev/null
+++ b/challenge-147/abigail/cobol/ch-1.cb
@@ -0,0 +1,14 @@
+IDENTIFICATION DIVISION.
+PROGRAM-ID. XXX.
+
+*>
+*> See https://theweeklychallenge.org/blog/perl-weekly-challenge-147
+*>
+
+*>
+*> Run as: cobc -xF -o ch-1.o ch-1.cb; ./ch-1.o
+*>
+
+PROCEDURE DIVISION.
+ DISPLAY "2 3 5 7 13 17 23 37 43 47 53 67 73 83 97 113 137 167 173 197".
+ STOP RUN.
diff --git a/challenge-147/abigail/csh/ch-1.csh b/challenge-147/abigail/csh/ch-1.csh
new file mode 100644
index 0000000000..c0c728af68
--- /dev/null
+++ b/challenge-147/abigail/csh/ch-1.csh
@@ -0,0 +1,11 @@
+#!/bin/csh
+
+#
+# See https://theweeklychallenge.org/blog/perl-weekly-challenge-147
+#
+
+#
+# Run as: csh ch-1.csh
+#
+
+echo "2 3 5 7 13 17 23 37 43 47 53 67 73 83 97 113 137 167 173 197" \ No newline at end of file
diff --git a/challenge-147/abigail/erlang/ch-1.erl b/challenge-147/abigail/erlang/ch-1.erl
new file mode 100644
index 0000000000..901922151e
--- /dev/null
+++ b/challenge-147/abigail/erlang/ch-1.erl
@@ -0,0 +1,15 @@
+%
+% See https://theweeklychallenge.org/blog/perl-weekly-challenge-147
+%
+
+%
+% Run as: ln ch-1.erl ch1.erl
+% erl -compile ch1
+% erl -noshell -s ch1 main -s init stop
+%
+
+-module (ch1).
+-export ([main/0]).
+
+main () ->
+ io:fwrite ("2 3 5 7 13 17 23 37 43 47 53 67 73 83 97 113 137 167 173 197\n"). \ No newline at end of file
diff --git a/challenge-147/abigail/forth/ch-1.fs b/challenge-147/abigail/forth/ch-1.fs
new file mode 100644
index 0000000000..22bd24e25a
--- /dev/null
+++ b/challenge-147/abigail/forth/ch-1.fs
@@ -0,0 +1,5 @@
+\
+\ See https://theweeklychallenge.org/blog/perl-weekly-challenge-147
+\
+
+.( 2 3 5 7 13 17 23 37 43 47 53 67 73 83 97 113 137 167 173 197) \ No newline at end of file
diff --git a/challenge-147/abigail/fortran/ch-1.f90 b/challenge-147/abigail/fortran/ch-1.f90
new file mode 100644
index 0000000000..afa50a9bc8
--- /dev/null
+++ b/challenge-147/abigail/fortran/ch-1.f90
@@ -0,0 +1,12 @@
+!
+! See https://theweeklychallenge.org/blog/perl-weekly-challenge-147
+!
+
+!
+! Run as: gfortran -o ch-1.o ch-1.f90; ./ch-1.o
+!
+
+program ch1
+ implicit none
+ write (*, *) "2 3 5 7 13 17 23 37 43 47 53 67 73 83 97 113 137 167 173 197"
+end \ No newline at end of file
diff --git a/challenge-147/abigail/m4/ch-1.m4 b/challenge-147/abigail/m4/ch-1.m4
new file mode 100644
index 0000000000..3648c94b73
--- /dev/null
+++ b/challenge-147/abigail/m4/ch-1.m4
@@ -0,0 +1 @@
+2 3 5 7 13 17 23 37 43 47 53 67 73 83 97 113 137 167 173 197
diff --git a/challenge-147/abigail/mmix/ch-1.mms b/challenge-147/abigail/mmix/ch-1.mms
new file mode 100644
index 0000000000..8024fd6ceb
--- /dev/null
+++ b/challenge-147/abigail/mmix/ch-1.mms
@@ -0,0 +1,17 @@
+%
+% See https://theweeklychallenge.org/blog/perl-weekly-challenge-147
+%
+
+%
+% Run as: mmixal -o ch-1.mmo ch-1.mms; mmix -q ch-1.mmo
+%
+ LOC Data_Segment
+ GREG @
+Text BYTE "2 3 5 7 13 17 23 37 43 47 53 67 73 83 "
+ BYTE "97 113 137 167 173 197",10,0
+
+ LOC #100
+
+Main LDA $255,Text
+ TRAP 0,Fputs,StdOut
+ TRAP 0,Halt,0 \ No newline at end of file
diff --git a/challenge-147/abigail/ocaml/ch-1.ml b/challenge-147/abigail/ocaml/ch-1.ml
new file mode 100644
index 0000000000..700d19281c
--- /dev/null
+++ b/challenge-147/abigail/ocaml/ch-1.ml
@@ -0,0 +1,9 @@
+(* *)
+(* See https://theweeklychallenge.org/blog/perl-weekly-challenge-147 *)
+(* *)
+
+(* *)
+(* Run as: ocaml ch-1.ml *)
+(* *)
+
+print_endline "2 3 5 7 13 17 23 37 43 47 53 67 73 83 97 113 137 167 173 197"; \ No newline at end of file
diff --git a/challenge-147/abigail/php/ch-1.php b/challenge-147/abigail/php/ch-1.php
new file mode 100644
index 0000000000..10f463c368
--- /dev/null
+++ b/challenge-147/abigail/php/ch-1.php
@@ -0,0 +1,11 @@
+<?php
+ //
+ // See https://theweeklychallenge.org/blog/perl-weekly-challenge-147
+ //
+
+ //
+ // Run as: php ch-1.php
+ //
+
+ echo "2 3 5 7 13 17 23 37 43 47 53 67 73 83 97 113 137 167 173 197\n"
+?> \ No newline at end of file
diff --git a/challenge-147/abigail/postscript/ch-1.ps b/challenge-147/abigail/postscript/ch-1.ps
new file mode 100644
index 0000000000..ea35a6dc64
--- /dev/null
+++ b/challenge-147/abigail/postscript/ch-1.ps
@@ -0,0 +1,10 @@
+%!PS
+%
+% See https://theweeklychallenge.org/blog/perl-weekly-challenge-147
+%
+
+%
+% Run as: ps2ascii ch-1.ps
+%
+
+(2 3 5 7 13 17 23 37 43 47 53 67 73 83 97 113 137 167 173 197) = \ No newline at end of file
diff --git a/challenge-147/abigail/rexx/ch-1.rexx b/challenge-147/abigail/rexx/ch-1.rexx
new file mode 100644
index 0000000000..8fca035ac4
--- /dev/null
+++ b/challenge-147/abigail/rexx/ch-1.rexx
@@ -0,0 +1,9 @@
+/*
+ * See https://theweeklychallenge.org/blog/perl-weekly-challenge-147
+ */
+
+/*
+ * Run as: rexx ch-1.rexx
+ */
+
+say "2 3 5 7 13 17 23 37 43 47 53 67 73 83 97 113 137 167 173 197" \ No newline at end of file
diff --git a/challenge-147/abigail/scheme/ch-1.scm b/challenge-147/abigail/scheme/ch-1.scm
new file mode 100644
index 0000000000..34c159b213
--- /dev/null
+++ b/challenge-147/abigail/scheme/ch-1.scm
@@ -0,0 +1,12 @@
+#!/usr/local/bin/guile
+!#
+
+;;;
+;;; See https://theweeklychallenge.org/blog/perl-weekly-challenge-147
+;;;
+
+;;;
+;;; Run as: guile --no-auto-compile ch-1.scm
+;;;
+
+(display "2 3 5 7 13 17 23 37 43 47 53 67 73 83 97 113 137 167 173 197\n") \ No newline at end of file
diff --git a/challenge-147/abigail/sed/ch-1.sed b/challenge-147/abigail/sed/ch-1.sed
new file mode 100644
index 0000000000..a9564d943e
--- /dev/null
+++ b/challenge-147/abigail/sed/ch-1.sed
@@ -0,0 +1,12 @@
+#
+# See https://theweeklychallenge.org/blog/perl-weekly-challenge-147
+#
+
+#
+# Run as: sed -f ch-1.sed
+#
+# For each line in the input file, we write the first three
+# self-describing numbers.
+#
+
+s/.*/2 3 5 7 13 17 23 37 43 47 53 67 73 83 97 113 137 167 173 197/ \ No newline at end of file
diff --git a/challenge-147/abigail/sql/ch-1.sql b/challenge-147/abigail/sql/ch-1.sql
new file mode 100644
index 0000000000..fddc84ac20
--- /dev/null
+++ b/challenge-147/abigail/sql/ch-1.sql
@@ -0,0 +1,9 @@
+--
+-- See https://theweeklychallenge.org/blog/perl-weekly-challenge-147
+--
+
+--
+-- Run as: sqlite3 < ch-1.sql
+--
+
+SELECT "2 3 5 7 13 17 23 37 43 47 53 67 73 83 97 113 137 167 173 197"; \ No newline at end of file
diff --git a/challenge-147/abigail/t/input-1-1 b/challenge-147/abigail/t/input-1-1
index e69de29bb2..8d1c8b69c3 100644
--- a/challenge-147/abigail/t/input-1-1
+++ b/challenge-147/abigail/t/input-1-1
@@ -0,0 +1 @@
+
diff --git a/challenge-147/abigail/tcl/ch-1.tcl b/challenge-147/abigail/tcl/ch-1.tcl
new file mode 100644
index 0000000000..d61e54d57b
--- /dev/null
+++ b/challenge-147/abigail/tcl/ch-1.tcl
@@ -0,0 +1,11 @@
+#!/usr/local/opt/tcl-tk/bin/tclsh
+
+#
+# See https://theweeklychallenge.org/blog/perl-weekly-challenge-147
+#
+
+#
+# Run as: tclsh ch-1.tcl
+#
+
+puts "2 3 5 7 13 17 23 37 43 47 53 67 73 83 97 113 137 167 173 197" \ No newline at end of file