Edición de «Práctica 1 (Paradigmas)»
De Cuba-Wiki
Puedes deshacer la edición. Antes de deshacer la edición, comprueba la siguiente comparación para verificar que realmente es lo que quieres hacer, y entonces publica los cambios para así efectuar la reversión.
Revisión actual | Tu texto | ||
Línea 51: | Línea 51: | ||
Se cuelga en (1, 1, inf) | Se cuelga en (1, 1, inf) | ||
pitagóricas1 = [(a,b,c) | a <- [1..], b <- [1..(a^2)], c <- [1..(a^2 + b^2)], a^2 + b^2 == c^2] | pitagóricas1 = [(a,b,c) | a <- [1..], b <-[1..(a^2)], c <- [1..(a^2 + b^2)], a^2 + b^2 == c^2] | ||
pitagóricas2 = [(a,b,c) | c <- [1..], a <- [1..c | pitagóricas2 = [(a,b,c) | c <- [1..], a <-[1..c], b <- [1..c], a^2 + b^2 == c^2] | ||
== Ejercicio 5 == | == Ejercicio 5 == | ||
Línea 74: | Línea 74: | ||
listasQueSuman :: Int -> [ [Int] ] | listasQueSuman :: Int -> [ [Int] ] | ||
listasQueSuman 0 = [[]] | listasQueSuman 0 = [[]] | ||
listasQueSuman n = [(x:xs) | x<-[1..n],xs<-listasQueSuman (n-x)] | listasQueSuman n | n > 0 = [(x:xs) | x<-[1..n],xs<-listasQueSuman (n-x)] | ||
== Ejercicio 8 == | == Ejercicio 8 == | ||
listasPositivas :: [ [Int] ] | listasPositivas :: [[Int]] | ||
listasPositivas = [xs | n<-[0..], xs<-listasQueSuman n] | listasPositivas = [xs | n<-[0..], xs<-listasQueSuman n] | ||
Línea 169: | Línea 169: | ||
permutaciones [] = [[]] | permutaciones [] = [[]] | ||
permutaciones xs = [x:xs2 | x<-xs, xs2<-(permutaciones (sacarUna x xs))] | permutaciones xs = [x:xs2 | x<-xs, xs2<-(permutaciones (sacarUna x xs))] | ||
== Ejercicio 12 == | == Ejercicio 12 == | ||
Línea 298: | Línea 294: | ||
=== I === | === I === | ||
foldNat :: (Integer -> Integer -> Integer) -> Integer -> Integer -> Integer | foldNat :: (Integer -> Integer -> Integer) -> Integer -> Integer -> Integer | ||
foldNat f x | foldNat f x 1 = x | ||
foldNat f x n = f x (foldNat f x (n-1)) | foldNat f x n = f x (foldNat f x (n-1)) | ||
=== II === | === II === | ||
--No funciona | |||
potencia :: Integer -> Integer -> Integer | potencia :: Integer -> Integer -> Integer | ||
potencia | potencia base = foldNat 1 (*base) | ||
== Ejercicio 18 == | == Ejercicio 18 == |