6
Escribí 3 funciones que cuentan la cantidad de veces que aparece un elemento en una lista. Intenté varias entradas y lo perfilé, pero todavía no sé qué función es la mejor en términos de eficiencia de uso de la pila y eficiencia del tiempo. Por favor, ayúdame.Qué función es la mejor en términos de eficiencia de uso de pila y tiempo
;; Using an accumulator
(defn count-instances1 [a-list an-element]
(letfn [(count-aux [list-aux acc]
(cond
(empty? list-aux) acc
:else (if (= (first list-aux) an-element)
(count-aux (rest list-aux) (inc acc))
(count-aux (rest list-aux) acc))))]
(count-aux a-list 0)))
;; Normal counting
(defn count-instances2 [a-list an-element]
(cond
(empty? a-list) 0
:else
(if (= (first a-list) an-element)
(+ 1 (count-instances2 (rest a-list) an-element))
(count-instances2 (rest a-list) an-element))))
;; using loop. does this help at all?
(defn count-instances3 [a-list an-element]
(loop [mylist a-list acount 0]
(if (empty? mylist)
acount
(if (= (first mylist) an-element)
(recur (rest mylist)(inc acount))
(recur (rest mylist) acount)))))
¿Cuáles fueron los resultados de sus esfuerzos de creación de perfiles? –
Anidado 'defn' probablemente no haga lo que piensas. 'defn' siempre define una función toplevel. Puede usar 'letfn' (o incluso' (let [f (fn ...)]) 'si quiere definir una función interna. –
Gracias Brian. Pero no puedo hacer que la letfn funcione. ¿Podrías editar mi pregunta con letfn? Muchas gracias. – unj2