eliminar la cadena duplicada y la cadena vacía

Question

let undefined = ["string"; ""; "string"; "boolean";"";"innermost"] 

Tengo una lista y deseo escribir una función que devuelva una lista sin duplicados y una lista de cadenas vacía. Por ejemplo, la lista de undefined anterior devolverá:

["string"; "boolean"; "innermost"] 

escribo esta función devuélvalo para mí sin duplicado pero ¿cómo puedo añadir la condición de prueba con una cadena vacía.

let rec uniquify = function 
| [] -> [] 
| x::xs -> x :: uniquify (List.filter ((<>) x) xs) 

Muchas gracias

Answer 1

Sólo tubería el resultado de List.filter (fun s -> s <> "") para eliminar la cadena vacía después. Esa es la forma más sencilla, la composición, u yo también podría cortar su función para dejarla caer en silencio

let rec uniquify = function 
| [] -> [] 
| x::xs -> 
    (if x = "" then [] else [x]) @ uniquify (List.filter ((<>) x) xs) 

en cuenta que su función es cuadrática, que puede tener mejor la complejidad de la clasificación de la primera lista, o mediante la conversión a un conjunto y espalda. Batteries tiene funciones para hacer eso por usted.

let do_stuff list = 
    let open Batteries in 
    List.remove (List.sort_unique String.compare list) "" 

Answer 2

Se puede utilizar un conjunto de cadenas ya vistos:

module StringSet = Set.Make(String) 
let uniquify list = 
    let rec iter acc set list = 
    match list with 
    | [] -> List.rev acc 
    | s :: tail -> 
     if StringSet.mem s set then 
      iter acc set tail 
     else 
      iter (s :: acc) (StringSet.add s set) tail 
    in 
    iter [] StringSet.empty list 

La primera línea define el tipo de juego de cuerdas.

Luego, uniquify llama a una función auxiliar para agregar una cadena nunca vista tanto a la lista como al conjunto, o simplemente descartar la cadena. El acc se utiliza para hacer que la iteración sea recursiva (y así evitar desbordamientos de pila en largas listas).

Usar este esquema es mejor ya que la complejidad está en O (N.log N) en lugar de N².