gian · October 7, 2011 15:31
diff --git a/gistfile1.sml b/gistfile1.sml
 fun ap (h::l) = 
 let
   fun allpairs h [] = []
     | allpairs h (h'::t) = (h,h') :: allpairs h t
 in
   List.foldl (fn (a,b) => b @ allpairs a l) [] (h::l)
 end
	fun ap (h::l) =
	let
	fun allpairs h [] = []
	\| allpairs h (h'::t) = (h,h') :: allpairs h t
	in
	List.foldl (fn (a,b) => b @ allpairs a l) [] (h::l)
	end