- Added solutions by Ulrich Rieke.

- Added solutions by Paulo Custodio.
- Added solutions by David Ferrone.
- Added solutions by W. Luis Mochan.

2 files changed, 35 insertions, 0 deletions

diff --git a/challenge-285/ulrich-rieke/haskell/ch-1.hs b/challenge-285/ulrich-rieke/haskell/ch-1.hs
new file mode 100755
index 0000000000..0ddcd35d73
--- /dev/null
+++ b/challenge-285/ulrich-rieke/haskell/ch-1.hs
@@ -0,0 +1,19 @@
+module Challenge285

+   where

+import Data.List.Split ( splitOn )

+

+solution :: String -> String

+solution input =

+   let routes = splitOn "," input

+       routepairs = map (\li -> (head li , last li ) ) $ map ( concat .

+	splitOn " " ) routes

+       starts = map fst routepairs

+       destinations = map snd routepairs

+  in filter (\dest -> notElem dest starts ) destinations 

+

+main :: IO ( )

+main = do

+   putStrLn "Enter some routes, separated by ','!"

+   putStrLn "Separate start and destination by a blank!" 

+   allRoutes <- getLine

+   print $ solution allRoutes

diff --git a/challenge-285/ulrich-rieke/haskell/ch-2.hs b/challenge-285/ulrich-rieke/haskell/ch-2.hs
new file mode 100755
index 0000000000..e17bc8f81f
--- /dev/null
+++ b/challenge-285/ulrich-rieke/haskell/ch-2.hs
@@ -0,0 +1,16 @@
+module Challenge285_2

+   where

+

+denominations :: [Int]

+denominations = [50, 25 , 10 , 5 , 1]

+

+findCoinCombis :: [Int] -> Int -> [[Int]]

+findCoinCombis [1] n  = [[n]] 

+findCoinCombis ( den:rest ) n = [c:cs | c <- [0..div n den] , cs <- 

+ findCoinCombis rest ( n - c * den )]

+

+main :: IO ( )

+main = do

+   putStrLn "Enter an amount of money in pennies!" 

+   amount <- getLine

+   print $ length $ findCoinCombis denominations $ read amount