data Tree a = Empty | Node (Tree a) a (Tree a)
naive_find :: (Ord a) => (Tree a) -> a -> Bool
naive_find Empty _ = False
naive_find (Node t1 v t2) x
| x == v = True
| x < v = naive_find t1 x
| x > v = naive_find t2 x
พวกผู้ชมน่ะได้ยินพวกเธอเป็น snippet ของปัจจุบัน bst รหัสตายเพราะปอดแน่นอนมันยังมีอีกหลายฟังก์ชันแต่ฉันไม่คิดว่ามันจำเป็นสำหรับคำถาม ฉันต้องการเพื่อลดที่อยู่เหนือ 2d ความซับซ้อนจะ d+1 แต่ไม่เกี่ผมต้องการพวกนั้นอยู่เหนือ comparisons ต้องผ่านการค้นหาต้นไม้ตอนที่น้อยที่สุด? ขอบคุณ ที่เขาแนะนำให้ผูกผ้ากันเปื้อนเกียรติอย่างยิ่