Merge pull request #6 from systek/hs

hs

Author: mikaelrss

README.md

@@ -29,6 +29,10 @@ Det vil kreve at du logger inn (perfekt å logge inn med Github).
 
 ### Steg 3: Utføre workshoppen
 
+Her kan man velge å løse oppgavene i TypeScript, eller Haskell.
+
+#### TypeScript:
+
 Inne i [workshop](./workshop)-mappen vil du finne følgende oppgaver:
 
 - [01-pure-functions](./workshop/01-pure-functions/pure-functions.ts)
@@ -57,6 +61,24 @@ Eller så kan du kjøre en og en underoppgave:
 
 Alle disse kommandoene vil re-kjøre testene når du endrer koden!
 
+#### Haskell:
+
+Inne i [ws-haskell](./ws-haskell)-mappen vil du finne følgende oppgaver:
+
+- [01-pure-functions](./ws-haskell/lib/PureFunctions.hs)
+- [02-higher-order-functions](./ws-haskell/lib/HigherOrderFunctions.hs)
+- [03-currying-partial-application](./ws-haskell/lib/CurryingPartialApplication.hs)
+- [04-compose](./ws-haskell/lib/Compose.hs)
+
+Hver av disse vil bestå av en oppgave-Haskell-fil, samt en test fil (som ligger i [tests](./ws-haskell/tests)). Du vil i
+utgangspunktet ikke trenge å åpne testfilene om du kjører testene fra terminalen.
+
+Kjør testene etter at du har løst en oppgave. Her kan du velge å kjøre absolutt alle testene samtidig:
+`cabal test`
+
+Eller så kan du kjøre en og en oppgave:
+`cabal test PureFunctions` for oppgave 01, `npm test HigherOrderFunctions` for oppgave 02 osv.
+
 #### Jeg står fast!!
 
