Функция списка Ocaml

Question

У меня есть некоторые проблемы с функциями Ocaml.

Определить функцию all_odd, которая для данной матрицы в качестве параметра проверяет, все ли элементы являются нечетными.

val all_odd : int list list -> bool = <fun> 

Пример:

#let matrix1 = [[1; 2]; [3; 4]];; 
val matrix1 : int list list = [[1; 2]; [3; 4]] 

#all_odd matrix1;; 
- : bool = false; 

Answer 1

Вы можете решить эту проблему во многом способе, но лучший подход должен были бы декомпозитной проблемой в простые.

• Шаг 1: Какая наименьшая проблема решить? Как проверить, является ли число нечетное

  x mod 2 != 0

• Шаг 2: Как использовать его для целого списка номеров

  let isOdd list = List.for_all (fun x -> x mod 2 != 0) list

• Шаг 3: Как использовать его для матрицы

---

let all_odd matrix = 
    let isOdd list = List.for_all (fun x -> x mod 2 != 0) list in 
    List.for_all isOdd matrix 

Имеет смысл?