iwk #2166(2007/08/14 14:21 GMT) [ OCaml ] Rating-1/1=-1.00
直積はcross productじゃなくてdirect productだったと思います。
1 2 3 4 5
#light open List let rec directProduct = function | [] -> [[]] | ls::lss -> [for l in ls for rest in (directProduct lss) -> l::rest]
Rating-1/1=-1.00-0+
[ reply ]
iwk
#2166()
[
OCaml
]
Rating-1/1=-1.00
Rating-1/1=-1.00-0+
[ reply ]