n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/Haskell_Samples/PreduleModule1.hs

14 строк348 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

module PreduleModule1 where

take n _      | n <= 0 =  []
take _ []              =  []
take n x:xs          =  x:take ((n-1) xs)

drop n xs     | n <= 0 =  xs
drop _ []              =  []
drop n x:xs           =  drop((n-1) xs)

splitAt n xs             =  (take(n xs), drop(n xs))

[] `plusplus` ys   = ys
x:xs `plusplus` ys = x:(xs `plusplus` ys)