Data update

Task/Increment-a-numerical-string/Crystal/increment-a-numerical-string.cr

@@ -0,0 +1,5 @@
+"-123".succ  # => "-124"
+
+require "big"
+
+"-123".to_big_i.succ.to_s  # => "-122"

Task/Increment-a-numerical-string/Tcl/increment-a-numerical-string-1.tcl

@@ -0,0 +1,10 @@
+# n is string
+set n "1234"
+
+# integer rep added to n
+# o is calculated integer
+set o [expr $n + 1]
+
+# n is string,
+# o used as string adds string representation to o
+puts stdout "$n incrememented is $o"

Task/Increment-a-numerical-string/Tcl/increment-a-numerical-string-2.tcl

@@ -0,0 +1,6 @@
+# n has integer representation incremented
+# n string rep updates when value changes
+incr n 5
+
+# n string rep used
+puts stdout "n is now $n"

Task/Increment-a-numerical-string/Tcl/increment-a-numerical-string-3.tcl

@@ -0,0 +1,5 @@
+# string
+set j "4.3e11"
+
+# prints j as string
+puts stdout "j: $j"

Task/Increment-a-numerical-string/Tcl/increment-a-numerical-string-4.tcl

@@ -0,0 +1,4 @@
+# double fp temp calculated
+# converts to string
+# j not updated
+puts stdout "j: [expr $j]"

Task/Increment-a-numerical-string/Tcl/increment-a-numerical-string-5.tcl

@@ -0,0 +1,2 @@
+# j is still string "4.2e11"
+puts stdout "j: $j"

Task/Increment-a-numerical-string/Tcl/increment-a-numerical-string-6.tcl

@@ -0,0 +1 @@
+puts stdout "$j * $n = [expr $j * $n]"

Task/Increment-a-numerical-string/Tcl/increment-a-numerical-string.tcl

@@ -1,2 +0,0 @@
-set str 1234
-incr str