История изменений

Исправление Waterlaz, 20.02.13 17:43 (текущая версия) :

haskell

import Data.List

meh = unlines . packem . filter ("J" `isPrefixOf`)
    where packem (x:y:z:rs) = (x ++ " and " ++ y ++ " follow " ++ z):packem rs
          packem  _ = []

Исправление Waterlaz, 20.02.13 17:43:

haskell

import Data.List

meh = unlines . packem . filter ("J" `isPrefixOf`)
    where packem (x:y:z:rs) = (x ++ " and " ++ y ++ " follow " ++ z):packem rs
          packem  _ = []

Исходная версия Waterlaz, 20.02.13 17:42:

haskell


import Data.List

meh = unlines . packem . filter ("J" `isPrefixOf`)
    where packem (x:y:z:rs) = (x ++ " and " ++ y ++ " follow " ++ z):packem rs
          packem  _ = []
[\code]