Sha256: 1c4f29ae4e12fb8782f2a85c4b72c2682b4c4956157929ec6a24e4325a3d33a2
Contents?: true
Size: 626 Bytes
Versions: 91
Compression:
Stored size: 626 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 = [
(* TEST
"$description" >::
ae $expected (hamdist $strand1 $strand2);
END TEST *)
]
let () =
run_test_tt_main ("hamming tests" >::: tests)
Version data entries
91 entries across 91 versions & 1 rubygems