mirror of
https://github.com/Smaug123/unofficial-nunit-runner
synced 2025-10-08 10:38:41 +00:00
16 lines
484 B
Forth
16 lines
484 B
Forth
namespace TestRunner
|
|
|
|
[<RequireQualifiedAccess>]
|
|
module List =
|
|
|
|
/// Given e.g. [[1,2],[4,5,6]], returns:
|
|
/// [1;4] ; [1;5] ; [1;6] ; [2;4] ; [2;5] ; [2;6]
|
|
/// in some order.
|
|
/// This is like allPairs but more so.
|
|
let rec combinations (s : 'a list list) : 'a list list =
|
|
match s with
|
|
| [] -> [ [] ]
|
|
| head :: s ->
|
|
let sub = combinations s
|
|
head |> List.collect (fun head -> sub |> List.map (fun tail -> head :: tail))
|