tcl/reverse-string: 3rd iteration

tcl/reverse-string/reverse-string.tcl

@@ -1,6 +1,5 @@
 proc reverse {text} {
-    set rlist [lreverse [split $text ""]]
-    set rtext [join $rlist ""]
+    set rtext [string reverse $text]
 
     return $rtext
 }

tcl/reverse-string/run-tests-tcl.txt

@@ -22,41 +22,41 @@ warn: parsing /home/vpayno/git_vpayno/exercism-workspace/tcl/reverse-string/test
 warn: parsing /home/vpayno/git_vpayno/exercism-workspace/tcl/reverse-string/reverse-string.tcl
 /home/vpayno/git_vpayno/exercism-workspace/tcl/reverse-string/reverse-string.tcl: parsing file /home/vpayno/git_vpayno/exercism-workspace/tcl/reverse-string/reverse-string.tcl
 /home/vpayno/git_vpayno/exercism-workspace/tcl/reverse-string/reverse-string.tcl: errors file: 0
-errors all: 1 (3.57% lines)
-lines: 28 in: 00:00:00 43 lines/sec: 651.16
+errors all: 1 (3.70% lines)
+lines: 27 in: 00:00:00 32 lines/sec: 843.75
 commands: 3 variables: 1
 signature params 5 unknown: 2 40.00% unknown variables 0.00%
 
-real	0m0.093s
-user	0m0.084s
-sys	0m0.009s
+real	0m0.088s
+user	0m0.073s
+sys	0m0.015s
 
 ===============================================================================
 
 Running: nagelfar -s _ ./reverse-string.tcl
 Checking file ./reverse-string.tcl
 
 real	0m0.032s
-user	0m0.026s
-sys	0m0.006s
+user	0m0.028s
+sys	0m0.004s
 
 ===============================================================================
 
 Running: RUN_ALL=1 tclsh ./reverse-string.test
 reverse-string.test:	Total	7	Passed	7	Skipped	0	Failed	0
 
 real	0m0.009s
-user	0m0.009s
-sys	0m0.000s
+user	0m0.007s
+sys	0m0.002s
 
 
 ===============================================================================
 
 Running: misspell .
 
-real	0m0.020s
-user	0m0.020s
-sys	0m0.012s
+real	0m0.021s
+user	0m0.021s
+sys	0m0.011s
 
 ===============================================================================