y k {w } z xwv C #8} w8 D8~&d {{| w y D%% B 9jSP WQ P FP QuCDPdg 9PfgYpP Q j%5 DeuC 6I#DED5B @85641 Q A BC S A A 9 F B C A97 3 k 94%IDB t 9 P9 BY6m C
lengths = map (length) incAll = map (plus 1) where plus m n = m + n
# kH l 44 Q %4%3 D4Pd Tr D 9 D%nUP DED Y8} k k CQ B9 P n B S P9 T o T A Q Q zy k C9Pe 7 Q i A P I 48 6j5 g 89 H%5 A9 96nUuC B @%5 Fp9U8P 9 Q &7d%jD&4 Q %n 3 r i 5 A97 3 B S P o 5 B P i 5 7 CQ B9 P ks k # kH P qfB 4D% } 6vUYD3uC B @%5 F ATP I 5 A9 9 B 5 z x PC 5 A97 3 m s k k 5 A9 B 5 z P o I CQ B9 P n #H DP qpB 9 8 zU&%u4 Q %B @% j85 4w x %D84 AC #%5 VC #8 TT 44D#G zy S x y } v C P I 3 H A9 A S P e C
6HFWLRQV
V AC TU8ID5 PfD TP Pd88jB dB @86F8(D AP 6D k9 P 9 F B 9 g I7P 9 5 A975 3 PI9 C T n n V%%n r 9P W6#B 6DDB V AC Tp8DfB @86F msC P 9 AQ n Q n n F q 9 S 5 5 A97 5 3 5 P A Hm9I fDo #%4%9 5 A97 5 3F T PeC P A #B @86T D4%#GUd9 WQ
map
&RPS
m # kH l k kC Pi 35 FB 9 A 9 P P I7 B 4Q %jg 6hDV AC TUf5 g85 dg TP f88PU9 CSS 9I 689 5 A97 5 3F T PeC P A #B @86T D4%#GUd9 WQ
incAll
lengths [[1,3], [], [5, 9]] = [2, 0, 2] lengths ["but", "and, "if"]] = [3, 3, 2]
m # kH l k k49V AC gD9V AC Uf5 g9V AC jI88DD9 85 P U89 C T FB T A T 7 P FB CI H T PI %836UB&8I9 C P9 n g 7 9 5 9 5 F T eCG PA #B A@7863T DP4%#Ud9 WQ
lengths
&%&#%WYf &VbVtV% cV@t e84@&d sVbVt s& r sVWi sb yy r a f b y x cY4d4h a@(@t@p sVb c@pYWi rVb @&qVa@Ya @h@ga &d WVW` t wf v u f b a ia ea pi c f e cba
incAll [] = [] incAll (n : ns) = n+1 : incAll ns
plus :: Int -> Int -> Int (plus 1) :: Int -> Int
PC PX YD3 %20 C T 5 B C 97 3 W9V AC UED5B A@856FQ P6S B8R Q P8#H 20 Q I A G C B @%5 3#DED5B 9@86420 5 A97 F F B C A 7 5 31 ) ! $ " ! (' &%#
&RPSDUDWLYH 3URJUDPPLQJ /DQJXDJHV
lengths [] = [] lengths (l : ls) = (length l) : lengths ls
lengths :: [[a]] -> [num]
8VLQJ
map
incAll :: [Int] -> [Int]
(+ m) n = m + n (0 :) l = 0 : l
map f [] = [] map f (x : xs) = (f x) : map f xs
map :: (a -> b) -> [a] -> [b]
incAll [1, 3, 5, 9] = [2, 4, 6, 10]
(+) m n = m + n
1 + 2 plus 1 2
1
k %%D8T j%Dr %n PoBi A gB5 TB 8(Do H PI9 C P A 89d884C 9I I73 5 A97 5 3F T PeC P A #B @86T D4%#GUd9 WQ & 432"1)0!)('% T j%Dr %n A gB5 TB %(W85 Y%P 6n P #m !% # kH 88DP 87 F P &7 P I9 C9 PC Q Q $ m " m m k P C9 5 A A F B 8DV AC TU%8DYDP 6n P pDiU5 &T AU%Dr %n P I9 F B 9 C S P9 5 PC Q Q P 7 gB5 TB 4W8D} 8 } &d%j TP D&dP DS 87 6 mi D83 Du%I ky z z P I9 S T 7 Q m m C P T o P S 7 i gQ B P I9 F 5 ACC Q n P 5 A s q g B 5 T B jWF8DBfB 4&DP 6fDC D A5 8T AU%Dr %n
poly :: Int -> [Int] -> Int poly x [1,3,5,2,1]
8VLQJ
map
0RUH
m # kH l k kQ P I9P B WD%46H 9 C P g 5 FB 9 Q %iU63 gDV AC TUf5 Au5 PfD TP Pd8 TT D AP 6n 9 63Ug C9 g P I9 C T A T 89 9I 5 A97 5 3F T PeC P A #B @86T D4%#GUd9 WQ
product
flatten [[2,5], [], [26,14]] = [2,5,26,14] flatten ["mir", "and", "a"] = "miranda"
k WQ P8I96H (W9V AC UP8I TT S85 %6n j%DC9V AC gDV TAC P B9 C T 9 P C n S 5 T F B 9 C P e 9 D4D98I9 5 9 5 F TP CG PA #B A@7863T De4%#Ud9 WQ
flatten
flatten [] = [] flatten (l : ls) = l ++ flatten ls
flatten :: [[a]] -> [a]
stringify = map (: [])
squareAll = map (^2)
halveAll = map (/2)
addNewlines = map (++ "\n")
incAll = map (1 +)
poly :: Int -> [Int] -> Int
A9 %D I S5 A9 C & q7 D& 6n P Q I s 5B CP7 T m P 6jD ##Y1 Tn g PQB 44 Q %Bf A9 k CQ B9 P n I CQ B97 3Q9C 5 B7 H A 7 T Q @8WVD&j%5 88 6n P u AC %D S5 m DB @86%#B FdWD9 4%n D Q %D6H C 5 A97 5 3F P I9 Q 5Q P 9 T P 5 P
[] 1 polyLen product
)ROGLQJ
poly x ns = p where (p,l) = polyLen ns polyLen [] = (0,0) polyLen (a : as) = (a*(x^l1)+p1, l1+1) where (p1,l1) = polyLen as
flatten
product [] = 1 product (n : ns) = n * product ns
product :: [Int] -> Int
product [2,5,26,14] = 2*5*26*14 = 3640
1 * (2 * (3 * (4 *
1 : (2 : (3 : (4 : [])))
:
product
1)))
*
4p% z Wf24&C B @%5 8%4%T D&dP k 5 6 vx 5 wy w 5 A97 3F I 7 3 C T 7
)ROGLQJ 5LJKW
8VLQJ
foldr
foldr
foldr :: (a -> b -> b) -> b -> [a] -> b foldr f e [] = e foldr f e (x : xs) = f x (foldr f e xs)
8VLQJ
foldr
0RUH
reverse :: [a] -> [a] reverse = foldr swap [] where swap h rl = rl ++ [h] reverse (1 : (2 : [])) swap 1 (swap 2 []) (swap 2 []) ++ [1] ([] ++ [2]) ++ [1]
)ROGLQJ /HIW
5 A975 3 B @86F R A i P C H 3 P A A5 W T9 636uC TT 4e4D#G %5 A4C U5 9 9 WQ P%U5 &j%D i 7 S5 85 P A87 F 4dP fuDdg APd#YfP Q d&%I k sV5 d63#H D m9 A FP Q B g C P 9 g BC rP C9 P g Q AQ %Dd%5f5 g T9 34DP U8I4 T jg 87&d4P8IPYD3 &%i q P I9 F B P B A C Q P 9 P9 3 3 7 r 9 C 7 P # yw 6U8&jS8 TTP &dP D x { 5 w 7 Q C I7 C C 5 A975 3 %f8%3&uDB @8641
rev
foldl
foldl :: (b -> a -> b) -> b -> [a] -> b foldl f e [] = e foldl f e (x : xs) = foldl f (f e x) xs
DP 694%I8m C BS 9
V95 fD&8 6...