Sha256: a9cf5d32dfad336b586947fa273c8073cbb9e93490b89d48cb8732ec569654bd
Contents?: true
Size: 650 Bytes
Versions: 8
Compression:
Stored size: 650 Bytes
Contents
open Core.Std
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 = [
(* GENERATED-CODE
"$description" >::
ae $expected (hamdist "$strand1" "$strand2");
END GENERATED-CODE *)
]
let () =
run_test_tt_main ("hamming tests" >::: tests)
Version data entries
8 entries across 8 versions & 1 rubygems