Hola a todos,
Aqui les dejo unos programas en el lenguaje haskell
Programa que te saca el cuadrado del numero:
Primero se creo un archivo en el cual se puso el siguiente (codigo).
cuadrado : : Integer -> Integer
cuadrado x = x * x
menor : : (Integer, Integer) -> Integer
menor (x,y) = if x <= y then x else y
Se guardo con la extesion .hs
Despues nos vamos a la consola de hugs ahi vamos a cargar el archivo creado, vamos a la barra lateral de herramientas y seleccionamos el icono que dice: load modules from specified file.
Ahi le damos click y seleccionamos el archivo y lo abrimos y nos debede aparecer como sigue:
La linea: Prelude> :l "C:\\Users\\user\\Desktop\\cuadrados.hs"
nos dice que se cargo sin errores
y para ver si funciona correctamente ponemos
Main> cuadrado (5+5)
100
Main> cuadrado 8
64
Vemos que funcina correctamente:
Otro programa el cual saca el factorial de un numero:
Al igual que el otro se crea un archivo con la extension .hs
Se pone el siguiente codigo:
fact : : Int->Int
fact 0=1
fact n=n*fact(n-1)
Se guarda.
y hacemos lo mismo, lo cargamos y lo ejecutamos.
y lo checamos
Main> fact 5
120
Main> fact 6
720
Vemos que funciona correctamente:
Aqui otro programa, este programa cuenta el numero de digitos que introduces :
Codigo:
cont : : Int->Int
cont 0=0
cont n= 1+ cont (div n 10)
Este programa te cuenta en un rango del 1 al 10 ya que si introduces el 0 no lo va a contar porque lo esta descartando en el codigo.
Lo checamos.
Main> cont 1478522
7
Main> cont 012
2
Aqui les dejo donde descargar hugs: http://cvs.haskell.org/Hugs/pages/downloading-Nov2003.htm
Bueno eso es todo, espero y les haya servido
Saludos
ATTE: JESUS ALEJANRO BELTRAN REYNA
Cuatro puntos para el lab.
ResponderEliminar