blob: ef70a6ae69c47cac50fe0a9bcc157ab7a593f0b0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
{-# LANGUAGE BangPatterns #-}
module Main where
data Tree = Leaf !Int | Fork !Tree !Tree deriving Show
fullTree 0 = Leaf 1
fullTree n = let t = fullTree (n - 1) in Fork t t
flatListNaive (Leaf n) = [n]
flatListNaive (Fork a b) = flatListNaive a ++ flatListNaive b
flatListCons t = flat t []
where
flat (Leaf n) ns = n : ns
flat (Fork a b) ns = flat a (flat b ns)
flatListCons2 t = flat t []
where
flat (Leaf n) = \ns -> n : ns
flat (Fork a b) = \ns -> flat a (flat b ns)
flatListCons3 t = flat t []
where
flat (Leaf n) = (n :)
flat (Fork a b) = flat a . flat b
flatDList (Leaf n) = (n :)
flatDList (Fork a b) = flatDList a . flatDList b
sumList l = loop 0 l
where loop !c [] = c
loop !c (h:t) = loop (c + h) t
sumDList l = loop 0 (l [])
where loop !c [] = c
loop !c (h : t) = loop (c + h) t
main = print $ sumList $ flatListCons $ fullTree 26
|
