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

26
Task/Multiple-distinct-objects/Aime/multiple-distinct-objects.aime
View file

@ -1,15 +1,11 @@
void
show_sublist(list l)
{
integer i;
integer i, v;
i = 0;
while (i < l_length(l)) {
if (i) {
o_space(1);
}
o_integer(l_q_integer(l, i));
i += 1;
for (i, v in l) {
o_space(sign(i));
o_integer(v);
}
}
@ -17,13 +13,12 @@ void
show_list(list l)
{
integer i;
list v;
i = 0;
while (i < l_length(l)) {
for (i, v in l) {
o_text(" [");
show_sublist(l_q_list(l, i));
show_sublist(v);
o_text("]");
i += 1;
}
o_byte('\n');
@ -34,10 +29,7 @@ multiple_distinct(integer n, object o)
{
list l;
while (n) {
l_append(l, o);
n -= 1;
}
call_n(n, l_append, l, o);
return l;
}
@ -57,7 +49,7 @@ main(void)
l = multiple_distinct(8, z);
# modify one of the sublists
l_r_integer(l_q_list(l, 3), 0, 7);
l_q_list(l, 3)[0] = 7;
# display the list of lists
show_list(l);