]> git.somenet.org - pub/jan/funcprog.git/blob - Aufgabe2.hs_1.out
aufg3 fertig
[pub/jan/funcprog.git] / Aufgabe2.hs_1.out
1 Punkte pro Testfall: 5; Abzug pro fehlerhaften Testfall: 0; Maximum: 20 
2
3 Testfall: {-1,1-}(diffFolge:: (Integer,Integer) -> [Integer]) (1,1) == [1,0]; Testfall OK 
4 Testfall: {-1,2-}take 5[(m,n)|m<-[1..50],n<-[1..50],(last.diffFolge)(m,n) > 0] == []; Testfall OK 
5 Testfall: {-1,3-}take 5[(m,n)|m<-[1..50],n<-[1..50],(head.diffFolge)(m,n) /= m] == []; Testfall OK 
6 Testfall: {-1,4-}diffFolge (2433243,2343432) == [2433243,89811,-2253621]; 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-}(teilt :: (Integer,Integer) -> Bool) (1,1) == True; Testfall OK 
14 Testfall: {-2,2-}take 5[(m,n)|m<-[1..9],n<-[1..9],teilt(m,n)/=(m`mod`n < 1)] == []; Testfall OK 
15 Testfall: {-2,3-}take 5[(m,n)|m<-[1..99],n<-[1..99],teilt(m,n)/=(m`mod`n < 1)] == []; Testfall OK 
16 Testfall: {-2,4-}take 5[(m,n)|m<-[23436..23440],n<-[3..7],teilt(m,n)/=(m`mod`n < 1)] == []; 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-}(zahlenBlock :: Integer -> [Integer]) 24889375 == [375,889,24]; Testfall OK 
24 Testfall: {-3,2-} zahlenBlock 2488937 == [937,488,2]; Testfall OK 
25 Testfall: {-3,3-} concat[zahlenBlock i|i<-[2..999]] == [2..999]; Testfall OK 
26 Testfall: {-3,4-} take 3[zahlenBlock i|i<-[23433..]] == [[433,23],[434,23],[435,23]]; 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-}(zeichenreihenBlock :: Integer -> [String]) 24889375 == ["375","889","024"]; Testfall OK 
34 Testfall: {-4,2-} zeichenreihenBlock 2488937 == ["937","488","002"]; Testfall OK 
35 Testfall: {-4,3-} zeichenreihenBlock (7^7^2) == ["607","321","621","235","224","477","611","088","878","058","521","577","923","256"]; Testfall OK 
36 Testfall: {-4,4-} take 3[zeichenreihenBlock i|i<-[23433..]] == [["433","023"],["434","023"],["435","023"]]; 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-}(siebenTeilbar :: Integer -> Bool) 7 ==  True; Testfall OK 
44 Testfall: {-5,2-}take 5[i|i<-  [1..99],(siebenTeilbar :: Integer -> Bool)i /= (i`mod`7 < 1)] == []; Testfall OK 
45 Testfall: {-5,3-}(as :: [Integer] -> Integer )[375,889,24] == -490; Testfall OK 
46 Testfall: {-5,4-}(as.zahlenBlock) (7^7^2) ==  2373; Testfall OK 
47 Testfall: {-5,4-}(as.zahlenBlock) (7^7^3) == -2737; Testfall OK 
48
49 Testfaelle OK: 5; Testfaelle FALSCH: 0
50 Punkte : 20
51
52 Punkte gesamt: 100
53