新人研修でのアルゴリズム演習から。 (defn find? ([lst v] (find? lst v 0 (dec (count lst)))) ([lst v left-i right-i] (if (or (< v (lst left-i)) (< (lst right-i) v)) false (let [middle-i (+ (quot (- right-i left-i) 2) left-i) middle-v (lst mi…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。