-3
rango :: [Integer] -> [Integer] -> [[Integer]] -> [Integer]
rango (length list) b list =
rango a b list = if ((list!!a) == (list!!b)) then 0++(rango a b+1 list)
else(rango2 a list!!b list)++(rango a b+1 list)
rango2 :: [Integer] -> [Integer] -> [[Integer]] -> [Integer]
rango2 a b list = if verif((take 2(map(+(a!!2))a)) (take 2(map(-(a!!2))a)) (take 2(b))) then [1]
else [0]
verif :: [Integer] -> [Integer] -> [Integer] -> Bool
verif a b c = if ((c!!0 < a!!0) && (c!!0 > b!!0) && (c!!1 < a!!1) && (c!!1 > b!!1)) then True
else False
誤差爲:解析錯誤(可能不正確壓痕或不匹配的括號)錯誤有關此Haskell代碼
在這條線
rango a b list = if ((list!!a) == (list!!b)) then 0++(rango a b+1 list)
而'長度列表'不是一個有效的模式。 –
還有23個問題......這個程序沒有任何意義。 –
嗯okok,以及我怎麼能得到像參數,列表的長度? e g:當他到達列表的最後一個元素時,我希望函數退出!? –