Add Explicit Args To Exercises - Part 3

exercises/pov/src/POV.hs

@@ -3,7 +3,7 @@ module POV (fromPOV, tracePathBetween) where
 import Data.Tree (Tree)
 
 fromPOV :: Eq a => a -> Tree a -> Maybe (Tree a)
-fromPOV = error "You need to implement this function."
+fromPOV x tree = error "You need to implement this function."
 
 tracePathBetween :: Eq a => a -> a -> Tree a -> Maybe [a]
-tracePathBetween = error "You need to implement this function."
+tracePathBetween from to tree = error "You need to implement this function."

exercises/pythagorean-triplet/src/Triplet.hs

@@ -1,7 +1,10 @@
 module Triplet (isPythagorean, mkTriplet, pythagoreanTriplets) where
 
-isPythagorean = error "You need to implement this function."
+isPythagorean :: (Int, Int, Int) -> Bool
+isPythagorean triplet = error "You need to implement this function."
 
-mkTriplet = error "You need to implement this function."
+mkTriplet :: Int -> Int -> Int -> (Int, Int, Int)
+mkTriplet a b c = error "You need to implement this function."
 
-pythagoreanTriplets = error "You need to implement this function."
+pythagoreanTriplets :: Int -> Int -> [(Int, Int, Int)]
+pythagoreanTriplets minFactor maxFactor = error "You need to implement this function."

exercises/queen-attack/src/Queens.hs

@@ -4,4 +4,4 @@ boardString :: Maybe (Int, Int) -> Maybe (Int, Int) -> String
 boardString white black = error "You need to implement this function."
 
 canAttack :: (Int, Int) -> (Int, Int) -> Bool
-canAttack = error "You need to implement this function."
+canAttack queenA queenB = error "You need to implement this function."

exercises/raindrops/src/Raindrops.hs

@@ -1,3 +1,4 @@
 module Raindrops (convert) where
 
-convert = error "You need to implement this function."
+convert :: Int -> String
+convert n = error "You need to implement this function."

exercises/robot-name/src/Robot.hs

@@ -6,7 +6,7 @@ mkRobot :: IO Robot
 mkRobot = error "You need to implement this function."
 
 resetName :: Robot -> IO ()
-resetName = error "You need to implement this function."
+resetName robot = error "You need to implement this function."
 
 robotName :: Robot -> IO String
-robotName = error "You need to implement this function."
+robotName robot = error "You need to implement this function."

exercises/robot-simulator/src/Robot.hs

@@ -17,19 +17,19 @@ data Bearing = North
 data Robot = Dummy
 
 bearing :: Robot -> Bearing
-bearing = error "You need to implement this function."
+bearing robot = error "You need to implement this function."
 
 coordinates :: Robot -> (Integer, Integer)
-coordinates = error "You need to implement this function."
+coordinates robot = error "You need to implement this function."
 
 mkRobot :: Bearing -> (Integer, Integer) -> Robot
-mkRobot = error "You need to implement this function."
+mkRobot direction coordinates = error "You need to implement this function."
 
 simulate :: Robot -> String -> Robot
-simulate = error "You need to implement this function."
+simulate robot instructions = error "You need to implement this function."
 
 turnLeft :: Bearing -> Bearing
-turnLeft = error "You need to implement this function."
+turnLeft direction = error "You need to implement this function."
 
 turnRight :: Bearing -> Bearing
-turnRight = error "You need to implement this function."
+turnRight direction = error "You need to implement this function."

exercises/roman-numerals/src/Roman.hs

@@ -1,3 +1,4 @@
 module Roman (numerals) where
 
-numerals = error "You need to implement this function."
+numerals :: Integer -> Maybe String
+numerals n = error "You need to implement this function."

exercises/run-length-encoding/src/RunLength.hs

@@ -1,7 +1,7 @@
 module RunLength (decode, encode) where
 
 decode :: String -> String
-decode = error "You need to implement this function."
+decode encodedText = error "You need to implement this function."
 
 encode :: String -> String
-encode = error "You need to implement this function."
+encode text = error "You need to implement this function."

exercises/saddle-points/src/Matrix.hs

@@ -2,4 +2,5 @@ module Matrix (saddlePoints) where
 
 import Data.Array (Array)
 
-saddlePoints = error "You need to implement this function."
+saddlePoints :: Array i e -> [i]
+saddlePoints matrix = error "You need to implement this function."

exercises/say/src/Say.hs

@@ -1,3 +1,4 @@
 module Say (inEnglish) where
 
-inEnglish = error "You need to implement this function."
+inEnglish :: Integer -> Maybe String
+inEnglish n = error "You need to implement this function."

exercises/scrabble-score/src/Scrabble.hs

@@ -1,5 +1,7 @@
 module Scrabble (scoreLetter, scoreWord) where
 
-scoreLetter = error "You need to implement this function."
+scoreLetter :: Char -> Integer
+scoreLetter letter = error "You need to implement this function."
 
-scoreWord = error "You need to implement this function."
+scoreWord :: String -> Integer
+scoreWord word = error "You need to implement this function."

exercises/secret-handshake/src/SecretHandshake.hs

@@ -1,4 +1,4 @@
 module SecretHandshake (handshake) where
 
 handshake :: Int -> [String]
-handshake = error "You need to implement this function."
+handshake n = error "You need to implement this function."

exercises/sgf-parsing/src/Sgf.hs

@@ -5,4 +5,4 @@ import Data.Text (Text)
 import Data.Tree (Tree)
 
 parseSgf :: Text -> Maybe (Tree (Map Text [Text]))
-parseSgf = error "You need to implement this function."
+parseSgf sgf = error "You need to implement this function."