]> git.somenet.org - pub/jan/funcprog.git/blob - Aufgabe1.hs_1.out
GITOLITE.txt
[pub/jan/funcprog.git] / Aufgabe1.hs_1.out
1 Punkte pro Testfall: 5; Abzug pro fehlerhaften Testfall: 0; Maximum: 20 
2
3 Testfall: {-1,1-}(convert :: Integer -> [Integer])2010 == [2,0,1,0]; Testfall OK 
4 Testfall: {-1,2-}(convert :: Integer -> [Integer])185161 == [1,8,5,1,6,1]; Testfall OK 
5 Testfall: {-1,3-}concat[convert i|i<-[1..9]] == [1..9]; Testfall OK 
6 Testfall: {-1,4-}(convert :: Integer -> [Integer])0 == [0]; Testfall OK 
7
8 Testfaelle OK: 4; Testfaelle FALSCH: 0
9 Punkte : 20
10
11 Punkte pro Testfall: 5; Abzug pro fehlerhaften Testfall: 0; Maximum: 20 
12
13 Testfall: {-2,1-}(quersumme :: Integer -> Integer)2010 == 3; Testfall OK 
14 Testfall: {-2,2-}(quersumme :: Integer -> Integer)185161 == 22; Testfall OK 
15 Testfall: {-2,3-}[quersumme i|i<-[0..9]] == [0..9]; Testfall OK 
16 Testfall: {-2,4-}take 20[quersumme i|i<-[234120..]] == [12..21]++[13..22]; Testfall OK 
17
18 Testfaelle OK: 4; Testfaelle FALSCH: 0
19 Punkte : 20
20
21 Punkte pro Testfall: 5; Abzug pro fehlerhaften Testfall: 0; Maximum: 20 
22
23 Testfall: {-3,1-}(dreiTeilbar :: Integer -> Bool) 3 ==  True; Testfall OK 
24 Testfall: {-3,2-}[i|i<-  [0..10],(dreiTeilbar :: Integer -> Bool)i /= (i`mod`3 < 1)] == []; Testfall OK 
25 Testfall: {-3,3-}[i|i<- [11..33],(dreiTeilbar :: Integer -> Bool)i /= (i`mod`3 < 1)] == []; Testfall OK 
26 Testfall: {-3,4-}[i|i<-[34..200],(dreiTeilbar :: Integer -> Bool)i /= (i`mod`3 < 1)] == []; Testfall OK 
27
28 Testfaelle OK: 4; Testfaelle FALSCH: 0
29 Punkte : 20
30
31 Punkte pro Testfall: 5; Abzug pro fehlerhaften Testfall: 0; Maximum: 20 
32
33 Testfall: {-4,1-}(sechsTeilbar :: Integer -> Bool) 6 ==  True; Testfall OK 
34 Testfall: {-4,2-}[i|i<-  [0..10],(sechsTeilbar :: Integer -> Bool)i /= (i`mod`6 < 1)] == []; Testfall OK 
35 Testfall: {-4,3-}[i|i<- [11..33],(sechsTeilbar :: Integer -> Bool)i /= (i`mod`6 < 1)] == []; Testfall OK 
36 Testfall: {-4,4-}[i|i<-[34..200],(sechsTeilbar :: Integer -> Bool)i /= (i`mod`6 < 1)] == []; Testfall OK 
37
38 Testfaelle OK: 4; Testfaelle FALSCH: 0
39 Punkte : 20
40
41 Punkte pro Testfall: 5; Abzug pro fehlerhaften Testfall: 0; Maximum: 20 
42
43 Testfall: {-5,1-}(elfTeilbar :: Integer -> Bool) 11 ==  True; Testfall OK 
44 Testfall: {-5,2-}[i|i<-  [0..10],(elfTeilbar :: Integer -> Bool)i /= (i`mod`11 < 1)] == []; Testfall OK 
45 Testfall: {-5,3-}[i|i<- [11..33],(elfTeilbar :: Integer -> Bool)i /= (i`mod`11 < 1)] == []; Testfall OK 
46 Testfall: {-5,4-}[i|i<-[34..200],(elfTeilbar :: Integer -> Bool)i /= (i`mod`11 < 1)] == []; Testfall OK 
47
48 Testfaelle OK: 4; Testfaelle FALSCH: 0
49 Punkte : 20
50
51 Punkte gesamt: 100
52