Diferencias

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

--- introalg:taller07_2 [2007/04/17 15:57] – nicolasw
+++ introalg:taller07_2 [2018/08/10 03:03] (actual) – editor externo 127.0.0.1
@@ Línea 223: / Línea 223: @@
   Main> digitos 123123123
   [3,2,1,3,2,1,3,2,1]
@@ Línea 232: / Línea 235: @@
 <code>
-descuento :: (Int,Bool) -> (Float,Int,Float)
+descuento :: (Float,Bool) -> (Float,Float,Float)
--- argumento: una tupla (Int,Bool) que representa el monto (Int) y si tenemos tickets (Bool)
+-- argumento: un par que representa el monto (Float) y si tenemos tickets (Bool)
--- resultado: una tresupla (Float,Int,Float) que representa el monto total,
+-- resultado: una tresupla (Float,Float,Float) que representa el monto total,
 --            restando el descuento correspondiente, el número de puntos
 --            y el descuento en tickets, respectivamente.
-descuento x y | x == 257 && y == True = ( x - 0.2*x , 10*x, 0.1*x)
+descuento (x,y) | x == 257 && y     = ( x - 0.2*x , 10*x, 0.1*x)
-              | x == 257 && y == False = ( x - 0.2*x , 10*x, 0)
+                | x == 257 && not y = ( x - 0.2*x , 10*x, 0)
-              | x == 350 && y == True = ( x - 0.2*x , 10*x, 0.1*x)
+                | x == 350 && y     = ( x - 0.2*x , 10*x, 0.1*x)
-              | x == 350 && y == False = ( x - 0.2*x , 10*x, 0)
+                | x == 350 && not y = ( x - 0.2*x , 10*x, 0)
-              | x == 489 && y == True = ( x - 0.2*x , 10*x, 0.1*x)
+                | x == 489 && y     = ( x - 0.2*x , 10*x, 0.1*x)
-              | x == 489 && y == False = ( x - 0.2*x , 10*x, 0)
+                | x == 489 && not y = ( x - 0.2*x , 10*x, 0)
-              | x > 1000 && y == True = ( x - 0.2*x , 10*x, 0.1*x)
+                | x > 1000 && y     = ( x - 0.2*x , 10*x, 0.1*x)
-              | x > 1000  && y == False = ( x - 0.2*x , 10*x, 0)
+                | x > 1000 && not y = ( x - 0.2*x , 10*x, 0)
-              | x == 768 && y == True = ( x - 0.2*x , 10*x, 0.1*x)
+                | x == 768 && y     = ( x - 0.2*x , 10*x, 0.1*x)
-              | x == 768 && y == False = ( x - 0.2*x , 10*x, 0)
+                | x == 768 && not y = ( x - 0.2*x , 10*x, 0)
-              | x == 999 && y == True = ( x - 0.2*x , 10*x, 0.1*x)
+                | x == 999 && y     = ( x - 0.2*x , 10*x, 0.1*x)
-              | x == 573 && y == False = ( x - 0.2*x , 10*x, 0)
+                | x == 573 && not y = ( x - 0.2*x , 10*x, 0)
-              | x > 500 && x <= 1000 && y == True = ( x - 0.15*x , 5*x, 0.05*x)
+                | x > 500 && x <= 1000 && y      = ( x - 0.15*x , 5*x, 0.05*x)
-              | x > 500 && x <= 1000 && y == False = ( x - 0.15*x , 5*x, 0)
+                | x > 500 && x <= 1000 && not y  = ( x - 0.15*x , 5*x, 0)
-              | x > 200 && x <= 500 && y == True = ( x - 0.1*x , 2*x, 0.02*x)
+                | x > 200 && x <= 500  && y      = ( x - 0.1*x , 2*x, 0.02*x)
-              | x > 200 && x <= 500 && y == False = ( x - 0.1*x , 2*x, 0)
+                | x > 200 && x <= 500  && not y  = ( x - 0.1*x , 2*x, 0)
-              | x <= 200 = ( x , x , 0 )
+                | x <= 200 = ( x , x , 0)
 </code>
@@ Línea 260: / Línea 263: @@
 <code>
