Я хотел бы создать функцию, которая принимает список и возвращает два списка: первый содержит все нечетные элементы, а второй - все четные элементы.
Например, учитывая [1;2;4;6;7;9]
, я хотел бы вернуть [ [1;4;7] ; [2;6;9] ]
.
Я написал это до сих пор и не знаю, как развиваться.
let splitList list =
let rec splitOdd oList list1 list2 =
match oList with
| [] -> []
| head :: tail -> splitEven tail (list1::head) list2
and splitEven oList list1 list2 =
match oList with
| [] -> []
| head :: tail -> splitOdd tail list1 (list2::head)
splitOdd list [] []
List.partition
использует предикат, и в этом случае подходящего предиката нет. - person J D   schedule 21.02.2012