hot snippets
Submitted by metaperl on Fri, 06/02/2006 - 3:26pm.
::
6/2/06 [14:23]
sequence [] = [];
sequence (x:xs) = do x' <- x;
xs' <- sequence xs;
return (x' : xs')
- metaperl's blog
- Login to post comments
6/2/06 [15:16]
> let isSublistOf x y = any (isPrefixOf x) (tails y) in "dog" `isSublistOf` "the lazy cat's cousin"