contours f = [ (contour p, head (head p) == '!') | p <- map lines (endBy "END" f)] where contour p = map (read :: String -> Double) (words p)
If you are unable to use this captcha for any reason, please contact us by email at support@dreamwidth.org
![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png)
timeasmymeasuretimeasmymeasure
no subject
Date: 2010-03-11 03:20 pm (UTC)endBy из Data.List.Split, а не из стандартной библиотеки, но в одну строчку пишется.