Sha256: 40ad1515a82052d32d4c6dab7273eefd949e00a58eb87eb871d62831ea4ff9b9
Contents?: true
Size: 286 Bytes
Versions: 101
Compression:
Stored size: 286 Bytes
Contents
open Core.Std
module CMap = Char.Map
let count s c =
let f n c' = if c = c' then n + 1 else n in
String.fold ~init:0 ~f s
let nucleotide_counts s =
let f m c = CMap.change m c ~f:(function None -> Some 1 | Some n -> Some (n + 1)) in
String.fold ~init:CMap.empty ~f s
Version data entries
101 entries across 101 versions & 1 rubygems