
24 Nov
2008
24 Nov
'08
1:44 a.m.
On Mon, Nov 24, 2008 at 7:40 AM, Andrea Vezzosi
It's more natural to consider the cross product of no sets to be [[]] so your crossr becomes:
crossr [] = [[]] crossr (x:xs) = concat (map (\h ->map (\t -> h:t) (crossr tail)) hd
Ops, hd and tail should be x and xs here.