LP Haskell Exercicis de LListes infinites (2014)

Ejercicio Catalán
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 26/06/2014
Descargas 8

Descripción

Exercicis de LListes infinites del jutge solucionats
(Llenguatges de Programació) LP

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] ...