- 405 名前：387 [02/11/25 23:08]
- 皆さん解説蟻が鯛です。
とても分かりやすくて感謝してます。
function intersection(S1,S2:list):list;
var s,p:list;
begin
interlist(S);p:=S1↑.next;
while p≠nil do begin
if search(p↑.item,S2)≠nil then insert(S,p↑.item);
p:=p↑.next;
end
intersection:=S
end
において、ｐの必要性がわかりません。
p:=S1↑.next;の部分を消して、以下pをS1としても駄目なんでしょうか？
