4.3BSD/usr/contrib/icon/test/set01.icn

record array(a,b,c,d,e,f,g)

procedure dummy(u,v,x,y,z)
   suspend u | v
   return x
end

procedure main()
   write("set([1,0,1,0,1,0,1,0]) ----> ",image(set([1,0,1,0,1,0,1,0])) | "none")
   write("set([]) ----> ",image(set([])) | "none")
   write("s := set([1,2,3,4,5,6,7,8,9,10]) ----> ",image(s := set([1,2,3,4,5,6,7,8,9,10])) | "none")
   write("*s ----> ",image(*s) | "none")
   write("?s ----> ",image(?s) | "none")
   write("?s ----> ",image(?s) | "none")
   write("every write(!s) ----> ",image(every write(!s)) | "none")
   write("every write(!sort(s)) ----> ",image(every write(!sort(s))) | "none")
   write("*copy(s) ----> ",image(*copy(s)) | "none")
   write("image(s) ----> ",image(image(s)) | "none")
   write("type(s) ----> ",image(type(s)) | "none")
   write("member(s,8) ----> ",image(member(s,8)) | "none")
   write("member(s,\"8\") ----> ",image(member(s,"8")) | "none")
   write("s := set([]) ----> ",image(s := set([])) | "none")
   write("every insert(s,1 to 100) ----> ",image(every insert(s,1 to 100)) | "none")
   write("*s ----> ",image(*s) | "none")
   write("every write(!s) ----> ",image(every write(!s)) | "none")
   write("every delete(s,15 to 30) ----> ",image(every delete(s,15 to 30)) | "none")
   write("*s ----> ",image(*s) | "none")
   write("every write(!s) ----> ",image(every write(!s)) | "none")
   write("member(x,x) ----> ",image(member(x,x)) | "none")
end