Multiple distinct objects: Difference between revisions

Content added Content deleted
(added scheme example)
Line 24: Line 24:
show_sublist(list l)
show_sublist(list l)
{
{
integer i;
integer i, v;


i = 0;
for (i, v in l) {
while (i < l_length(l)) {
o_space(sign(i));
if (i) {
o_integer(v);
o_space(1);
}
o_integer(l_q_integer(l, i));
i += 1;
}
}
}
}
Line 40: Line 36:
{
{
integer i;
integer i;
list v;


i = 0;
for (i, v in l) {
while (i < l_length(l)) {
o_text(" [");
o_text(" [");
show_sublist(l_q_list(l, i));
show_sublist(v);
o_text("]");
o_text("]");
i += 1;
}
}


Line 57: Line 52:
list l;
list l;


while (n) {
call_n(n, l_append, l, o);
l_append(l, o);
n -= 1;
}


return l;
return l;
Line 80: Line 72:


# modify one of the sublists
# 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
# display the list of lists