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

June 2018 Update

Browse source
This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,12 +1,12 @@
void
paste(record r, index x, data p, integer a,)
paste(record r, index x, text 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);
p = insert(p, -1, a);
x.delete(a);
if (~x) {
x.vcall(paste, -1, r, x, p);
} else {
r[b_string(p)] = 0;
r[p] = 0;
}
x[a] = 0;
}
@ -17,20 +17,18 @@ main(void)
record r;
list l;
index x;
data p;
l_bill(l, 0, "ABCD", "CABD", "ACDB", "DACB", "BCDA", "ACBD", "ADCB",
l.bill(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);
x['A'] = x['B'] = x['C'] = x['D'] = 0;
b_size(p, 4);
i_wcall(x, paste, -1, -1, r, x, p);
x.vcall(paste, -1, r, x, "");
l_ucall(l, r_delete, 1, r);
l.ucall(r_delete, 1, r);
o_(r_low(r), "\n");
o_(r.low, "\n");
return 0;
}