Denoting Functions
below a b = b < a
takeWhile :: (a -> Bool) -> [a] -> [a]
takeWhile p [] = []
takeWhile p (x:xs)
| p x = x:takeWhile p xs
| otherwise = []
Föregående bild
Nästa bild
Tillbaka till första bilden
Visa grafisk version