MFC/p1/Toma.hs
Carlos Galindo 38ce60f8b7 Practica 1
2018-10-15 19:13:06 +02:00

5 lines
93 B
Haskell

module Toma where
toma :: Int -> [a] -> [a]
toma 0 _ = []
toma n (x:t) = x : toma (n - 1) t