MFC/p1/Toma.hs

6 lines
93 B
Haskell
Raw Permalink Normal View History

2018-10-15 19:13:06 +02:00
module Toma where
toma :: Int -> [a] -> [a]
toma 0 _ = []
toma n (x:t) = x : toma (n - 1) t