mp4096 · February 23, 2018 08:31
diff --git a/cartesian_product.hs b/cartesian_product.hs
 product xss = foldr f [[]] xss
  where f xs yss = foldr g [] xs
    where g x zss = foldr h zss yss
      where h ys qss = (x : ys) : qss
	product xss = foldr f [[]] xss
	where f xs yss = foldr g [] xs
	where g x zss = foldr h zss yss
	where h ys qss = (x : ys) : qss