Week 148, part 2: Hello, World solutions

17 files changed, 212 insertions, 0 deletions

diff --git a/challenge-148/abigail/bash/ch-2.sh b/challenge-148/abigail/bash/ch-2.sh
new file mode 100644
index 0000000000..fa387eb448
--- /dev/null
+++ b/challenge-148/abigail/bash/ch-2.sh
@@ -0,0 +1,15 @@
+#!/bin/sh
+
+#
+# See https://theweeklychallenge.org/blog/perl-weekly-challenge-148
+#
+
+#
+# Run as: bash ch-2.sh
+#
+
+echo "2 1 5"
+echo "5 2 13"
+echo "8 3 21"
+echo "17 18 5"
+echo "11 4 29"
diff --git a/challenge-148/abigail/basic/ch-2.bas b/challenge-148/abigail/basic/ch-2.bas
new file mode 100644
index 0000000000..0e5a057e3b
--- /dev/null
+++ b/challenge-148/abigail/basic/ch-2.bas
@@ -0,0 +1,13 @@
+010 REM 
+020 REM See https://theweeklychallenge.org/blog/perl-weekly-challenge-148
+030 REM 
+
+040 REM 
+050 REM Run as: basic ch-2.bas
+060 REM 
+
+100 PRINT "2 1 5"
+110 PRINT "5 2 13"
+120 PRINT "8 3 21"
+130 PRINT "17 18 5"
+140 PRINT "11 4 29"
diff --git a/challenge-148/abigail/befunge-93/ch-2.bf93 b/challenge-148/abigail/befunge-93/ch-2.bf93
new file mode 100644
index 0000000000..bf95c014c6
--- /dev/null
+++ b/challenge-148/abigail/befunge-93/ch-2.bf93
@@ -0,0 +1,2 @@
+< v,_@#:<   "2 1 5" +55 "5 2 13" +55 "8 3 21" +55 "17 18 5" +55 "11 4 29" +55
+  >     ^
diff --git a/challenge-148/abigail/cobol/ch-2.cb b/challenge-148/abigail/cobol/ch-2.cb
new file mode 100644
index 0000000000..bfc94b0dfc
--- /dev/null
+++ b/challenge-148/abigail/cobol/ch-2.cb
@@ -0,0 +1,18 @@
+IDENTIFICATION DIVISION.
+PROGRAM-ID. XXX.
+
+*>
+*> See https://theweeklychallenge.org/blog/perl-weekly-challenge-148
+*>
+
+*>
+*> Run as: cobc -xF -o ch-2.o ch-2.cb; ./ch-2.o
+*>
+
+PROCEDURE DIVISION.
+    DISPLAY "2 1 5".
+    DISPLAY "5 2 13".
+    DISPLAY "8 3 21".
+    DISPLAY "17 18 5".
+    DISPLAY "11 4 29".
+    STOP RUN.
diff --git a/challenge-148/abigail/csh/ch-2.csh b/challenge-148/abigail/csh/ch-2.csh
new file mode 100644
index 0000000000..d2bbe4eb1d
--- /dev/null
+++ b/challenge-148/abigail/csh/ch-2.csh
@@ -0,0 +1,15 @@
+#!/bin/csh
+
+#
+# See https://theweeklychallenge.org/blog/perl-weekly-challenge-148
+#
+
+#
+# Run as: csh ch-2.csh
+#
+
+echo "2 1 5"
+echo "5 2 13"
+echo "8 3 21"
+echo "17 18 5"
+echo "11 4 29"
diff --git a/challenge-148/abigail/erlang/ch-2.erl b/challenge-148/abigail/erlang/ch-2.erl
new file mode 100644
index 0000000000..7f1758d969
--- /dev/null
+++ b/challenge-148/abigail/erlang/ch-2.erl
@@ -0,0 +1,15 @@
+%
+% See https://theweeklychallenge.org/blog/perl-weekly-challenge-148
+%
+
+%
+% 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 1 5\n5 2 13\n8 3 21\n17 18 5\n11 4 29\n").
diff --git a/challenge-148/abigail/forth/ch-2.fs b/challenge-148/abigail/forth/ch-2.fs
new file mode 100644
index 0000000000..5120a5b9f6
--- /dev/null
+++ b/challenge-148/abigail/forth/ch-2.fs
@@ -0,0 +1,9 @@
+\
+\ See https://theweeklychallenge.org/blog/perl-weekly-challenge-148
+\
+
+.( 2 1 5)
+.( 5 2 13)
+.( 8 3 21)
+.( 17 18 5)
+.( 11 4 29)
diff --git a/challenge-148/abigail/fortran/ch-2.f90 b/challenge-148/abigail/fortran/ch-2.f90
new file mode 100644
index 0000000000..ba274e0703
--- /dev/null
+++ b/challenge-148/abigail/fortran/ch-2.f90
@@ -0,0 +1,16 @@
+!
+! See https://theweeklychallenge.org/blog/perl-weekly-challenge-148
+!
+
+!
+! Run as: gfortran -o ch-2.o ch-2.f90; ./ch-2.o
+!
+
+program ch2
+    implicit none
+    write (*, *) "2 1 5"
+    write (*, *) "5 2 13"
+    write (*, *) "8 3 21"
+    write (*, *) "17 18 5"
+    write (*, *) "11 4 29"
+end
diff --git a/challenge-148/abigail/m4/ch-2.m4 b/challenge-148/abigail/m4/ch-2.m4
new file mode 100644
index 0000000000..5091953f6d
--- /dev/null
+++ b/challenge-148/abigail/m4/ch-2.m4
@@ -0,0 +1,5 @@
+2 1 5
+5 2 13
+8 3 21
+17 18 5
+11 4 29
diff --git a/challenge-148/abigail/mmix/ch-2.mms b/challenge-148/abigail/mmix/ch-2.mms
new file mode 100644
index 0000000000..ec2d01b22e
--- /dev/null
+++ b/challenge-148/abigail/mmix/ch-2.mms
@@ -0,0 +1,20 @@
+%
+% See https://theweeklychallenge.org/blog/perl-weekly-challenge-148
+%
+
+%
+% Run as: mmixal -o ch-2.mmo ch-2.mms; mmix -q ch-2.mmo
+%
+        LOC     Data_Segment
+        GREG    @
+Text    BYTE    "2 1 5",10
+        BYTE    "5 2 13",10
+        BYTE    "8 3 21",10
+        BYTE    "17 18 5",10
+        BYTE    "11 4 29",10,0
+
+        LOC     #100
+
+Main    LDA     $255,Text
+        TRAP    0,Fputs,StdOut
+        TRAP    0,Halt,0
diff --git a/challenge-148/abigail/ocaml/ch-2.ml b/challenge-148/abigail/ocaml/ch-2.ml
new file mode 100644
index 0000000000..e2475900a7
--- /dev/null
+++ b/challenge-148/abigail/ocaml/ch-2.ml
@@ -0,0 +1,9 @@
+(*                                                                   *)
+(* See https://theweeklychallenge.org/blog/perl-weekly-challenge-148 *)
+(*                                                                   *)
+
+(*                       *)
+(* Run as: ocaml ch-2.ml *)
+(*                       *)
+
+print_endline "2 1 5\n5 2 13\n8 3 21\n17 18 5\n11 4 29";
diff --git a/challenge-148/abigail/php/ch-2.php b/challenge-148/abigail/php/ch-2.php
new file mode 100644
index 0000000000..ea274c937f
--- /dev/null
+++ b/challenge-148/abigail/php/ch-2.php
@@ -0,0 +1,11 @@
+<?php
+    //
+    // See https://theweeklychallenge.org/blog/perl-weekly-challenge-148
+    //
+
+    //
+    // Run as: php ch-2.php
+    //
+
+    echo "2 1 5\n5 2 13\n8 3 21\n17 18 5\n11 4 29\n"
+?>
diff --git a/challenge-148/abigail/postscript/ch-2.ps b/challenge-148/abigail/postscript/ch-2.ps
new file mode 100644
index 0000000000..e9b87021a7
--- /dev/null
+++ b/challenge-148/abigail/postscript/ch-2.ps
@@ -0,0 +1,10 @@
+%!PS
+%
+% See https://theweeklychallenge.org/blog/perl-weekly-challenge-148
+%
+
+%
+% Run as: ps2ascii ch-2.ps
+%
+
+(2 1 5\n5 2 13\n8 3 21\n17 18 5\n11 4 29) =
diff --git a/challenge-148/abigail/rexx/ch-2.rexx b/challenge-148/abigail/rexx/ch-2.rexx
new file mode 100644
index 0000000000..b61ebd3eb3
--- /dev/null
+++ b/challenge-148/abigail/rexx/ch-2.rexx
@@ -0,0 +1,13 @@
+/*
+ * See https://theweeklychallenge.org/blog/perl-weekly-challenge-148
+ */
+
+/*
+ * Run as: rexx ch-2.rexx
+ */
+
+say "2 1 5"
+say "5 2 13"
+say "8 3 21"
+say "17 18 5"
+say "11 4 29"
diff --git a/challenge-148/abigail/scheme/ch-2.scm b/challenge-148/abigail/scheme/ch-2.scm
new file mode 100644
index 0000000000..cf20986ccc
--- /dev/null
+++ b/challenge-148/abigail/scheme/ch-2.scm
@@ -0,0 +1,12 @@
+#!/usr/local/bin/guile
+!#
+
+;;;
+;;; See https://theweeklychallenge.org/blog/perl-weekly-challenge-148
+;;;
+
+;;;
+;;; Run as: guile --no-auto-compile ch-2.scm
+;;;
+
+(display "2 1 5\n5 2 13\n8 3 21\n17 18 5\n11 4 29\n")
diff --git a/challenge-148/abigail/sed/ch-2.sed b/challenge-148/abigail/sed/ch-2.sed
new file mode 100644
index 0000000000..ea5a3a18e6
--- /dev/null
+++ b/challenge-148/abigail/sed/ch-2.sed
@@ -0,0 +1,16 @@
+#
+# See https://theweeklychallenge.org/blog/perl-weekly-challenge-148
+#
+
+#
+# Run as: sed -f ch-2.sed
+#
+# For each line in the input file, we write the first three
+# self-describing numbers.
+#
+
+s/.*/2 1 5\
+5 2 13\
+8 3 21\
+17 18 5\
+11 4 29/
diff --git a/challenge-148/abigail/sql/ch-2.sql b/challenge-148/abigail/sql/ch-2.sql
new file mode 100644
index 0000000000..62755b0013
--- /dev/null
+++ b/challenge-148/abigail/sql/ch-2.sql
@@ -0,0 +1,13 @@
+--
+-- See https://theweeklychallenge.org/blog/perl-weekly-challenge-148
+--
+
+-- 
+-- Run as: sqlite3 < ch-2.sql
+--
+
+SELECT "2 1 5";
+SELECT "5 2 13";
+SELECT "8 3 21";
+SELECT "17 18 5";
+SELECT "11 4 29";