Mercurial > 12ws.info2

comparison exercises/src/Exercise_2.hs @ 2:243f6cfa029a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
week 2
author Markus Kaiser <markus.kaiser@in.tum.de>
date Wed, 24 Oct 2012 15:49:06 +0200
parents
children f1a337c9f260
comparison
equal deleted inserted replaced
1:e532198d58f4 2:243f6cfa029a
1 module Exercise_2 where
2 import Test.QuickCheck
3 import Data.List
4
5 {---------------------------------------------------------------------}
6 {- Aufgabe G2.1 -}
7 all_sums :: [Integer] -> [Integer] -> [Integer]
8 all_sums xs ys = undefined
9
10
11 evens :: [Integer] -> [Integer]
12 evens xs = undefined
13
14
15 n_lists :: [Integer] -> [[Integer]]
16 n_lists xs = undefined
17
18
19 all_even_sum_lists :: [Integer] -> [Integer] -> [[Integer]]
20 all_even_sum_lists xs ys = undefined
21
22
23
24 {---------------------------------------------------------------------}
25 {- Aufgabe G2.2 -}
26 union :: [Integer] -> [Integer] -> [Integer]
27 union xs ys = undefined
28
29
30 intersection :: [Integer] -> [Integer] -> [Integer]
31 intersection xs ys = undefined
32
33
34 diff :: [Integer] -> [Integer] -> [Integer]
35 diff xs ys = undefined
36
37
38 elem' :: Integer -> [Integer] -> Bool
39 elem' x xs = undefined
40
41
42 union' :: [Integer] -> [Integer] -> [Integer]
43 union' xs ys = undefined
44
45
46 {---------------------------------------------------------------------}
47 {- Aufgabe G2.3 -}
48 eq_frac :: (Integer,Integer) -> (Integer,Integer) -> Bool
49 eq_frac (a,b) (c,d) = undefined
50
51
52 intersection_frac :: [(Integer,Integer)] -> [(Integer,Integer)] -> [(Integer,Integer)]
53 intersection_frac xs ys = undefined
54
55
56
57 {---------------------------------------------------------------------}
58 {- Aufgabe G2.4 -}
59 pow2_slow :: Integer -> Integer
60 pow2_slow 0 = 1
61 pow2_slow n | n > 0 = 2 * pow2_slow (n - 1)
62
63
64 pow2 :: Integer -> Integer
65 pow2 n = undefined
66
67
68
69 {---------------------------------------------------------------------}
70 {- Aufgabe G2.5 -}
71 reachable :: [(Integer, Integer)] -> Integer -> [(Integer, Integer)]
72 reachable graph 0 = undefined
73
74
75
76 {---------------------------------------------------------------------}
77 {- Aufgabe H2.1 -}
78 factorials :: [Integer] -> [Integer]
79 factorials ns = undefined
80
81 count :: [Char] -> Char -> Integer
82 count cs c = undefined
83
84
85
86 {---------------------------------------------------------------------}
87 {- Aufgabe H2.2 -}
88 lookupTab :: [Integer] -> [(Integer, [Char])] -> [[[Char]]]
89 lookupTab keys tab = undefined
90
91
92
93 {---------------------------------------------------------------------}
94 {- Aufgabe H2.3 -}
95 wordsOfLength :: [Char] -> Integer -> [[Char]]
96 wordsOfLength alphabet n = undefined
97
98
99
100 {---------------------------------------------------------------------}
101 {- Aufgabe H2.4 -}
102 {-WETT-}
103 perms :: [Char] -> [[Char]]
104 perms [] = undefined
105 perms xs = undefined
106 {-TTEW-}