Week 148, part 1: Hello, World solutions

15 files changed, 146 insertions, 0 deletions

diff --git a/challenge-148/abigail/basic/ch-1.bas b/challenge-148/abigail/basic/ch-1.bas
new file mode 100644
index 0000000000..b61a009a03
--- /dev/null
+++ b/challenge-148/abigail/basic/ch-1.bas
@@ -0,0 +1,9 @@
+010 REM 
+020 REM See https://theweeklychallenge.org/blog/perl-weekly-challenge-148
+030 REM 
+
+040 REM 
+050 REM Run as: basic ch-1.bas
+060 REM 
+
+100 PRINT "2 4 6 30 32 34 36 40 42 44 46 50 52 54 56 60 62 64 66"
diff --git a/challenge-148/abigail/befunge-93/ch-1.bf93 b/challenge-148/abigail/befunge-93/ch-1.bf93
new file mode 100644
index 0000000000..20f34afd4b
--- /dev/null
+++ b/challenge-148/abigail/befunge-93/ch-1.bf93
@@ -0,0 +1,2 @@
+< v,_@#:<   "2 4 6 30 32 34 36 40 42 44 46 50 52 54 56 60 62 64 66" +55
+  >     ^
diff --git a/challenge-148/abigail/cobol/ch-1.cb b/challenge-148/abigail/cobol/ch-1.cb
new file mode 100644
index 0000000000..e5ba06c2b5
--- /dev/null
+++ b/challenge-148/abigail/cobol/ch-1.cb
@@ -0,0 +1,14 @@
+IDENTIFICATION DIVISION.
+PROGRAM-ID. XXX.
+
+*>
+*> See https://theweeklychallenge.org/blog/perl-weekly-challenge-148
+*>
+
+*>
+*> Run as: cobc -xF -o ch-1.o ch-1.cb; ./ch-1.o
+*>
+
+PROCEDURE DIVISION.
+    DISPLAY "2 4 6 30 32 34 36 40 42 44 46 50 52 54 56 60 62 64 66".
+    STOP RUN.
diff --git a/challenge-148/abigail/csh/ch-1.csh b/challenge-148/abigail/csh/ch-1.csh
new file mode 100644
index 0000000000..5cd5215734
--- /dev/null
+++ b/challenge-148/abigail/csh/ch-1.csh
@@ -0,0 +1,11 @@
+#!/bin/csh
+
+#
+# See https://theweeklychallenge.org/blog/perl-weekly-challenge-148
+#
+
+#
+# Run as: csh ch-1.csh
+#
+
+echo "2 4 6 30 32 34 36 40 42 44 46 50 52 54 56 60 62 64 66"
diff --git a/challenge-148/abigail/erlang/ch-1.erl b/challenge-148/abigail/erlang/ch-1.erl
new file mode 100644
index 0000000000..ac80dbe3c1
--- /dev/null
+++ b/challenge-148/abigail/erlang/ch-1.erl
@@ -0,0 +1,15 @@
+%
+% See https://theweeklychallenge.org/blog/perl-weekly-challenge-148
+%
+
+%
+% 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 4 6 30 32 34 36 40 42 44 46 50 52 54 56 60 62 64 66\n").
diff --git a/challenge-148/abigail/forth/ch-1.fs b/challenge-148/abigail/forth/ch-1.fs
new file mode 100644
index 0000000000..86a95ad615
--- /dev/null
+++ b/challenge-148/abigail/forth/ch-1.fs
@@ -0,0 +1,5 @@
+\
+\ See https://theweeklychallenge.org/blog/perl-weekly-challenge-148
+\
+
+.( 2 4 6 30 32 34 36 40 42 44 46 50 52 54 56 60 62 64 66)
diff --git a/challenge-148/abigail/fortran/ch-1.f90 b/challenge-148/abigail/fortran/ch-1.f90
new file mode 100644
index 0000000000..f69bae5f22
--- /dev/null
+++ b/challenge-148/abigail/fortran/ch-1.f90
@@ -0,0 +1,12 @@
+!
+! See https://theweeklychallenge.org/blog/perl-weekly-challenge-148
+!
+
+!
+! Run as: gfortran -o ch-1.o ch-1.f90; ./ch-1.o
+!
+
+program ch1
+    implicit none
+    write (*, *) "2 4 6 30 32 34 36 40 42 44 46 50 52 54 56 60 62 64 66"
+end
diff --git a/challenge-148/abigail/m4/ch-1.m4 b/challenge-148/abigail/m4/ch-1.m4
new file mode 100644
index 0000000000..f3452c4751
--- /dev/null
+++ b/challenge-148/abigail/m4/ch-1.m4
@@ -0,0 +1 @@
+2 4 6 30 32 34 36 40 42 44 46 50 52 54 56 60 62 64 66
diff --git a/challenge-148/abigail/mmix/ch-1.mms b/challenge-148/abigail/mmix/ch-1.mms
new file mode 100644
index 0000000000..d79fc1d462
--- /dev/null
+++ b/challenge-148/abigail/mmix/ch-1.mms
@@ -0,0 +1,17 @@
+%
+% See https://theweeklychallenge.org/blog/perl-weekly-challenge-148
+%
+
+%
+% Run as: mmixal -o ch-1.mmo ch-1.mms; mmix -q ch-1.mmo
+%
+        LOC     Data_Segment
+        GREG    @
+Text    BYTE    "2 4 6 30 32 34 36 40 42 44 46 "
+        BYTE    "50 52 54 56 60 62 64 66",10,0
+
+        LOC     #100
+
+Main    LDA     $255,Text
+        TRAP    0,Fputs,StdOut
+        TRAP    0,Halt,0
diff --git a/challenge-148/abigail/ocaml/ch-1.ml b/challenge-148/abigail/ocaml/ch-1.ml
new file mode 100644
index 0000000000..2fc2ae19d2
--- /dev/null
+++ b/challenge-148/abigail/ocaml/ch-1.ml
@@ -0,0 +1,9 @@
+(*                                                                   *)
+(* See https://theweeklychallenge.org/blog/perl-weekly-challenge-148 *)
+(*                                                                   *)
+
+(*                       *)
+(* Run as: ocaml ch-1.ml *)
+(*                       *)
+
+print_endline "2 4 6 30 32 34 36 40 42 44 46 50 52 54 56 60 62 64 66";
diff --git a/challenge-148/abigail/php/ch-1.php b/challenge-148/abigail/php/ch-1.php
new file mode 100644
index 0000000000..90bcfd46b5
--- /dev/null
+++ b/challenge-148/abigail/php/ch-1.php
@@ -0,0 +1,11 @@
+<?php
+    //
+    // See https://theweeklychallenge.org/blog/perl-weekly-challenge-148
+    //
+
+    //
+    // Run as: php ch-1.php
+    //
+
+    echo "2 4 6 30 32 34 36 40 42 44 46 50 52 54 56 60 62 64 66\n"
+?>
diff --git a/challenge-148/abigail/postscript/ch-1.ps b/challenge-148/abigail/postscript/ch-1.ps
new file mode 100644
index 0000000000..868f149903
--- /dev/null
+++ b/challenge-148/abigail/postscript/ch-1.ps
@@ -0,0 +1,10 @@
+%!PS
+%
+% See https://theweeklychallenge.org/blog/perl-weekly-challenge-148
+%
+
+%
+% Run as: ps2ascii ch-1.ps
+%
+
+(2 4 6 30 32 34 36 40 42 44 46 50 52 54 56 60 62 64 66) =
diff --git a/challenge-148/abigail/rexx/ch-1.rexx b/challenge-148/abigail/rexx/ch-1.rexx
new file mode 100644
index 0000000000..547368084f
--- /dev/null
+++ b/challenge-148/abigail/rexx/ch-1.rexx
@@ -0,0 +1,9 @@
+/*
+ * See https://theweeklychallenge.org/blog/perl-weekly-challenge-148
+ */
+
+/*
+ * Run as: rexx ch-1.rexx
+ */
+
+say "2 4 6 30 32 34 36 40 42 44 46 50 52 54 56 60 62 64 66"
diff --git a/challenge-148/abigail/sed/ch-1.sed b/challenge-148/abigail/sed/ch-1.sed
new file mode 100644
index 0000000000..b5eefd2cc0
--- /dev/null
+++ b/challenge-148/abigail/sed/ch-1.sed
@@ -0,0 +1,12 @@
+#
+# See https://theweeklychallenge.org/blog/perl-weekly-challenge-148
+#
+
+#
+# Run as: sed -f ch-1.sed
+#
+# For each line in the input file, we write the first three
+# self-describing numbers.
+#
+
+s/.*/2 4 6 30 32 34 36 40 42 44 46 50 52 54 56 60 62 64 66/
diff --git a/challenge-148/abigail/sql/ch-1.sql b/challenge-148/abigail/sql/ch-1.sql
new file mode 100644
index 0000000000..0e2c9ee46b
--- /dev/null
+++ b/challenge-148/abigail/sql/ch-1.sql
@@ -0,0 +1,9 @@
+--
+-- See https://theweeklychallenge.org/blog/perl-weekly-challenge-148
+--
+
+-- 
+-- Run as: sqlite3 < ch-1.sql
+--
+
+SELECT "2 4 6 30 32 34 36 40 42 44 46 50 52 54 56 60 62 64 66";