Wie man die Anzahl der aufeinanderfolgenden Duplikate in Ocaml zählt

Question

Ich versuche, eine Funktion zu schreiben, die eine Liste aufnimmt und die Anzahl der aufeinanderfolgenden doppelten Elemente in der Liste zurückgibt.

Zum Beispiel gegeben [1;2;3;3;4;4;5], sollte die Funktion 2

Dies ist meine erste Implementierung zurück, aber leider 0 es gibt immer. Ich bin mir nicht sicher, wo der Fehler liegt. Jede Hilfe zur Verbesserung wird sehr geschätzt.

let rec count_successive_duplicates (lst: int list) (count: int) : (int) = 
    match lst with 
    | [] | [_]-> 0 
    | x :: y :: tl -> 
     if x = y then count_successive_duplicates (y::tl) (count + 1) else count_successive_duplicates (y::tl) count 
    ;; 

let() = 
    print_int (count_successive_duplicates [1;2;3;3;4;4;5] 0) 

Answer 1

Scheint Ich war etwas dumm von immer 0 für den Basisfall zurückkehrt, statt der berechneten Zahl zu tun. Die vorherige Version ignorierte nur die berechnete count, die es erhielt. Das funktioniert jetzt:

let rec count_successive_duplicates lst count : (int) = match lst with 
    | [] | [_]-> count 
    | x :: y :: tl -> 
    if x = y then count_successive_duplicates (y::tl) (count + 1) else count_successive_duplicates (y::tl) count 
;; 

let() = 
    print_int (count_successive_duplicates [1;2;3;3;4;4;5] 0) 

Answer 2

Am Ende wollen Sie den Akku mit der Zählung statt 0 immer zurück:

let rec count_successive_duplicates (lst: int list) (count: int) : (int) = 
    match lst with 
    | [] | [_] -> count 
(*    ^^^^^ */) 
    | x :: y :: tl -> count_successive_duplicates (y::tl) (count + if x = y then 1 else 0)