привет всем, помогите с задачей, я пока что 0 в хаскеле и поэтому не знаю как решить.
помогите пожалуста, мне надо 4 задачи исправить...
1 сделал, спс народ
2.
4-30: дублирование кода, перепишите через 4-31
{4-30}
Напишите функцию \prg{dPdX :: Poly -> Poly}, выполняющую дифференцирование многочлена.
Мое решение:
[| Код |
color=red]\begin{code}
dPdX :: Poly -> Poly
dPdX (MkPoly (x:xs)) = MkPoly (f xs 1)
where f [] n = []
f (y:ys) n = (y*n):(f ys (n+1))
\end{code}[/color]
|
{4-31}
Напишите функцию \prg{dNPdXN :: Poly -> Int -> Poly}, вычисляющую производную \prg{dNPdXN p $n$} заданного порядка $n \geq 0$ от полинома \prg{p}.
Мое решение:
| Код |
\begin{code}
fact' :: Float -> Float -> [Float]
fact' poly n = (product [(poly - m)|m<-[0..(n-1)]]):(fact' (poly + 1) n)
dNPdXN :: Poly -> Int -> Poly
dNPdXN poly 0 = poly
dNPdXN (MkPoly xs) n = MkPoly (zipWith (*) (fact' poly poly) (drop n xs))
where poly = fromIntegral n
\end{code}
|
3.
4-50: не определен случай, когда список переменных пуст
{4-50}
Пусть задано арифметическое выражение и означивание всех переменных из выражения некими значениями. Означивание задается в виде списка пар <<переменная~--- значение>>, например: \prg{[("p"{}, -1.7), ("q"{}, 3.14)] :: [(String,Float)]}.
Напишите функцию
\begin{center}
\prg{evalEV :: Expr -> [(String,Float)] -> Float},
\end{center}
которая вычисляет значение арифметического выражения при заданных значениях переменных.
Мое решение:
| Код |
[color=red]\begin{code}
evalEV :: Expr -> [(String,Float)] -> Float
evalEV (Add e1 e2) xs = (evalEV e1 xs) + (evalEV e2 xs)
evalEV (Mul e1 e2) xs = (evalEV e1 xs) * (evalEV e2 xs)
evalEV (ConstF c) xs = c
evalEV (VarF e) xs = find e xs
where find p ((a,b):ys) = if (a==p) then b else find p ys
\end{code}[/color]
|
4.
4-54: перепишите через абстракцию списков
{4-54}
Определите функцию
\begin{center}
\prg{findContacts :: Contacts -> Name -> [(Phone, Email)]},
\end{center}
которая из списка контактов по имени персоны разыскивает все телефоны и адреса персоны.
Мое решение:
| Код |
[color=red]\begin{code}
findContacts :: Contacts -> Name -> [(Phone, Email)]
findContacts xs n = nub (map mailPhone (filter g xs))
where g (s,_,_) = s == n
mailPhone (_,p,e) = (p,e)
\end{code}[/color]
|
%\%\%\%\%\%\%\%\%\%\%\%\%\%\%\%\%\%\%\%\%\%\%\%\%\%\%\%\%
\subsection{\prg{(Tree a)}: деревья поиска} |
)