2017-04-13 72 views
1

我有這個數據在我的代碼功能與數據類型

data Client = aClient {name::String,alcohol::Int,friends::[Client]} deriving (Show) 

我試圖使依賴於幾個小時,一個客戶休息,它提高了耐醇性量的功能。

letgo :: Client -> Integer -> Client 
letgo (aClient _ alcohol _) hours 

我需要知道如何根據條件更新我的數據中的酒精字段。

+0

下手讓你的第一行編譯:'數據客戶端= {aClient名::字符串,酒精::詮釋,朋友:: [客戶]}導出(顯示)' –

+0

這不會編譯任,ja。數據構造函數必須以大寫字母開頭。 – amalloy

+0

沒錯;這是一個提示,而不是答案。 –

回答

-1
data Client = Client {name::String,alcohol::Int,friends::[Client]} deriving (Show) 

letgo :: Client -> Integer -> Client 
letgo [email protected](Client name alcohol friends) hours 
    | sufficientRest hours = Client name (increaseResistance alcohol) friends 
    | otherwise = client 

sufficientRest  :: Integer -> Bool 
increaseResistance :: Int -> Int 
+0

謝謝,畢竟這是一個打字錯誤 –