YR
Size: a a a
YR
YR
somePage :: Maybe User -> Html
somePage u = html $ do
H.head $ do
H.title "Some page."
body $ do
userInfo u
"The rest of the page."
YR
L
AT
AP
AT
MP
AP
AP
AP
AP
Y
AP
length [] = 0
length (_:xs) = 1 + length xs
vs(define (length xs)
(if (null? xs) 0
(+ 1 (length (cdr xs))
AP
AP
(+ 1) . (* 2)vs
(compose (partial + 1) (partial * 2))
мде