Punkte pro Testfall: 5; Abzug pro fehlerhaften Testfall: 0; Maximum: 25 Testfall: {-1,1-}color (Ug [(0,Red,[])]) ; Testfall FALSCH Erwartet: {-1,1-}color (Ug [(0,Red,[])]) == Just (Ug [(0,Red,[])]) Ausgabe: {-1,1-}color (Ug [(0,Red,[])]) ==ERROR - Undefined data constructor "Red" Testfall: {-1,2-}color (Ug [ (i,Red,[0..(i-1)]++[(i+1)..5]) | i <- [0..5]]) ; Testfall FALSCH Erwartet: {-1,2-}color (Ug [ (i,Red,[0..(i-1)]++[(i+1)..5]) | i <- [0..5]]) == Nothing Ausgabe: {-1,2-}color (Ug [ (i,Red,[0..(i-1)]++[(i+1)..5]) | i <- [0..5]]) ==ERROR - Undefined data constructor "Red" Testfall: {-1,3-}[1|(Just _)<-[color (Ug [(0,Red,[1,2,3]), (1,Red,[0,2,3]), (2,Red,[0,1]), (3,Red,[0,1])])]] ; Testfall FALSCH Erwartet: {-1,3-}[1|(Just _)<-[color (Ug [(0,Red,[1,2,3]), (1,Red,[0,2,3]), (2,Red,[0,1]), (3,Red,[0,1])])]] == [1] Ausgabe: {-1,3-}[1|(Just _)<-[color (Ug [(0,Red,[1,2,3]), (1,Red,[0,2,3]), (2,Red,[0,1]), (3,Red,[0,1])])]] ==ERROR - Undefined data constructor "Red" Testfall: {-1,4-}[1|(Just _)<-[color (Ug [ (i,Red,[(i-1) `mod` 6,(i+1) `mod` 6]) | i <- [0..5]])]] ; Testfall FALSCH Erwartet: {-1,4-}[1|(Just _)<-[color (Ug [ (i,Red,[(i-1) `mod` 6,(i+1) `mod` 6]) | i <- [0..5]])]] == [1] Ausgabe: {-1,4-}[1|(Just _)<-[color (Ug [ (i,Red,[(i-1) `mod` 6,(i+1) `mod` 6]) | i <- [0..5]])]] ==ERROR - Undefined data constructor "Red" Testfall: {-1,5-}color (Ug [ (i,Blue,[0..(i-1)]++[(i+1)..4]) | i <- [0..4]]) ; Testfall FALSCH Erwartet: {-1,5-}color (Ug [ (i,Blue,[0..(i-1)]++[(i+1)..4]) | i <- [0..4]]) == Nothing Ausgabe: {-1,5-}color (Ug [ (i,Blue,[0..(i-1)]++[(i+1)..4]) | i <- [0..4]]) ==ERROR - Undefined data constructor "Blue" Testfaelle OK: 0; Testfaelle FALSCH: 5 Punkte : 0 Punkte pro Testfall: 5; Abzug pro fehlerhaften Testfall: 0; Maximum: 25 Testfall: {-2a,1-}[v|v<-[Basic,Cross,Color],isValid[[1..9]|i<-[1..9]] v] == []; Testfall OK Testfall: {-2a,2-}[v|v<-[Basic,Cross,Color],not(isValid[[0|i<-[1..9]]|i<-[1..9]] v)] == []; Testfall OK Testfall: {-2a,3-}[v|v<-[Basic,Cross,Color],not(isValid([1..9]:[[0|i<-[1..9]]|i<-[2..9]]) v)] == []; Testfall OK Testfall: {-2a,4-}[v|v<-[Basic,Cross,Color],isValid[[0,0,3,4,5,0,0,0,0],[0,0,6,0,0,6,1,2,3],[0,8,9,1,2,3,4,5,6],[0,3,1,6,7,4,8,9,5],[0,7,5,0,0,0,3,0,0],[6,9,4,5,3,0,2,0,0],[9,1,2,3,0,0,0,0,0],[0,0,0,2,9,0,6,0,0],[0,0,0,8,4,0,0,0,0]]v] == []; Testfall OK Testfall: {-2a,5-}[v|v<-[Basic,Cross,Color],isValid[[0,0,3,4,0,0,0,0,0],[4,5,0,7,8,9,1,0,0],[7,8,0,1,2,3,0,5,0],[0,6,4,2,1,7,9,0,0],[2,9,1,5,0,0,0,7,4],[0,0,8,6,9,4,0,0,0],[0,0,5,9,0,2,0,4,1],[0,0,7,8,0,0,0,6,2],[0,0,2,0,0,1,0,0,6]]v] == []; Testfall OK Testfall: {-2a,6-}[v|v<-[Basic,Cross,Color],isValid[[0,0,3,4,0,0,0,0,0],[4,5,0,7,8,9,1,0,0],[7,8,0,1,2,3,0,5,0],[0,6,4,2,1,7,9,0,0],[2,9,1,5,0,0,0,7,4],[0,0,8,6,9,4,0,0,0],[0,0,5,9,0,2,0,4,1],[0,0,7,8,0,0,0,6,2],[0,0,2,0,0,1,0,0,0]]v] == [Basic,Cross]; Testfall OK Testfaelle OK: 6; Testfaelle FALSCH: 0 Punkte : 25 Punkte pro Testfall: 10; Abzug pro fehlerhaften Testfall: 0; Maximum: 50 Testfall: {-2b,1-}let s=[[1,2,3,4,5,6,7,8,9],[4,5,6,7,8,9,1,2,3],[7,8,9,1,2,3,4,5,6],[2,3,1,6,7,4,8,9,5],[8,7,5,9,1,2,3,6,4],[6,9,4,5,3,8,2,7,1],[9,1,2,3,6,7,5,4,8],[5,4,8,2,9,1,6,3,7],[3,6,7,8,4,5,9,1,2]] in solve s Color ; Testfall FALSCH Erwartet: {-2b,1-}let s=[[1,2,3,4,5,6,7,8,9],[4,5,6,7,8,9,1,2,3],[7,8,9,1,2,3,4,5,6],[2,3,1,6,7,4,8,9,5],[8,7,5,9,1,2,3,6,4],[6,9,4,5,3,8,2,7,1],[9,1,2,3,6,7,5,4,8],[5,4,8,2,9,1,6,3,7],[3,6,7,8,4,5,9,1,2]] in solve s Color == Just s Ausgabe: {-2b,1-}let s=[[1,2,3,4,5,6,7,8,9],[4,5,6,7,8,9,1,2,3],[7,8,9,1,2,3,4,5,6],[2,3,1,6,7,4,8,9,5],[8,7,5,9,1,2,3,6,4],[6,9,4,5,3,8,2,7,1],[9,1,2,3,6,7,5,4,8],[5,4,8,2,9,1,6,3,7],[3,6,7,8,4,5,9,1,2]] in solve s Color ==ERROR - Undefined variable "solve" Testfall: {-2b,2-}let s=[[4,5,6,7,8,9,1,2,3],[7,8,9,1,2,3,4,5,6],[2,3,1,6,7,4,8,9,5],[8,7,5,9,1,2,3,6,4],[6,9,4,5,3,8,2,7,1],[9,1,2,3,6,7,5,4,8],[5,4,8,2,9,1,6,3,7],[3,6,7,8,4,5,9,1,2]] in solve ([0,0,0,0,0,0,0,0,0]:s) Color ; Testfall FALSCH Erwartet: {-2b,2-}let s=[[4,5,6,7,8,9,1,2,3],[7,8,9,1,2,3,4,5,6],[2,3,1,6,7,4,8,9,5],[8,7,5,9,1,2,3,6,4],[6,9,4,5,3,8,2,7,1],[9,1,2,3,6,7,5,4,8],[5,4,8,2,9,1,6,3,7],[3,6,7,8,4,5,9,1,2]] in solve ([0,0,0,0,0,0,0,0,0]:s) Color == Just ([1..9]:s) Ausgabe: {-2b,2-}let s=[[4,5,6,7,8,9,1,2,3],[7,8,9,1,2,3,4,5,6],[2,3,1,6,7,4,8,9,5],[8,7,5,9,1,2,3,6,4],[6,9,4,5,3,8,2,7,1],[9,1,2,3,6,7,5,4,8],[5,4,8,2,9,1,6,3,7],[3,6,7,8,4,5,9,1,2]] in solve ([0,0,0,0,0,0,0,0,0]:s) Color ==ERROR - Undefined variable "solve" Testfall: {-2b,3-}let s=[[4,5,6,7,8,9,1,2,3],[7,8,9,1,2,3,4,5,6],[2,3,1,6,7,4,8,9,5],[8,7,5,9,1,2,3,6,4],[6,9,4,5,3,8,2,7,1],[9,1,2,3,6,7,5,4,8],[5,4,8,2,9,1,6,3,7],[3,6,7,8,4,5,9,1,2]] in solve (reverse([0,0,0,0,0,0,0,0,0]:s)) Color ; Testfall FALSCH Erwartet: {-2b,3-}let s=[[4,5,6,7,8,9,1,2,3],[7,8,9,1,2,3,4,5,6],[2,3,1,6,7,4,8,9,5],[8,7,5,9,1,2,3,6,4],[6,9,4,5,3,8,2,7,1],[9,1,2,3,6,7,5,4,8],[5,4,8,2,9,1,6,3,7],[3,6,7,8,4,5,9,1,2]] in solve (reverse([0,0,0,0,0,0,0,0,0]:s)) Color == Just(reverse([1..9]:s)) Ausgabe: {-2b,3-}let s=[[4,5,6,7,8,9,1,2,3],[7,8,9,1,2,3,4,5,6],[2,3,1,6,7,4,8,9,5],[8,7,5,9,1,2,3,6,4],[6,9,4,5,3,8,2,7,1],[9,1,2,3,6,7,5,4,8],[5,4,8,2,9,1,6,3,7],[3,6,7,8,4,5,9,1,2]] in solve (reverse([0,0,0,0,0,0,0,0,0]:s)) Color ==ERROR - Undefined variable "solve" Testfall: {-2b,4-}let s=[[4,5,6,7,8,9,1,2,3],[7,8,9,1,2,3,4,5,6],[2,3,1,6,7,4,8,9,5],[8,7,5,9,1,2,3,6,4],[6,9,4,5,3,8,2,7,1],[9,1,2,3,6,7,5,4,8],[5,4,8,2,9,1,6,3,7],[3,6,7,8,4,5,9,1,2]] in solve (reverse([0,0,0,0,0,0,0,0,0]:s)) Cross ; Testfall FALSCH Erwartet: {-2b,4-}let s=[[4,5,6,7,8,9,1,2,3],[7,8,9,1,2,3,4,5,6],[2,3,1,6,7,4,8,9,5],[8,7,5,9,1,2,3,6,4],[6,9,4,5,3,8,2,7,1],[9,1,2,3,6,7,5,4,8],[5,4,8,2,9,1,6,3,7],[3,6,7,8,4,5,9,1,2]] in solve (reverse([0,0,0,0,0,0,0,0,0]:s)) Cross == Nothing Ausgabe: {-2b,4-}let s=[[4,5,6,7,8,9,1,2,3],[7,8,9,1,2,3,4,5,6],[2,3,1,6,7,4,8,9,5],[8,7,5,9,1,2,3,6,4],[6,9,4,5,3,8,2,7,1],[9,1,2,3,6,7,5,4,8],[5,4,8,2,9,1,6,3,7],[3,6,7,8,4,5,9,1,2]] in solve (reverse([0,0,0,0,0,0,0,0,0]:s)) Cross ==ERROR - Undefined variable "solve" Testfall: {-2b,5-}let s=[[1,1,3,4,5,6,7,8,9],[4,5,6,7,8,9,1,2,3],[7,8,9,1,2,3,4,5,6],[2,3,1,6,7,4,8,9,5],[8,7,5,9,1,2,3,6,4],[6,9,4,5,3,8,2,7,1],[9,1,2,3,6,7,5,4,8],[5,4,8,2,9,1,6,3,7],[3,6,7,8,4,5,9,1,2]] in solve s Color ; Testfall FALSCH Erwartet: {-2b,5-}let s=[[1,1,3,4,5,6,7,8,9],[4,5,6,7,8,9,1,2,3],[7,8,9,1,2,3,4,5,6],[2,3,1,6,7,4,8,9,5],[8,7,5,9,1,2,3,6,4],[6,9,4,5,3,8,2,7,1],[9,1,2,3,6,7,5,4,8],[5,4,8,2,9,1,6,3,7],[3,6,7,8,4,5,9,1,2]] in solve s Color == Nothing Ausgabe: {-2b,5-}let s=[[1,1,3,4,5,6,7,8,9],[4,5,6,7,8,9,1,2,3],[7,8,9,1,2,3,4,5,6],[2,3,1,6,7,4,8,9,5],[8,7,5,9,1,2,3,6,4],[6,9,4,5,3,8,2,7,1],[9,1,2,3,6,7,5,4,8],[5,4,8,2,9,1,6,3,7],[3,6,7,8,4,5,9,1,2]] in solve s Color ==ERROR - Undefined variable "solve" Testfaelle OK: 0; Testfaelle FALSCH: 5 Punkte : 0 Punkte gesamt: 25