직교 제품이 개 목록

Question

가능한 중복 :
F# - cross product of two lists
Projecting a list of lists efficiently in F#

나는 두 개의 정수리스트를 받아 모든 직교 제품을 하나의 목록을 반환하는 기능을 가지고있다. 나는 올바른 생각을 갖고 있지만 올바른 구현이 아니라고 생각합니다. 포인터 좀 줄까?

let rec cartesian = function 
| ([],[]) -> [] 
| (xs,[]) -> [] 
| ([],ys) -> [] 
| (x::xs,ys) -> List.map(fun y -> (x,y)::[]) cartesian (xs,ys) 

Answer 1

이 빠른 수정은 다음과 같습니다

let rec cartesian = function 
| ([],[]) -> [] 
| (xs,[]) -> [] 
| ([],ys) -> [] 
| (x::xs, ys) -> (List.map(fun y -> x,y) ys) @ (cartesian (xs,ys)) 

아이디어는 각 요소 x와 함께, 당신은 목록 [(x, y1); (x, y2); ...; (x, yn)]를 생성하고 모두 해당 목록을 연결한다는 것입니다.

함수에서 첫 번째 패턴 일치 사례는 중복됩니다. 그리고 논쟁은 카레트 형태에 더 편리합니다. 이 기능은 다음과 같을 수 있습니다 :

let cartesian xs ys = 
    xs |> List.collect (fun x -> ys |> List.map (fun y -> x, y))