# Haskell LP 2 (2014)

Apunte Español
 Universidad Universidad Politécnica de Cataluña (UPC) Grado Ingeniería Informática - 3º curso Asignatura LP (Llenguatges de Programació) Año del apunte 2014 Páginas 1 Fecha de subida 06/12/2014 Descargas 2 Puntuación media Subido por gbaiona

### Vista previa del texto

ones::[Integer] ones = repeat 1 nats::[Integer] nats = iterate (+1) 0 natsFrom1 = iterate (+1) 1 merge [] [] = [] merge (x:xs) (y:ys) = x:(y:(merge xs ys)) ints::[Integer] ints = 0:(merge (iterate (+ 1) 1) (iterate (+ (-1)) (-1))) triangulars::[Integer] triangulars = [42] factorials::[Integer] factorials = scanl (*) 1 natsFrom1 fibs::[Integer] fibs = 0: scanl (+) 1 fibs primes::[Integer] primes = sieve [2..] where sieve (p:xs) = p : sieve [x|x <- xs, x `mod` p > 0] -- take 8 ones -- take 8 nats -- take 8 ints -- take 8 triangulars -- take 8 factorials -- take 8 fibs -- take 8 primes -- [1,1,1,1,1,1,1,1] -- [0,1,2,3,4,5,6,7] -- [0,1,-1,2,-2,3,-3,4] -- [1,3,6,10,15,21,28,36] -- [1,1,2,6,24,120,720,5040] -- [0,1,1,2,3,5,8,13] -- [2,3,5,7,11,13,17,19] Powered by TCPDF (www.tcpdf.org) ...