関数型プログラミング言語Haskell
■ このスレッドは過去ログ倉庫に格納されています
0400デフォルトの名無しさん
NGNGhogehoge ks ts
= filter (\ (k,v) -> elem k ks) $ map hogera $ hoge ts
where
hoge [] = []
hoge ts = case break (";" ==) ts of
(_,[]) -> [ts]
(xs,_:ys) -> xs : hoge ys
hogera ls = case break (":" ==) ls of
(_,[]) -> (unwords ls, "")
(x,_:y) -> (unwords x, unwords y)
■ このスレッドは過去ログ倉庫に格納されています