Skip to content

Update OCaml snippets #2

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 1 commit into from
May 3, 2023
Merged

Update OCaml snippets #2

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
55 changes: 30 additions & 25 deletions code_challenge_examples.yml
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1043,31 +1043,36 @@ ocaml:
default: reference
reference:
setup: |-
module Person = struct
type t = { name: string }
let greet (person: t) = (* TODO: write a greeter *)
end

answer: |-
module Person = struct
type t = { name: string }
let greet (person: t) = "Hello, " ^ person.name ^ "!"
end

fixture: |-
module Tests = struct
open OUnit
let suite = [
"Person module" >:::
[
"test_greet" >:: (fun _ ->
let person : Person.t = { Person.name = "Jack" } in
assert_equal "Hello, Jack!" (Person.greet person)
)
]
]
;;
end
let is_even (n: int) = false (* TODO: return true if the number is even *)
let is_odd (n: int) = false (* TODO: return true if the number is odd *)

answer: |-
let is_even (n: int) = n mod 2 = 0
let is_odd (n: int) = n land 1 <> 0

fixture: |-
open OUnit
let suite = [
"is_even tests" >:::
[
"is_even 0" >:: (fun _ ->
assert_equal true (Solution.is_even 0) ~printer:string_of_bool ~msg:"n = 0"
);
"is_even 1" >:: (fun _ ->
assert_equal false (Solution.is_even 1) ~printer:string_of_bool ~msg:"n = 1"
);
];

"is_odd tests" >:::
[
"is_odd 0" >:: (fun _ ->
assert_equal false (Solution.is_odd 0) ~printer:string_of_bool ~msg:"n = 0"
);
"is_even 3" >:: (fun _ ->
assert_equal true (Solution.is_odd 3) ~printer:string_of_bool ~msg:"n = 3"
);
];
]

swift:
default: reference
Expand Down
23 changes: 11 additions & 12 deletions default_fixture_text.toml
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -510,21 +510,20 @@ objc = """
ocaml = """
(* TODO: replace with your own tests, these are just how-to examples.
* OUnit Spec example:
* See http://ounit.forge.ocamlcore.org/api-ounit-2.0.0 for documentation
* See https://ocaml.org/p/ounit2/2.2.3/doc/index.html for documentation
* Available packages: https://docs.codewars.com/languages/ocaml
*)

module Tests = struct
open OUnit
let suite = [
"Suite Name" >:::
[
"Test Name" >:: (fun _ ->
assert_equal "Expected" "Actual"
)
]
open Solution
open OUnit
let suite = [
"Suite Name" >:::
[
"Test Name" >:: (fun _ ->
assert_equal "Expected" "Actual" ~printer:Fun.id ~msg:"test"
)
]
;;
end
]
"""

pascal = """
Expand Down