Sha256: de0a249406205ac895373131501f33048c9b8e7bc692ff273b2259452428eca6
Contents?: true
Size: 622 Bytes
Versions: 156
Compression:
Stored size: 622 Bytes
Contents
open Core
open OUnit2
let printer n =
Option.sexp_of_t Int.sexp_of_t n
|> Sexp.to_string
let ae exp got _test_ctxt = assert_equal ~printer exp got
let dna_of_string s =
let open Hamming in
let f = function
| 'A' -> A
| 'C' -> C
| 'G' -> G
| 'T' -> T
| _ -> failwith "Big news! New nucleotide discovered" in
String.to_list s |> List.map ~f
let hamdist a b = Hamming.hamming_distance (dna_of_string a) (dna_of_string b)
let tests = [
(* TEST
"$description" >::
ae $expected (hamdist $strand1 $strand2);
END TEST *)
]
let () =
run_test_tt_main ("hamming tests" >::: tests)
Version data entries
156 entries across 156 versions & 1 rubygems