F # Seq diff

Question

cho hai chuỗi, cách lấy tất cả các phần tử thuộc cả chuỗi hoặc tất cả các phần tử duy nhất cho một trong số chúng?

Ví dụ:

let a = [1..10] 
let b = [3; 5; 7] 

Làm thế nào để tính toán 3 5 và 7 (tất cả các yếu tố chung cho cả hai danh sách) và 1, 2, 4, 6, 8, 9, 10 (tất cả các yếu tố không chung)

Cảm ơn

Answer 1

Những gì bạn muốn làm là không nhiều hơn các hoạt động thiết lập đơn giản của intersection và difference (hoặc bổ sung tương đối).

F # có mô-đun Set để giúp chúng tôi ở đây. Điều này sẽ thực hiện công việc:

let a = [1 .. 10] 
let b = [3; 5; 7] 

let intersection = Set.intersect (Set.ofList a) (Set.ofList b) 
let difference = (Set.ofList a) - (Set.ofList b) 

Sau đó, bạn có thể chuyển đổi kết quả thành danh sách bằng cách sử dụng Set.toList, nếu muốn. Khi Mehrdad chỉ ra, điều này có thể được thực hiện bằng cách sử dụng LINQ (hoặc thậm chí là lớp HashSet trong BCL), nhưng cách tiếp cận ở đây dường như là nhất trong tinh thần của ngôn ngữ F # (chắc chắn là cú pháp tốt nhất, và có lẽ là hiệu quả nhất quá).

Answer 2

không rất F # -y cách tôi biết. Bạn luôn có thể sử dụng thư viện .NET. seq<T> chỉ là IEnumerable<T>, không có gì đặc biệt:

let diff = System.Linq.Enumerable.Except(seq1, seq2); // seq1 - seq2 
let intersect = System.Linq.Enumerable.Intersect(seq1, seq2); 
let symdiff = System.Linq.Enumerable.Union(System.Linq.Enumerable.Except(seq1, seq2), System.Linq.Enumerable.Except(seq2, seq1)); 

Answer 3

Hơi nhỏ gọn hơn:

let a = set [0;1;2;3] 
let b = set [2;3;4;5] 
let c = a - b 
let d = b - a 
let e = Set.intersect a b 
let f = a + b 
> 
val c : Set<int> = seq [0; 1] 
val d : Set<int> = seq [4; 5] 
val e : Set<int> = seq [2; 3] 
val f : Set<int> = seq [0; 1; 2; 3; ...] 

Danny