let moja_matrika1 = [[1; 2]; [3; 4]];;
let moja_matrika2 = [[4; 7; 8]; [3; 2; 1]];;
let rec does_it_contain (lis1, lis2) =
if (List.hd lis1 = []) then false
else if (List.hd lis1 = lis2) then tru
所以，我想用Tsdl這裏是我所做的： 我找不到SDL 2.0.5與apt-get所以我下載了它，./configure && make && sudo make install opam install tsdl 然後創建了一個文件main.ml（作爲一個例子給出的上tsdl website）： open Tsdl
open Result
let main() = match Sdl.ini
數組的前n個元素 我在ocaml的以下功能，總結第一c元素作爲參數傳遞的數組： let rec sum_array c a =
if c < 0 then 0
else a.(c) + sum_array (c - 1) a;;
我碰巧知道什麼陣a是先進的，所以我想設置這個。我試過了： fun c -> let int_array = [| 1 ; 2 ; 3 ; 4 ;
寫一個在例子11.38的yearday類型上正確工作的相等運算符（調用它= /）。 （您可能需要查找支配閏年出現的規則。） 實例11.38：type yearday = YMD of int * int * int | YD of int * int;; 我有OCaml中工作這很難，很想看看如何可以做到這一點。
所以，當你定義模塊的結構，它可以延長另一個模塊關閉它： module Base = struct
type t = Name of string
end
module Child = struct
include Base
end
Child.Name "test"
(* - : Child.t = Child.Name "test" *)
然而，隨着recu
我'其實還挺新OCAML和努力學習。 我在我的一個功能上遇到了一個大問題。 這是一個簡單的函數（下面），裏面我試圖檢查一個電子郵件地址的有效性，檢查它是否有'@'，然後''。並在每個之前和之後的文本。 （我不想使用正則表達式，我'真的很抱歉，如果你只知道怎麼做，用正則表達式，但我不會考慮的正則表達式的答案^^「）。 下面是代碼，預先感謝您： let checkMail mail =
if Str