Códigos
Haskell
Videos
Diseño web
|
Serie de números naturales |
Función que muestra la serie de números desde 1 hasta n
Código fuente
ser1 ::Integer->Integer->String
ser1 a 0=""
ser1 a n=show(a)++" "++ser1 (a+1) (n-1)
ser ::Integer->String
ser n=(ser1 1 n)
|
|
Cuadrados de números naturales |
Sencillo programa que devuelve los cuadrados de los números desde 1 hasta n.
Código fuente
cuad1 ::Integer->Integer->String
cuad1 a 0=""
cuad1 a n=show(a*a)++" "++cuad1 (a+1) (n-1)
cuad ::Integer->String
cuad n=(cuad1 1 n)
|
|
Serie de factoriales |
Función que devuelve la serie de factoriales, empezando desde 1 hasta n (un número introducido por teclado).
Código fuente
fact::Integer->Integer
fact 0=1
fact n=n*fact(n-1)
fac ::Integer->Integer->String
fac n a |n==a=""
|otherwise=show(fact a)++" "++(fac n (a+1))
serie::Integer->String
serie 0="1"
serie p=(fac p 0)
|
|
Serie de factoriales 2 |
A diferencia de la anterior función que devuelve la serie de factoriales desde 1 hasta n, esta función realiza lo contrario, es decir muestra la serie de factoriales desde n hasta 1.
Código fuente
fact::Integer->Integer
fact 0=1
fact n=n*fact(n-1)
serie ::Integer->String
serie 0 = "1"
serie p = show(fact p)++" "++(serie (p-1))
|
|
Serie Fibonacci |
Programa que recibe un número entero n y muetra la serie de factoriales empezando desde 1 hasta n.
Código fuente
fib::Int->Int->Int->String
fib 0 a b=""
fib n a b=show(a+b)++" "++fib (n-1) (a+b) a
fibo::Int->String
fibo n= fib n 0 1
|
|
Serie de impares |
Programa que dado un número entero n muestra la serie de numeros desde 1 hasta n.
Código fuente
imp ::Integer->Integer->String
imp a 0=""
imp a n=show(a)++" "++imp (a+2) (n-1)
serie ::Integer->String
serie n=(imp 1 n)
|
|
Serie de primos |
sencillo programa que dado un número entero n, devuelve todos los primos que existen desde n hasta 1.
Código fuente
pr::Int->Int->Int
pr n 1=0
pr n a| (rem n a)==0=1+(pr n (a-1) )
|otherwise=(pr n (a-1))
prim::Int->Int
prim 0=1
prim 1=1
prim 2=0
prim b=pr b (b-1)
primo::Int->String
primo 2=""
primo n|(prim n)==0=show(n)++" "++(primo (n-1))
|otherwise=(primo (n-1))
|
|
Serie de multiplos de un número |
Este programa muestra toda la serie multiplos de un número hasta n.
Código fuente
sumar ::Integer->Integer->Integer->String
sumar a 0 s=""
sumar a n s=show(a)++" "++sumar (a+s) (n-1) s
serie ::Integer->Integer->String
serie a n=(sumar a n a)
|
|
|
Nuevo |
Publicado el:
22 - Agosto - 2009
Códigos Pascal
Triangulo
Este programa determina si los catetos e hipotenusa introducidos, forman o no un triángulo, si es asi muestra que tipo de triángulo es, ya sea triángulo equilátero, isóceles, rectángulo o escaleno. |
Nuevo |
Publicado el:
22 - Agosto - 2009
Haskell
Serie Fibonacci
Lista de la serie de fibonacci
Programa que dada una lista de números enteros, devuelve solo aquellos numeros que pertenecen a la serie de fibonacci.
|
Nuevo |
Publicado el:
21 - Agosto - 2009
Haskell
Suma diagonal principal
Dada una lista de listas o matriz de números enteros, realiza la suma de la diagonal principal. |
|