Sencillos
      Series      
      Listas      
Lista de listas
      Tuplas      
      Otros      
 
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.