Sort numbers lexicographically: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,194: / Line 1,194: @@
 =={{header|Tcl}}==
 <lang tcl>proc iota {num {start 0} {step 1}} {
-    set res {}
+	set res {}
-    for {set i 0; set n $start} {$i < $num} {incr i; incr n $step} {
+	set end [+ $start [* $step $num]]
+	for {set n $start} {$n != $end} {incr n $step} {
-        lappend res $n
+		lappend res $n
-    }
+	}
-    return $res
+	return $res
 }