我寫了簡短的代碼位，以簡單地跳過num_lines線在輸入文件（打印線條勾勒出用於調試目的這裏有兩件事情我想，沒有工作。 for i = 0 to num_lines do
print_endline (fscanf infile "%s" (fun p -> p));
done;;
for i = 0 to num_lines do
print_endline (fsc
我想要一個List.map的尾遞歸版本，所以我寫了我自己的。那就是： let rec list_map f l ?(accum=[])=
match l with
head :: tail -> list_map f tail ~accum:(head :: accum)
| [] -> accum;;
每當我編譯這個功能，我得到： File "main.ml"
我有一個程序，解決加權interval scheduling problem using dynamic programming（並相信與否，它不是作業）。我已經介紹過它，而且我似乎花費了大部分時間用p填充M（...）。下面是功能： let rec get_highest_nonconflicting prev count start =
match prev with
he
我最近一直在做一些OCaml編程，以學習語言和熟悉函數式編程。最近，我開始想，我希望能夠擴展現有的類型（內置，還是我自己的一個），例如： type bexp =
And of bexp * bexp
| Or of bexp * bexp
| Xor of bexp * bexp
| Not of bexp;;
現在讓我們假設我要添加這種類型的Nop變體，但只適用於新類型 -
我目前正在編程一個OCaml模塊，它定義了一個與CPU寄存器相對應的類型。這個模塊的接口如下： (*
* Defines a type which represents a R3000 register.
*)
type t =
| R0 (* Always 0 *)
| AT (* Assembler temporary *)
| V0 | V1