Diferencias

Muestra las diferencias entre dos versiones de la página.

--- introalg:rincon [2006/09/25 20:52] – 200.121.20.48
+++ introalg:rincon [2018/08/10 03:03] (actual) – editor externo 127.0.0.1
@@ Línea 395: / Línea 395: @@
   int2Float :: Int -> Float
-  int2Float n = fromInteger (toInteger n)
+  int2Float = fromIntegral
 Entonces, podemos usar, cada vez que necesitemos la longitud de una lista (pero como un Float):
@@ Línea 487: / Línea 487: @@
 José Neder
@@ Línea 514: / Línea 515: @@
                  |a>b = reversa [b..a]
->> Tambien lo hice yo desde esta forma. (PATRICK R.)
+> Tambien lo hice yo desde esta forma. (PATRICK R.)
-desde :: Int -> Int -> [Int]
+  desde :: Int -> Int -> [Int]
-desde x y
+  desde x y
 	|x > y = x:desde (x-1) y
 	|x < y = x:desde (x+1) y
@@ Línea 753: / Línea 754: @@
 Ahora tambien sabemos que si no tiene divisores hasta la raiz, es primo por lo que defini esta otra, un poco mas complicada, gracias a la funcion definida por "" y utilizando dos funciones de Haskell (//sqrt// y //round//):
-  int2Float :: Int -> Float
-  int2Float n = fromInteger (toInteger n)
   primo5 :: Int -> Bool
   primo5 1 = False
-  primo5 x = (filtro (multiplo x) (desdeHasta 1 (round (sqrt (int2Float x)))))==[1]
+  primo5 x = (filtro (multiplo x) (desdeHasta 1 (round (sqrt (fromIntegral x)))))==[1]
 -----
@@ Línea 788: / Línea 786: @@
   int2float :: Int -> Float
-  int2float n = fromInteger (toInteger n)
+  int2float = fromIntegral
   float2int :: Float -> Int
-  float2int n = fromInteger (toInteger (round n))
+  float2int = round