testdata/localfun2.lc


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
-}