19 lines
1.1 KiB
Plaintext
19 lines
1.1 KiB
Plaintext
import qualified Data.Text as T
|
|
import qualified Data.Time.Calendar as DTC
|
|
:l src\Billy.hs
|
|
let pRicardo = P.new $ T.pack "Ricardo"
|
|
let pDario = P.new $ T.pack "Dario"
|
|
let bGas = B.new (T.pack "Gas") 10.00 (I.new (DTC.fromGregorian 2015 01 01) (DTC.fromGregorian 2015 01 10))
|
|
let sSplit = S.new bGas
|
|
let sSplit' = S.addPayer pRicardo Nothing sSplit
|
|
let sSplit'' = S.addPayer pDario Nothing sSplit'
|
|
let sSplit'3 = S.addPayer pDario (Just $ I.new (DTC.fromGregorian 2015 01 06) (DTC.fromGregorian 2015 01 10)) sSplit'
|
|
let pStefano = P.new $ T.pack "Stefano"
|
|
let sSplit'4 = S.addPayer pStefano (Just $ I.new (DTC.fromGregorian 2015 01 02) (DTC.fromGregorian 2015 01 03)) sSplit'3
|
|
let pFrancesco = P.new $ T.pack "Francesco"
|
|
let sSplit'5 = S.addPayer pFrancesco (Just $ I.new (DTC.fromGregorian 2015 01 07) (DTC.fromGregorian 2015 01 10)) sSplit'4
|
|
let pEgle = P.new $ T.pack "Eglė"
|
|
let sSplit'6 = S.addPayer pEgle (Just $ I.new (DTC.fromGregorian 2015 01 04) (DTC.fromGregorian 2015 01 04)) sSplit'5
|
|
let pIlaria = P.new $ T.pack "Ilaria"
|
|
let sSplit'7 = S.addPayer pIlaria (Just $ I.new (DTC.fromGregorian 2015 01 03) (DTC.fromGregorian 2015 01 07)) sSplit'6
|