aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

September 2017 Update

Browse source
This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
Download patch file Download diff file Expand all files Collapse all files

36
Task/Find-the-missing-permutation/Aime/find-the-missing-permutation.aime Normal file
View file

@ -0,0 +1,36 @@
void
paste(record r, index x, data p, integer a,)
{
i_delete(x, a);
p[i_size(x)] = a;
if (i_size(x)) {
i_wcall(x, paste, -1, -1, r, x, p);
} else {
r[b_string(p)] = 0;
}
x[a] = 0;
}
integer
main(void)
{
record r;
list l;
index x;
data p;
l_bill(l, 0, "ABCD", "CABD", "ACDB", "DACB", "BCDA", "ACBD", "ADCB",
"CDAB", "DABC", "BCAD", "CADB", "CDBA", "CBAD", "ABDC", "ADBC",
"BDCA", "DCBA", "BACD", "BADC", "BDAC", "CBDA", "DBCA", "DCAB");
i_fit(x, 'A', 0, 'B', 0, 'C', 0, 'D', 0);
b_size(p, 4);
i_wcall(x, paste, -1, -1, r, x, p);
l_ucall(l, r_delete, 1, r);
o_(r_low(r), "\n");
return 0;
}