Difference between revisions of "FP Laboratory 11"

From Marek Běhálek Wiki
Jump to navigation Jump to search
(Marked this version for translation)
Line 1: Line 1:
 
<translate>
 
<translate>
== Binary Trees ==
+
== Binary Trees == <!--T:1-->
 
* Create a data type <code>Tree</code> that defines binary tree where values are stored in leaves and also in branches.  
 
* Create a data type <code>Tree</code> that defines binary tree where values are stored in leaves and also in branches.  
 
</translate>
 
</translate>
Line 13: Line 13:
  
 
<translate>
 
<translate>
 +
<!--T:2-->
 
* Prepare an example of a binary tree.
 
* Prepare an example of a binary tree.
 
</translate>
 
</translate>
Line 28: Line 29:
  
 
<translate>
 
<translate>
 +
<!--T:3-->
 
* Create a function that counts the values stored in the leaves.
 
* Create a function that counts the values stored in the leaves.
 
</translate>
 
</translate>
Line 45: Line 47:
  
 
<translate>
 
<translate>
 +
<!--T:4-->
 
* Create a function that extracts all values from the leaves into an list.
 
* Create a function that extracts all values from the leaves into an list.
 
</translate>
 
</translate>
Line 62: Line 65:
  
 
<translate>
 
<translate>
 +
<!--T:5-->
 
* One possibility how to represent a tree in a textual form is <code>a(b(d,e),c(e,f(g,h)))</code>. Create functions that are able to read and store a tree in such a notation.
 
* One possibility how to represent a tree in a textual form is <code>a(b(d,e),c(e,f(g,h)))</code>. Create functions that are able to read and store a tree in such a notation.
 
</translate>  
 
</translate>  

Revision as of 08:42, 21 October 2021

Binary Trees

  • Create a data type Tree that defines binary tree where values are stored in leaves and also in branches.
data Tree a = Leaf a 
            | Branch a (Tree a) (Tree a) deriving (Show)
  • Prepare an example of a binary tree.
testTree1 :: Tree Int            
testTree1 = Branch 12 (Branch 23 (Leaf 34) (Leaf 45)) (Leaf 55)

testTree2 :: Tree Char            
testTree2 = Branch 'a' (Branch 'b' (Leaf 'c') (Leaf 'd')) (Leaf 'e')
  • Create a function that counts the values stored in the leaves.
sum' :: Tree Int -> Int
sum' :: Tree Int -> Int
sum' (Leaf x) = x
sum' (Branch x l r) = sum' l + x + sum' r
  • Create a function that extracts all values from the leaves into an list.
toList :: Tree a -> [a]
toList :: Tree a -> [a]
toList (Leaf x) = [x]
toList (Branch x l r) = toList l ++ [x] ++ toList r
  • One possibility how to represent a tree in a textual form is a(b(d,e),c(e,f(g,h))). Create functions that are able to read and store a tree in such a notation.
Video logo.png
toString :: Show a => Tree a -> String
fromString :: Read a => String -> Tree a
toString :: Show a => Tree a -> String
toString (Leaf x) = show x
toString (Branch x l r) = show x ++ "(" ++ (toString l) ++ "," ++ (toString r) ++ ")"

fromString :: Read a => String -> Tree a
fromString inp = fst (fromString' inp) where
  fromString' :: Read a => String -> (Tree a,String)
  fromString' inp = 
    let
      before = takeWhile (\x ->  x /='(' &&  x /=',' &&  x/=')') inp 
      after = dropWhile (\x ->  x /='(' &&  x /=',' && x/=')') inp
      value = read before
    in if null after || head after /= '(' then (Leaf value, after) else 
        let
          (l,after') = fromString' (tail after)
          (r,after'') = fromString' (tail after') 
        in (Branch value l r, tail after'')