@@ -651,6 +651,16 @@ module Data.Array where
651 all _ [] = true
651 all _ [] = true
652 all p (a:as) = p a && all p as
652 all p (a:as) = p a && all p as
654+ drop :: forall a. Number -> [a] -> [a]
657+ drop n (x:xs) = drop (n - 1) xs
659+ take :: forall a. Number -> [a] -> [a]
662+ take n (x:xs) = x : take (n - 1) xs
654 instance (Prelude.Show a) => Prelude.Show [a] where
664 instance (Prelude.Show a) => Prelude.Show [a] where
655 show xs = "[" ++ joinWith (map show xs) "," ++ "]"
665 show xs = "[" ++ joinWith (map show xs) "," ++ "]"
@@ -999,6 +1009,14 @@ module Control.Monad.Eff where
1000 \}" :: forall e a. [a] -> (a -> Eff e {}) -> Eff e {}
1010 \}" :: forall e a. [a] -> (a -> Eff e {}) -> Eff e {}
1012+module Control.Monad.Eff.Unsafe where
1014+ import Control.Monad.Eff
1016+ foreign import unsafeInterleaveEff
1017+ "function unsafeInterleaveEff(f) {\
1019+ \}" :: forall eff1 eff2 a. Eff eff1 a -> Eff eff2 a
1003module Random where
1021module Random where