-Rop ut, så skal vi hjelpe deg!
+Rop ut på [fg_funkprog](https://systekkompis.slack.com/archives/C04AVTJM62Y) så skal vi hjelpe deg!

ws-haskell/CHANGELOG.md

@@ -0,0 +1,5 @@
+# Revision history for ws-haskell
+
+## 0.1.0.0 -- YYYY-mm-dd
+
+* First version. Released on an unsuspecting world.

ws-haskell/__spoilers/Compose.hs

@@ -0,0 +1,39 @@
+{-# LANGUAGE OverloadedStrings #-}
+module Compose where
+
+import qualified Control.Applicative as Applicative
+import qualified Data.Function as Function
+import qualified Data.Time.Calendar as Calendar
+import qualified Data.Time.Clock as Clock
+import qualified Data.Maybe as Maybe
+
+import Transaction
+import Currency
+import CurryingPartialApplication
+
+-- OPPGAVE 4.1: Lag en funksjon som konverterer fra DKK til NOK.
+dkkToNok :: Double -> Double
+dkkToNok = dkkToSek . sekToUsd . usdToGbp . eurToNok . gbpToEur
+
+bySalary :: Transaction -> Bool
+bySalary a = transactionType a == "salary"
+
+-- Oppgave 4.3: Calculate total earned salary
+sumSalary :: [Transaction] -> Double
+sumSalary = sum . map amount . filter bySalary
+
+-- Oppgave 4.4: Calculate amount spent on a product in a specific currency
+amountSpentOnProductByCurrency :: Currency -> Product -> [Transaction] -> Double
+amountSpentOnProductByCurrency c p = sum . map amount . filter filterFn
+ where
+   filterFn :: Transaction -> Bool
+   filterFn t = transactionProduct t == p && currency t == c
+
+amountSpentOnProductInNok :: Product -> [Transaction] -> Double
+amountSpentOnProductInNok = amountSpentOnProductByCurrency "NOK"
+
+pantsBoughtInNok :: [Transaction] -> Double
+pantsBoughtInNok = amountSpentOnProductInNok "Pants"
+
+shoesBoughtInNok :: [Transaction] -> Double
+shoesBoughtInNok = amountSpentOnProductInNok "Shoes"

ws-haskell/__spoilers/Currency.hs

@@ -0,0 +1,23 @@
+module Currency where
+
+
+type Currency = String
+
+exchangeRateDKKToSEK = 1.54;
+exchangeRateSEKToUSD = 0.094;
+exchangeRateUSDToGBP = 0.82;
+exchangeRateGBPToEUR = 1.13;
+exchangeRateEURToNOK = 11.28;
+
+dkk :: Currency
+dkk = "DKK"
+sek :: Currency
+sek = "SEK"
+usd :: Currency
+usd = "USD"
+gbp :: Currency
+gbp = "GBP"
+eur :: Currency
+eur = "EUR"
+nok :: Currency
+nok = "NOK"

ws-haskell/__spoilers/CurryingPartialApplication.hs

@@ -0,0 +1,34 @@
+
+-- Currying of functions
+
+-- Copilot says:
+-- "Currying is the process of transforming a function that takes multiple arguments into a function that takes them one at a time."
+
+module CurryingPartialApplication where
+
+import Transaction
+import Currency
+import PureFunctions
+
+
+-- OPPGAVE 3.2: Gjør om isCurrency fra oppgave 1 til å være curried.
+isCurrencyCurried :: Currency -> Transaction -> Bool
+isCurrencyCurried = isCurrency
+
+-- OPPGAVE 3.3: Bruk din curried versjon av convertCurrency fra oppgave 3.1 til
+-- å lage en funksjon som konverterer fra DKK til SEK.
+dkkToSek :: Double -> Double
+dkkToSek = convertCurrency exchangeRateDKKToSEK
+
+sekToUsd :: Double -> Double
+sekToUsd = convertCurrency exchangeRateSEKToUSD
+
+usdToGbp :: Double -> Double
+usdToGbp = convertCurrency exchangeRateUSDToGBP
+
+gbpToEur :: Double -> Double
+gbpToEur = convertCurrency exchangeRateGBPToEUR
+
+eurToNok :: Double -> Double
+eurToNok = convertCurrency exchangeRateEURToNOK
+

ws-haskell/__spoilers/HigherOrderFunctions.hs

@@ -0,0 +1,34 @@
+-- Higher order functions
+
+-- Copilot sier:
+-- "Higher order functions are functions that take other functions as arguments or return functions as their results."
+
+module HigherOrderFunctions where
+
+import Currency
+import Transaction
+import PureFunctions
+
+-- OPPGAVE 2.1: Lag en funksjon som tar inn en valuta og en liste med transaksjoner
+-- og filtrerer vekk alle andre transaksjoner enn de med den gitte valutaen.
+--
+-- Hint: Her får du isCurrency funksjonen fra oppgave 1.2 importert.
+filterByCurrency :: Currency -> [Transaction] -> [Transaction]
+filterByCurrency c t = filter (isCurrency c) t
+
+-- OPPGAVE 2.2: Lag en funksjon som filtrerer vekk transaksjoner som ikke benytter valutaen NOK, og returnerer en liste med produkter.
+productsBoughtWithNOK :: [Transaction] -> [Product]
+productsBoughtWithNOK = map transactionProduct . filterByCurrency "NOK"
+
+-- OPPGAVE 2.3: Denne funksjonen mottar et parameter som er en funksjon. Du skal da implementere
+-- en funksjon som filtrerer transaksjonene basert på filterfunksjonen som blir sendt inn.
+--
+-- Hint: Se på testen :)
+filterTransactionsByProduct :: [Transaction] -> (Transaction -> Bool) -> [Transaction]
+filterTransactionsByProduct t isRelevantTransaction = filter isRelevantTransaction t
+
+-- OPPGAVE 2.4: Lag en funksjon som returnerer en funksjon som filtrerer en gitt transaksjon basert på valuta-parameteret.
+type CurrencyFilter = Transaction -> Bool
+
+currencyFilter :: Currency -> CurrencyFilter
+currencyFilter = isCurrency

ws-haskell/__spoilers/PureFunctions.hs

@@ -0,0 +1,14 @@
+module PureFunctions where
+import Currency
+import Transaction
+
+-- OPPGAVE 1.1: En enkel pure function
+-- Lag en funksjon som konverterer et beløp fra en spesifikk valuta til
+-- en annen valuta basert på en vekslingskurs.
+
+convertCurrency :: Double -> Double -> Double
+convertCurrency a r = r * a
+
+-- OPPGAVE 1.2: Lag en funksjon som ser om en transaksjon er av en gitt valuta.
+isCurrency :: Currency -> Transaction -> Bool
+isCurrency c t = currency t == c