mirror of
https://github.com/Smaug123/WoofWare.Myriad
synced 2025-10-05 20:18:43 +00:00
15 lines
427 B
Forth
15 lines
427 B
Forth
namespace WoofWare.Myriad.Plugins
|
|
|
|
[<RequireQualifiedAccess>]
|
|
module private List =
|
|
let partitionChoice<'a, 'b> (xs : Choice<'a, 'b> list) : 'a list * 'b list =
|
|
let xs, ys =
|
|
(([], []), xs)
|
|
||> List.fold (fun (xs, ys) v ->
|
|
match v with
|
|
| Choice1Of2 x -> x :: xs, ys
|
|
| Choice2Of2 y -> xs, y :: ys
|
|
)
|
|
|
|
List.rev xs, List.rev ys
|