Permutations with repetitions: Difference between revisions
→{{header|AutoHotkey}}
(Added Wren) |
Catskill549 (talk | contribs) |
||
Line 396:
Return s
}</lang>
=={{header|AWK}}==
<lang AWK>
# syntax: GAWK -f PERMUTATIONS_WITH_REPETITIONS.AWK
# converted from C
BEGIN {
numbers = 3
upto = 4
for (tmp2=1; tmp2<=numbers; tmp2++) {
arr[tmp2] = 1
}
arr[numbers] = 0
tmp1 = numbers
while (1) {
if (arr[tmp1] == upto) {
if (--tmp1 == 0) {
break
}
}
else {
arr[tmp1]++
while (tmp1 < numbers) {
arr[++tmp1] = 1
}
printf("(")
for (tmp2=1; tmp2<=numbers; tmp2++) {
printf("%d",arr[tmp2])
}
printf(")")
}
}
printf("\n")
exit(0)
}
</lang>
{{out}}
<pre>
(111)(112)(113)(114)(121)(122)(123)(124)(131)(132)(133)(134)(141)(142)(143)(144)(211)(212)(213)(214)(221)(222)(223)(224)(231)(232)(233)(234)(241)(242)(243)(244)(311)(312)(313)(314)(321)(322)(323)(324)(331)(332)(333)(334)(341)(342)(343)(344)(411)(412)(413)(414)(421)(422)(423)(424)(431)(432)(433)(434)(441)(442)(443)(444)
</pre>
=={{header|C}}==
| |||