5b ex10 still in progress

2026-10-12 19:13:39 +03:00 · 2025-12-26 13:18:55 +02:00
parent 42a5a967d2
commit 02aaee9e1c
1 changed files with 4 additions and 0 deletions
@@ -223,3 +223,7 @@ set path val Empty = Empty

 search :: Eq a => a -> Tree a -> Maybe [Step]
 search = todo
+-- search val (Node a t1 t2) = if a == val then Just [] else case search val t1 of
+--   Just steps -> Just (steps : search val t1)
+--   Nothing -> Nothing
+-- searh _ Empty = Nothing