15 rivejä
653 B
TeX
15 rivejä
653 B
TeX
\ifger{Erneut können wir pattern matching anwenden, auch auf Listen.}{Again, we can do pattern matching on lists.}
|
|
\begin{haskellcode}
|
|
listLen :: [Integer] -> Integer
|
|
listLen [] = 0
|
|
listLen (x:xs) = 1 + listLen xs
|
|
\end{haskellcode}
|
|
\pause
|
|
\ifger{Pattern matching können wir auch schachteln:}{We can also nest pattern matching:}
|
|
\begin{haskellcode}
|
|
sumEveryTwo :: [Integer] -> [Integer]
|
|
sumEveryTwo [] = 0
|
|
sumEveryTwo (x:[]) = [x]
|
|
sumEveryTwo (x:(y:zs)) = (x + y) : sumEveryTwo zs
|
|
\end{haskellcode}
|
|
\ifger{Hinweis...}{Note that} \hinline{(x:(y:zs))} \ifger{kann man auch als}{may also be written as} \hinline{(x:y:zs)}\ifger{ schreiben.}{.} |