Jump to content

ABC words: Difference between revisions

m
Line 1,590:
isABC s =
isJust $
residue 'a' "bc" 'a' s
>>= residue "c" 'b' "c"
>>= elemIndex 'c'
 
residue :: CharString -> StringChar -> String -> Maybe String
residue c except c = go
where
go [] = Nothing
9,655

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.