Diferencias

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

--- introalg:rincon [2006/09/25 17:53] – 200.121.20.48
+++ introalg:rincon [2025/11/15 13:47] (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 754: / 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 789: / Línea 786: @@
   int2float :: Int -> Float
-  int2float n = fromInteger (toInteger n)
+  int2float = fromIntegral
   float2int :: Float -> Int
-  float2int n = fromInteger (toInteger (round n))
+  float2int = round