struct list
*consls(v
,ls
) /* make list */
temp
= challoc(sizeof(*temp
));
struct list
*append(v
,ls
) /* return ls . v */
if (!ls
) return(consls(v
,0));
for (temp
= ls
; temp
-> nxtlist
; temp
= temp
->nxtlist
)
temp
->nxtlist
= consls(v
,0);
oneelt(ls
) /* return w if w is only elt of ls, UNDEFINED otherwise */
if (!ls
) return(UNDEFINED
);
if (ls
->nxtlist
) return(UNDEFINED
);
lslen(ls
) /* return number of elements in list ls */
for (lp
= ls
; lp
; lp
= lp
->nxtlist
)
for (lp
= ls
; lp
; lp
= lp
->nxtlist
)