2011-04-21 34 views
0

爲什麼在範圍無法加載一個正常的文件,有錯誤:`S.elementOf'不在範圍:`S.elementOf '

import Control.Monad.Reader 
import Control.Monad.State 
import Control.Monad.Error 
import qualified Data.Set as S 

.... 
freshen s = do 
     names <- get 
     let s' = head [ns|suf<-suffixes 
       ,let ns = s ++ show suf 
       ,not (ns `S.elementOf` names)] 
     suffixes = [1..] 
     put (S.insert s' names) 
     return s' 

回答

2

你想要的功能叫做member。如果你想否定它,還有一個功能notMember