AlgorithmR.hs

AlgorithmR.hs

module AlgorithmR
  ( algorR
  )
where

algorR :: Num a => Int -> Int -> [a] -> ([a], [a])
algorR = algorR' ([], [])

algorR' :: Num a => ([a], [a]) -> Int -> Int -> [a] -> ([a], [a])
algorR' (ys, zs) _ 0 _        = (ys, zs)
algorR' (ys, zs) n t (x : xs) = algorR' a' (n - 1) (t - 1) xs
  where a' = if chance n t then (ys ++ [x], zs) else (ys, zs ++ [x])

chance :: Int -> Int -> Bool
chance _ _ = True