@@ -4,7 +4,7 @@ data Ponto = Ponto Float Float deriving (Show,Eq) data PontoAtrator = PontoAtrator Ponto Float -clique _ _ = (Ponto 0 0) +clique p _ = p pertenceARegiao :: Ponto -> PontoAtrator -> Bool pertenceARegiao ponto (PontoAtrator centro raio) = raio >= distancia ponto centro 60-Snap-Haskell/Snap.hs @@ -45,4 +45,6 @@ testeDescobreClique = TestList [ "Clique sem pontos atratores eh o proprio ponto" ~: clique (Ponto 0 0) [] ~?= (Ponto 0 0) + ,"Clique sem pontos atratores eh o proprio outro ponto" ~: + clique (Ponto 1 1) [] ~?= (Ponto 1 1) ] 60-Snap-Haskell/Tests.hs 78e32fbc1330cb9980b85ca0881a797d4840e804 ticolucci ticolucci@gmail.com http://github.com/dojosp/participant-s-projects/commit/3e92ee03daf6411576f61a2f41aeb51299f453e4 3e92ee03daf6411576f61a2f41aeb51299f453e4 2008-12-08T11:49:45-08:00 2008-12-08T11:49:45-08:00 Passando o teste do clique com ponto diferente Hugo e Mari 5b945f391d63b74c903bdeb1e4777e2e2c6cc211 ticolucci ticolucci@gmail.com