haskell没有ruby String#split一样的方法，故设计一个。

Magicloud

请指教会否有性能问题。
   1. splitByList xs ys =  
   2.   let s = foldr1 (\a b ->  
   3.                       filter (\c ->  
   4.                                 any ((==) (c + 1)) b  
   5.                              ) a  
   6.                    ) $ map (\x ->  
   7.                               elemIndices x ys  
   8.                            ) xs in  
   9.   map (\(a, b) ->  
  10.          drop a $ take b ys  
  11.       ) $ foldl (\a b ->  
  12.                    a ++ [((snd $ last a) + (length xs), b)]  
  13.                 ) [(0, head s)] ((tail s) ++ [length ys])

[ 本帖最后由 Magicloud 于 2009-8-31 14:27 编辑 ]