March 2014 update

Task/Permutations/AutoHotkey/permutations-2.ahk

@@ -0,0 +1,33 @@
+P(n,k="",opt=0,delim="",str="") { ; generate all n choose k permutations lexicographically
+	;1..n = range, or delimited list, or string to parse
+	;	to process with a different min index, pass a delimited list, e.g. "0`n1`n2"
+	;k = length of result
+	;opt 0 = no repetitions
+	;opt 1 = with repetitions
+	;opt 2 = run for 1..k
+	;opt 3 = run for 1..k with repetitions
+	;str = string to prepend (used internally)
+	;returns delimited string, error message, or (if k > n) a blank string
+	i:=0
+	If !InStr(n,"`n")
+		If n in 2,3,4,5,6,7,8,9
+			Loop, %n%
+				n := A_Index = 1 ? A_Index : n "`n" A_Index
+		Else
+			Loop, Parse, n, %delim%
+				n := A_Index = 1 ? A_LoopField : n "`n" A_LoopField
+	If (k = "")
+		RegExReplace(n,"`n","",k), k++
+	If k is not Digit
+		Return "k must be a digit."
+	If opt not in 0,1,2,3
+		Return "opt invalid."
+	If k = 0
+		Return str
+	Else
+		Loop, Parse, n, `n
+			If (!InStr(str,A_LoopField) || opt & 1)
+				s .= (!i++ ? (opt & 2 ? str "`n" : "") : "`n" )
+					. P(n,k-1,opt,delim,str . A_LoopField . delim)
+		Return s
+}

Task/Permutations/AutoHotkey/permutations-3.ahk

@@ -0,0 +1 @@
+MsgBox % P(3)

Task/Permutations/AutoHotkey/permutations-4.ahk

@@ -0,0 +1 @@
+MsgBox % P("Hello",3)

Task/Permutations/AutoHotkey/permutations-5.ahk

@@ -0,0 +1 @@
+MsgBox % P("2`n3`n4`n5",2,3)

Task/Permutations/AutoHotkey/permutations-6.ahk

@@ -0,0 +1 @@
+MsgBox % P("11 a text ] u+z",3,0," ")

Task/Permutations/Perl-6/permutations-1.pl6

@@ -1,8 +1 @@
-sub postfix:<!>(@a) {
-    @a == 1 ?? [@a] !!
-    gather for @a -> $a {
-        take [ $a, @$_ ] for @a.grep(none $a)!
-    }
-}
-
-.say for <a b c>!
+.say for <a b c>.permutations

Task/Permutations/Perl-6/permutations-4.pl6

@@ -0,0 +1 @@
+.say for permutations(3);