CAML字符串直方图 我正在尝试从OCAML中的字符串进行直方图。 我处于此状态，对此进行了一些编辑：创建一个直方图OCAML使用字符串输入。 我怎么能看到charfreqs的内容，或者它变得更加困难...

Question

module S = String;;
module HT = Hashtbl;;

let histogram s =
    let charFreqs = HT.create 126 in
        S.iter (fun c ->
            let tmp =
                try HT.find charFreqs c
                with Not_found -> 0 in
            HT.replace charFreqs c (tmp+1)
        ) s;;

let str = "Lorem ipsum dolor sit amet, consectetur adipiscing elit.";;
let charFreqs = histogram str;;

输出：val charfreqs：unit =（）

您的功能返回S.ITER的结果，即：

histogram

：

unit

Answer 1

val iter : (char -> unit) -> string -> unit

用作替代方案：一种纯粹的功能方法。

let histogram s =
    let charFreqs = HT.create 126 in
    S.iter (fun c ->
        let tmp =
            try HT.find charFreqs c
            with Not_found -> 0 in
        HT.replace charFreqs c (tmp+1)
    ) s;
    charFreqs;;

Map