Initial data commit

Task/Test-integerness/Tcl/test-integerness-1.tcl

@@ -0,0 +1,7 @@
+proc isNumberIntegral {x} {
+    expr {$x == entier($x)}
+}
+# test with various kinds of numbers:
+foreach x {1e100 3.14 7 1.000000000000001 1000000000000000000000 -22.7 -123.000} {
+    puts [format "%s: %s" $x [expr {[isNumberIntegral $x] ? "yes" : "no"}]]
+}

Task/Test-integerness/Tcl/test-integerness-2.tcl

@@ -0,0 +1,8 @@
+% set a 1.0000000000000001
+1.0000000000000001
+% expr $a
+1.0
+% IsNumberIntegral $a
+1
+% puts $a
+1.0000000000000001

Task/Test-integerness/Tcl/test-integerness-3.tcl

@@ -0,0 +1,5 @@
+>>> a = 1.0000000000000001
+>>> a
+1.0
+>>> 1.0 == 1.0000000000000001
+True