-descuento :: (Int,Bool) -> (Float,Int,Float)
+descuento' :: (Float,Bool) -> (Float,Float,Float)
-descuento (x,y) | x == 257 || x == 350 || x == 489 || x == 768 || x == 999 || x == 573 = descuento20 (x,y)
+descuento' (x,y) | x == 257 || x == 350 || x == 489 || x == 768 || x == 999 || x == 573 = descuento20 (x,y)
-                | x > 1000 = descuento20 (x,y)
+                 | x > 1000 = descuento20 (x,y)
-                | x > 500 && x <= 1000 = descuento15 (x,y)
+                 | x > 500 && x <= 1000 = descuento15 (x,y)
-                | x > 200 && x <= 500 = descuento10 (x,y)
+                 | x > 200 && x <= 500 = descuento10 (x,y)
-                | x <= 200 = descuento0 (x,y)
+                 | x <= 200 = descuento0 (x,y)
-descuento20 :: (Int,Bool) -> (Float,Int,Float)
+descuento20 :: (Float,Bool) -> (Float,Float,Float)
 descuento20 (x,y) | y == True = ( x - 0.2*x , 10*x, 0.1*x)
                   | y == False = ( x - 0.2*x , 10*x, 0)
-descuento15 :: (Int,Bool) -> (Float,Int,Float)
+descuento15 :: (Float,Bool) -> (Float,Float,Float)
 descuento15 (x,y) | y == True = ( x - 0.15*x , 5*x, 0.05*x)
                   | y == False = ( x - 0.15*x , 5*x, 0)
-descuento10 :: (Int,Bool) -> (Float,Int,Float)
+descuento10 :: (Float,Bool) -> (Float,Float,Float)
 descuento10 (x,y) | y == True = ( x - 0.1*x , 2*x, 0.02*x)
                   | y == False = ( x - 0.1*x , 2*x, 0)
-descuento0 :: (Int,Bool) -> (Float,Int,Float)
+descuento0 :: (Float,Bool) -> (Float,Float,Float)
-descuento0 (x,y) = ( x , x , 0 )
+descuento0 (x,y) = ( x , x , 0)
 </code>
@@ Línea 350: / Línea 353: @@
 -}
 </code>
 ==== Case sensitiveness (sensibilidad a la caja) ====
@@ Línea 360: / Línea 364: @@
   * los nombres de **funciones y variables** comienzan con **minúscula**
+==== Nombres de variables ====
+En general se intenta que el código sea auto explicativo, en el sentido que baste con leerlo para comprender como funciona.
+Algo que resulta muy sencillo y útil es dar nombres significativos a las variables.
+Podríamos haber escrito la función área de la siguiente manera.
+  area a1 a2 a3 = 2*a4 + 2*a5 + 2*a6
+     where
+        a4 = a1*a2
+        a5 = a2*a3
+        a6 = a1*a3
+o bien de manera equivalente e igualmente eficiente, pero mucho más comprensible:
+  area b a p = 2*frente + 2*lado + 2*tapa
+     where
+        frente = b * a
+        lado = p * a
+        tapa = b * p
 ===== Ejercicios =====
@@ Línea 372: / Línea 400: @@
   probar con [1,2,3], con [3,3,3] y con [].
-  * Definir una función //esVaciaOPrimer0.xs//, //esVaciaOPrimer0 : [a] -> Bool// que dada una lista //xs// decida si //xs// es vacía o bien su primer elemento es 0.
+  * Definir una función //esVaciaOPrimer0.xs//, //esVaciaOPrimer0 : [Int] -> Bool// que dada una lista //xs// decida si //xs// es vacía o bien su primer elemento es 0.
   probar con [1,2,3], con [3,3,3], con [0], con [0,1] y con [].
-  * Definir una función //segundoEssegundo.(x,y).zs//, //segundoEssegundo : (Int,Int) -> [Int] -> Bool// que dada una tupla de enteros //(x,y)// y una lista de enteros //zs// comprueba si el segundo elemento de la tupla es igual al segundo elemento de la lista.
+  * Definir una función //segundoEsSegundo.(x,y).zs//, //segundoEsSegundo : (Int,Int) -> [Int] -> Bool// que dada una tupla de enteros //(x,y)// y una lista de enteros //zs// comprueba si el segundo elemento de la tupla es igual al segundo elemento de la lista.
   probar con (1,2) y [3,2,4,5], (0,0) y [], (1,2) y [2,3,4,5].
-  * Definir una función //recortaDia.xs//, //recortaDia : [Char] -> [Char]// que dada una lista de caracteres //xs//, comprueba si las letras de la lista forman el nombre de un día de la semana, si es así, si el día es de diario, devuelven la primera letra solamente, en cambio, si el día es de fin de semana, devuelven el nombre del día completo.
+  * Definir una función //recortaDia.xs//, //recortaDia : [Char] -> [Char]// que dada una lista de caracteres //xs//, comprueba si las letras de la lista forman el nombre de un día de la semana, si es así, si el día no es del fin de semana, devuelven la primera letra solamente, en cambio, si el día es de fin de semana, devuelven el nombre del día completo.
 Ayuda: fíjense que el resultado siempre debe ser una lista de caracteres!