0
invalidset :: Int -> Int -> Int -> [Int]
invalidset _ 0 _ = []
invalidset 0 _ _ = []
invalidset n k 0 = [ z | z <- [1..n], mod z k == 1]
invalidset n k x = [ z |z <- (validset n k (x-1)) , mod (z-1) k == mod(head(invalidset n k (x-1)) k ]
validset :: Int -> Int -> Int -> [Int]
validset _ 0 _ = []
validset 0 _ _ = []
validset n k 0 = [x | x <-[1..n], mod x k /= 1 ]
validset n k x = [z | z <- validset n k (x-1) , elem z (invalidset n k x) == False ]
當我在GHCi中加載此文件時,它在第6:104行中顯示「解析輸入錯誤」''''。Hakell中的解析錯誤
(它說在定義的「invalidsetñ的K×」行了解析錯誤)
在此先感謝。
你錯過了'''我可以告訴。 –