Week 147: Hello, world solutions

18 files changed, 169 insertions, 0 deletions

diff --git a/challenge-147/abigail/basic/ch-2.bas b/challenge-147/abigail/basic/ch-2.bas
new file mode 100644
index 0000000000..b4b850e9b6
--- /dev/null
+++ b/challenge-147/abigail/basic/ch-2.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-2.bas
+060 REM 
+
+100 PRINT "1560090 7042750"
diff --git a/challenge-147/abigail/befunge-93/ch-2.bf93 b/challenge-147/abigail/befunge-93/ch-2.bf93
new file mode 100644
index 0000000000..1b6bdf5f9b
--- /dev/null
+++ b/challenge-147/abigail/befunge-93/ch-2.bf93
@@ -0,0 +1,2 @@
+< v,_@#:<   "1560090 7042750" +55
+  >     ^
diff --git a/challenge-147/abigail/cobol/ch-2.cb b/challenge-147/abigail/cobol/ch-2.cb
new file mode 100644
index 0000000000..741375f6f2
--- /dev/null
+++ b/challenge-147/abigail/cobol/ch-2.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-2.o ch-2.cb; ./ch-2.o
+*>
+
+PROCEDURE DIVISION.
+    DISPLAY "1560090 7042750".
+    STOP RUN.
diff --git a/challenge-147/abigail/csh/ch-2.csh b/challenge-147/abigail/csh/ch-2.csh
new file mode 100644
index 0000000000..14b13435d2
--- /dev/null
+++ b/challenge-147/abigail/csh/ch-2.csh
@@ -0,0 +1,11 @@
+#!/bin/csh
+
+#
+# See https://theweeklychallenge.org/blog/perl-weekly-challenge-147
+#
+
+#
+# Run as: csh ch-2.csh
+#
+
+echo "1560090 7042750"
diff --git a/challenge-147/abigail/erlang/ch-2.erl b/challenge-147/abigail/erlang/ch-2.erl
new file mode 100644
index 0000000000..1894167a54
--- /dev/null
+++ b/challenge-147/abigail/erlang/ch-2.erl
@@ -0,0 +1,15 @@
+%
+% See https://theweeklychallenge.org/blog/perl-weekly-challenge-147
+%
+
+%
+% 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 ("1560090 7042750\n").
diff --git a/challenge-147/abigail/forth/ch-2.fs b/challenge-147/abigail/forth/ch-2.fs
new file mode 100644
index 0000000000..5d91bd27a8
--- /dev/null
+++ b/challenge-147/abigail/forth/ch-2.fs
@@ -0,0 +1,5 @@
+\
+\ See https://theweeklychallenge.org/blog/perl-weekly-challenge-147
+\
+
+.( 1560090 7042750)
diff --git a/challenge-147/abigail/fortran/ch-2.f90 b/challenge-147/abigail/fortran/ch-2.f90
new file mode 100644
index 0000000000..481b4458a7
--- /dev/null
+++ b/challenge-147/abigail/fortran/ch-2.f90
@@ -0,0 +1,12 @@
+!
+! See https://theweeklychallenge.org/blog/perl-weekly-challenge-147
+!
+
+!
+! Run as: gfortran -o ch-2.o ch-2.f90; ./ch-2.o
+!
+
+program ch2
+    implicit none
+    write (*, *) "1560090 7042750"
+end
diff --git a/challenge-147/abigail/m4/ch-2.m4 b/challenge-147/abigail/m4/ch-2.m4
new file mode 100644
index 0000000000..de3d6ccd8a
--- /dev/null
+++ b/challenge-147/abigail/m4/ch-2.m4
@@ -0,0 +1 @@
+1560090 7042750
diff --git a/challenge-147/abigail/mmix/ch-2.mms b/challenge-147/abigail/mmix/ch-2.mms
new file mode 100644
index 0000000000..3c06a5424f
--- /dev/null
+++ b/challenge-147/abigail/mmix/ch-2.mms
@@ -0,0 +1,16 @@
+%
+% See https://theweeklychallenge.org/blog/perl-weekly-challenge-147
+%
+
+%
+% Run as: mmixal -o ch-2.mmo ch-2.mms; mmix -q ch-2.mmo
+%
+        LOC     Data_Segment
+        GREG    @
+Text    BYTE    "1560090 7042750",10,0
+
+        LOC     #100
+
+Main    LDA     $255,Text
+        TRAP    0,Fputs,StdOut
+        TRAP    0,Halt,0
diff --git a/challenge-147/abigail/ocaml/ch-2.ml b/challenge-147/abigail/ocaml/ch-2.ml
new file mode 100644
index 0000000000..a9ceff2496
--- /dev/null
+++ b/challenge-147/abigail/ocaml/ch-2.ml
@@ -0,0 +1,9 @@
+(*                                                                   *)
+(* See https://theweeklychallenge.org/blog/perl-weekly-challenge-147 *)
+(*                                                                   *)
+
+(*                       *)
+(* Run as: ocaml ch-2.ml *)
+(*                       *)
+
+print_endline "1560090 7042750";
diff --git a/challenge-147/abigail/php/ch-2.php b/challenge-147/abigail/php/ch-2.php
new file mode 100644
index 0000000000..0b4fc1567c
--- /dev/null
+++ b/challenge-147/abigail/php/ch-2.php
@@ -0,0 +1,11 @@
+<?php
+    //
+    // See https://theweeklychallenge.org/blog/perl-weekly-challenge-147
+    //
+
+    //
+    // Run as: php ch-2.php
+    //
+
+    echo "1560090 7042750\n"
+?>
diff --git a/challenge-147/abigail/postscript/ch-2.ps b/challenge-147/abigail/postscript/ch-2.ps
new file mode 100644
index 0000000000..177894975c
--- /dev/null
+++ b/challenge-147/abigail/postscript/ch-2.ps
@@ -0,0 +1,10 @@
+%!PS
+%
+% See https://theweeklychallenge.org/blog/perl-weekly-challenge-147
+%
+
+%
+% Run as: ps2ascii ch-2.ps
+%
+
+(1560090 7042750) =
diff --git a/challenge-147/abigail/rexx/ch-2.rexx b/challenge-147/abigail/rexx/ch-2.rexx
new file mode 100644
index 0000000000..bf0cdb5223
--- /dev/null
+++ b/challenge-147/abigail/rexx/ch-2.rexx
@@ -0,0 +1,9 @@
+/*
+ * See https://theweeklychallenge.org/blog/perl-weekly-challenge-147
+ */
+
+/*
+ * Run as: rexx ch-2.rexx
+ */
+
+say "1560090 7042750"
diff --git a/challenge-147/abigail/scheme/ch-2.scm b/challenge-147/abigail/scheme/ch-2.scm
new file mode 100644
index 0000000000..81bdeb1cdd
--- /dev/null
+++ b/challenge-147/abigail/scheme/ch-2.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-2.scm
+;;;
+
+(display "1560090 7042750\n")
diff --git a/challenge-147/abigail/sed/ch-2.sed b/challenge-147/abigail/sed/ch-2.sed
new file mode 100644
index 0000000000..bf37937d38
--- /dev/null
+++ b/challenge-147/abigail/sed/ch-2.sed
@@ -0,0 +1,12 @@
+#
+# See https://theweeklychallenge.org/blog/perl-weekly-challenge-147
+#
+
+#
+# Run as: sed -f ch-2.sed
+#
+# For each line in the input file, we write the first three
+# self-describing numbers.
+#
+
+s/.*/1560090 7042750/
diff --git a/challenge-147/abigail/sql/ch-2.sql b/challenge-147/abigail/sql/ch-2.sql
new file mode 100644
index 0000000000..ef0a3578ac
--- /dev/null
+++ b/challenge-147/abigail/sql/ch-2.sql
@@ -0,0 +1,9 @@
+--
+-- See https://theweeklychallenge.org/blog/perl-weekly-challenge-147
+--
+
+-- 
+-- Run as: sqlite3 < ch-2.sql
+--
+
+SELECT "1560090 7042750";
diff --git a/challenge-147/abigail/t/input-2-1 b/challenge-147/abigail/t/input-2-1
index e69de29bb2..8d1c8b69c3 100644
--- a/challenge-147/abigail/t/input-2-1
+++ b/challenge-147/abigail/t/input-2-1
@@ -0,0 +1 @@
+ 
diff --git a/challenge-147/abigail/tcl/ch-2.tcl b/challenge-147/abigail/tcl/ch-2.tcl
new file mode 100644
index 0000000000..6565977dd1
--- /dev/null
+++ b/challenge-147/abigail/tcl/ch-2.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-2.tcl
+#
+
+puts "1560090 7042750"