tasks a-s

Task/Permutations/Tcl/permutations.tcl

@@ -0,0 +1,10 @@
+package require struct::list
+
+# Make the sequence of digits to be permuted
+set n [lindex $argv 0]
+for {set i 1} {$i <= $n} {incr i} {lappend sequence $i}
+
+# Iterate over the permutations, printing as we go
+struct::list foreachperm p $sequence {
+    puts $p
+}