Go, Java, Pascal, Tcl, and Scheme solutions for week 133, part 1.

6 files changed, 105 insertions, 0 deletions

diff --git a/challenge-133/abigail/README.md b/challenge-133/abigail/README.md
index 228c3cd83c..48c489dd8e 100644
--- a/challenge-133/abigail/README.md
+++ b/challenge-133/abigail/README.md
@@ -12,11 +12,15 @@
 * [Bash][bash/ch-1.sh)
 * [bc][bc/ch-1.bc)
 * [C][c/ch-1.c)
+* [Go][go/ch-1.go)
 * [Lua][lua/ch-1.lua)
 * [Node.js][node/ch-1.js)
+* [Pascal][pascal/ch-1.p)
 * [Perl][perl/ch-1a.pl)
 * [Python][python/ch-1.py)
 * [Ruby][ruby/ch-1.rb)
+* [Scheme][scheme/ch-1.scm)
+* [Tcl][tcl/ch-1.tcl)
 
 ## Part 2
 
diff --git a/challenge-133/abigail/go/ch-1.go b/challenge-133/abigail/go/ch-1.go
new file mode 100644
index 0000000000..6ddd49fbfa
--- /dev/null
+++ b/challenge-133/abigail/go/ch-1.go
@@ -0,0 +1,25 @@
+package main
+
+//
+// See ../README.md
+//
+
+//
+// Run as: go run ch-1.go
+//
+
+import (
+    "fmt"
+    "math"
+)
+
+func main () {
+    for {
+        var num int
+        n, err := fmt . Scanf ("%d", &num)
+        if n != 1 || err != nil {
+            break
+        }
+        fmt . Printf ("%.0f\n", math . Exp (math . Log (float64 (num)) / 2))
+    }
+}
diff --git a/challenge-133/abigail/java/ch-1.java b/challenge-133/abigail/java/ch-1.java
new file mode 100644
index 0000000000..82efa23cf9
--- /dev/null
+++ b/challenge-133/abigail/java/ch-1.java
@@ -0,0 +1,23 @@
+//
+// See ../README.md
+//
+
+//
+// Run as: ln ch-1.java ch1.java; javac ch1.java; java ch1 < input-file
+//
+
+import java.util.*;
+
+public class ch1 {
+
+    public static void main (String [] args) {
+        Scanner scanner = new Scanner (System . in);
+        while (scanner . hasNextInt ()) {
+            System . out . printf ("%.0f\n",
+                Math . exp (
+                    Math . log (scanner . nextInt ()) / 2
+                )
+            );
+        }
+    }
+}
diff --git a/challenge-133/abigail/pascal/ch-1.p b/challenge-133/abigail/pascal/ch-1.p
new file mode 100644
index 0000000000..4d02d8f0ae
--- /dev/null
+++ b/challenge-133/abigail/pascal/ch-1.p
@@ -0,0 +1,20 @@
+Program XXX;
+
+(*                  *)
+(* See ../README.md *)
+(*                  *)
+
+(*                                                        *)
+(* Run as: fpc -och-1.out ch-1.p; ./ch-1.out < input-file *)
+(*                                                        *)
+
+uses math;
+
+var n: integer;
+
+begin
+    while not eof do begin
+        readln (n);
+        writeln (Exp (lnxp1 (n - 1) / 2) : 1 : 0);
+    end
+end.
diff --git a/challenge-133/abigail/scheme/ch-1.scm b/challenge-133/abigail/scheme/ch-1.scm
new file mode 100644
index 0000000000..d934c11a0e
--- /dev/null
+++ b/challenge-133/abigail/scheme/ch-1.scm
@@ -0,0 +1,22 @@
+;;;
+;;; See ../README.md
+;;;
+
+;;;
+;;; Run as: guile --no-auto-compile ch-1.scm < input-file
+;;;
+
+
+(use-modules (ice-9 format))
+
+(define (main)
+    (define num (read))
+    (if (not (eof-object? num))
+        (begin
+            (format #t "~,d~%" (inexact->exact (floor (exp (/ (log num) 2)))))
+            (main)
+        )
+    )
+)
+
+(main)
diff --git a/challenge-133/abigail/tcl/ch-1.tcl b/challenge-133/abigail/tcl/ch-1.tcl
new file mode 100644
index 0000000000..2f06c4e8b6
--- /dev/null
+++ b/challenge-133/abigail/tcl/ch-1.tcl
@@ -0,0 +1,11 @@
+#
+# See ../README.md
+#
+
+#
+# Run as: tclsh ch-1.tcl < input-file
+#
+
+while {[gets stdin num] >= 0} {
+    puts [expr int (exp (log ($num) / 2))]
+}