Язык и библиотеки Haskell 98 - ответы
Количество вопросов - 293
sig :: Intsig x = if x > 0 then 1 else if x < 0 then -1 else 0В какой строчке ошибка:
max x y z| (x > y) and (x > z) = x| (x < y) and (y > z) = y| othrwize = zПри заданных значениях x = 5, y = 3, z = 7:
findPos :: [Integer] → Maybe Integer findPos [] = Nothing findPos (x:xs) | x > 0 = Just x | otherwise = findPos xs
fibs :: Int → Array Int Intfibs n = a where a = array (0,n) ([(0,1),(1,1)] ++ [(i, a! (i-2) + a! (i-1))| i ← [2..n]])
module M wheretan :: Float → Floattan x = (x :: Float)F.fx = Prelude.tan(tan.x)Ошибка находиться в:
compare x y|x == y = EQ|x <= y = LT|otherwize = GTпри заданных значениях x = 7, y = 3:
case v of {p1 match1; ...; pn matchn} = case v of {p1 match1; _ → ... case v of {pn matchn; _ → error "нет сопоставлений"}...}соответствует: