Ho scritto 3 funzioni che contano il numero di volte in cui un elemento viene visualizzato in un elenco. Ho provato vari input e li ho profilati, ma non so ancora quale funzione sia la migliore in termini di efficienza di utilizzo dello stack ed efficienza temporale. Per favore aiutatemi.Quale funzione è la migliore in termini di efficienza e tempo di utilizzo dello stack
;; 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)))))
Quali sono stati i risultati dei vostri sforzi di profilazione? –
'defn' annidato probabilmente non fa quello che pensi. 'defn' definisce sempre una funzione di livello superiore. Puoi usare 'letfn' (o anche' (let [f (fn ...)]) ') se vuoi definire una funzione interiore. –
Grazie Brian. Ma non riesco a far funzionare il letfn. Potresti modificare la mia domanda con letfn? Molte grazie. – unj2