blob: 70055b0b0841907f38b61d4eebdc07fb111ac258 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
{-# LANGUAGE NoImplicitPrelude #-}
import Internals
split [] = ([], [])
split (x: xs) = (x: bs, as) where (as, bs) = split xs
{-
main = case split [True, True] of
([True], [True]) -> True
-}
|