6
Bir öğenin listede kaç kez göründüğünü belirten 3 işlev yazdım. Çeşitli girdiler denedim ve profil oluşturdum ancak yığın kullanım verimliliği ve zaman verimliliği açısından hangi işlevin en iyi olduğunu hala bilmiyorum. Lütfen bana yardım edin. derleyici/interperter kuyruk özyinelemenin için optimize edileceği, böyleceYığın Kullanım Verimliliği ve Zaman açısından en iyi işlev hangisidir?
;; 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)))))
Profil oluşturma çabalarınızın sonuçları neydi? –
İç içe “defn” muhtemelen düşündüğünüzü yapmaz. 'defn' her zaman bir üst seviye işlevi tanımlar. Bir iç işlevi tanımlamak istiyorsanız 'letfn' (veya hatta' (let [f (fn ...)]) ') kullanabilirsiniz. –
Teşekkürler Brian. Ama çalışmasına izin veremiyorum. Sorumu letfn ile düzenler misiniz? Çok teşekkürler. – unj2