alimento-alu0100946499 0.1.0

data/lib/DLL/fuente.rb

@@ -0,0 +1,107 @@
+# Este módulo se ha creado para la asignatura de
+# Lenguajes y Paradigmas de la Programación impartida
+# en la Universidad de la Laguna como práctica,
+# haciendo uso del lenguaje de programación Ruby.
+#
+# Author::    Javier Esteban Pérez Rivas (mailto:alu0100946499@ull.edu.es)
+# Copyright:: Creative Commons
+# License::   Distributes under the same terms as Ruby
+
+module DLL
+
+  # Esta clase permite crear una lista 
+  # doblemente enlazada.
+  # Se ha incluido el mixin Enumerable.
+  class DLL
+
+    include Enumerable
+
+    Node = Struct.new(:value, :next, :prev)
+
+    attr_reader :head, :tail
+
+    # La lista se crea vacía por defecto.
+    def initialize()
+     @head, @tail = nil, nil
+    end
+  
+    # Devuelve true si la lista está vacía, false en otro caso.
+    def empty()
+      return true if (@head == nil && @tail == nil)
+      false
+    end
+    
+    # Muestra los elementos de la lista como si fuese un string.
+    def to_s()
+      out = ""
+      aux = @tail
+      while (aux != nil) do
+        if(aux[:next] == nil)
+          out << "#{aux[:value]}"
+        else
+          out << "#{aux[:value]}, "
+        end
+        aux = aux.next
+      end
+
+      out
+
+    end
+
+    # Inserta los elementos por el principio de la lista.
+    def insert_head(*objects)
+      objects.each{ |x|
+        if(self.empty)
+          aux = Node.new(x, nil, @head)
+          @tail = aux
+          @head = aux
+        else
+          aux = Node.new(x, nil, @head)
+          @head[:next] = aux
+          @head = aux
+        end
+      }
+    end
+
+    # Inserta los elementos por el final de la lista.
+    def insert_tail(*objects)
+      objects.each{ |x|
+        if(self.empty)
+          aux = Node.new(x, @tail, nil)
+          @tail = aux
+          @head = aux
+        else
+          aux = Node.new(x, @tail, nil)
+          @tail[:prev] = aux
+          @tail = aux
+        end
+      }
+    end
+
+    # Elimina el elemento al que apunta head.
+    def erase_head()
+      aux = @head[:prev]
+      aux[:next] = nil
+      @head = aux
+    end
+
+    #Elimina el elemento al que apunta tail.
+    def erase_tail()
+      aux = @tail[:next]
+      aux[:prev] = nil
+      @tail = aux
+    end
+
+    # Se incluye el metodo del mixin Enumerable
+    # Se define como la iteración entre los valores de los nodos.
+    def each # :yields: value
+      aux = @tail
+      while (aux != nil) do
+        yield aux[:value]
+        aux = aux.next
+      end
+    end
+
+  end 
+
+end

data/lib/DLL/version.rb

@@ -0,0 +1,3 @@
+module DLL
+ VERSION = "0.1.0"
+end

data/lib/alimento.rb

@@ -0,0 +1,17 @@
+require "alimento/fuente.rb"
+require "alimento/version.rb"
+
+  module Alimento
+     $alimentos = [HueLacHel.new("Huevo frito", 14.1, 0.0, 19.5), HueLacHel.new("Leche vaca", 3.3, 4.8, 3.2), HueLacHel.new("Yogurt", 3.8, 4.9, 3.8),
+                  CarDer.new("Cerdo", 21.5, 0.0, 6.3), CarDer.new("Ternera", 21.1, 0.0, 3.1), CarDer.new("Pollo", 20.6, 0.0, 5.6),
+                  PesMar.new("Bacalao", 17.7, 0.0, 0.4), PesMar.new("Atún", 21.5, 0.0, 15.5), PesMar.new("Salmón", 19.9, 0.0, 13.6),
+                  AliGra.new("Aceite de oliva", 0.0, 0.2, 99.6), AliGra.new("Mantequilla", 0.7, 0.0, 83.2), AliGra.new("Chocolate", 5.3, 47.0, 30.0),
+                  AliRicCar.new("Azúcar", 0.0, 99.8, 0.0), AliRicCar.new("Arroz", 6.8, 77.7, 0.6), AliRicCar.new("Lentejas", 23.5, 52.0, 1.4), AliRicCar.new("Papas", 2.0, 15.4, 0.1),
+                  VerHor.new("Tomate", 1.0, 3.5, 0.2), VerHor.new("Cebolla", 1.3, 5.8, 0.3), VerHor.new("Calabaza", 1.1, 4.8, 0.1),
+                  Frutas.new("Manzana", 0.3, 12.4, 0.4), Frutas.new("Platano", 1.2, 21.4, 0.2), Frutas.new("Pera", 0.5, 12.7, 0.3)]
+  
+    $equivalencias = {cucharada: 20, cucharadita: 5, cucharón: 240, taza: 150, tacita: 50, tazón: 300, pieza: 100, piezapequena: 50, piezagrande: 200, vaso: 220, gramo: 1}    
+
+
+
+  end

data/lib/alimento/fuente.rb

@@ -0,0 +1,216 @@
+require "alimento/version"
+
+  # Este módulo se ha creado para la asignatura de
+  # Lenguajes y Paradigmas de la Programación impartida
+  # en la Universidad de la Laguna como práctica,
+  # haciendo uso del lenguaje de programación Ruby.
+  #
+  # Author::    Javier Esteban Pérez Rivas (mailto:alu0100946499@ull.edu.es)
+  # Copyright:: Creative Commons
+  # License::   Distributes under the same terms as Ruby
+
+  module Alimento
+
+    # Esta clase permite representar un alimento.
+    # Se ha incluido el mixin Comparable.
+
+    class  Alimento
+      include Comparable    
+      
+      attr_reader :nombre, :proteinas, :glucidos, :lipidos
+      
+      # Se guarda el nombre y valor para proteínas, glúcidos y lípidos.
+      def initialize(nombre, proteinas, glucidos, lipidos)
+        @nombre, @proteinas, @glucidos, @lipidos = nombre.to_s, proteinas, glucidos, lipidos
+      end
+
+      # Calcula el valor enérgetico del alimento.
+      def val_energ
+        @proteinas*4+@glucidos*4+@lipidos*9
+      end
+      
+      # Calcula el área incremental bajo de la curva del array de datos que recibe.
+      def aibc(array)
+        bfr = array.collect{|x| x-array[0]}
+        res = array.drop(1).collect!{|x| if x < array[0] then 0.0 else x-array[0] end}.zip(bfr).collect!{|x, y| if x!=0.0 then (x+y)*2.5 else 0.0 end}
+        res.reduce(:+)
+      end
+
+      # Calcula el índice glucémico del alimento cuyos datos haya en el fichero que recibe.
+      def ind_glu(filename)
+        file = File.new(filename.to_s, "r")
+        number = file.gets
+
+        inds = []
+        number.to_i.times {
+          aux = file.gets.split(" ").collect{|x| x.to_f}
+          inds << aux
+        }
+
+        glucs = []
+        number.to_i.times {
+          aux = file.gets.split(" ").collect{|x| x.to_f}
+          glucs << aux
+        }
+
+
+        inds.collect!{|x| aibc(x)}
+        glucs.collect!{|x| aibc(x)}
+
+        res = inds.zip(glucs).collect{|x, y| x/y*100}.reduce(:+)/2
+
+      end
+
+      # Muestra la información del objeto formateada. Lo convierte a string.
+      def to_s
+        "%-15s" % ["#{@nombre.capitalize}: "] + "#{@proteinas} #{@glucidos} #{@lipidos}" + " grupo: #{@grupo}"
+      end
+
+      # Se define para incluir el mixin comparable
+      # Se usa como valor para la comparación el valor energético.
+      def <=>(other)
+        return nil unless other.is_a?Alimento
+        self.val_energ <=> other.val_energ
+      end
+
+      def ==(other)
+        if other.is_a?Alimento
+	  self.nombre == other.nombre && self.proteinas == other.proteinas && self.glucidos == other.glucidos && self.lipidos == other.lipidos
+        else
+          false
+        end
+      end
+
+    end
+
+
+    class HueLacHel < Alimento
+
+    # Esta clase permite representar alimentos dentro
+    # del grupo "Huevos, Lácteos y Helado".
+    # Hereda de la clase alimento.
+
+      attr_reader :grupo
+
+      def initialize(nombre, proteinas, glucidos, lipidos)
+        super(nombre, proteinas, glucidos, lipidos)
+        @grupo = "Huevos, Lácteos y Helado"
+      end
+   
+    end
+
+
+    class CarDer < Alimento
+
+    # Esta clase permite representar alimentos dentro
+    # del grupo "Carnes y Derivados".
+    # Hereda de la clase alimento.
+
+      attr_reader :grupo
+
+      def initialize(nombre, proteinas, glucidos, lipidos)
+        super(nombre, proteinas, glucidos, lipidos)
+        @grupo = "Carnes y Derivados"
+      end
+
+    end
+
+  
+    class PesMar < Alimento
+
+    # Esta clase permite representar alimentos dentro
+    # del grupo "Pescados y Mariscos".
+    # Hereda de la clase alimento.
+
+      attr_reader :grupo
+
+      def initialize(nombre, proteinas, glucidos, lipidos)
+        super(nombre, proteinas, glucidos, lipidos)
+        @grupo = "Pescados y Mariscos"
+      end
+
+    end
+
+
+    class AliGra < Alimento
+
+    # Esta clase permite representar alimentos dentro
+    # del grupo "Alimentos Grasos".
+    # Hereda de la clase alimento.
+
+      attr_reader :grupo
+
+      def initialize(nombre, proteinas, glucidos, lipidos)
+        super(nombre, proteinas, glucidos, lipidos)
+        @grupo = "Alimentos Grasos"
+      end
+
+    end
+
+
+    class AliRicCar < Alimento
+
+    # Esta clase permite representar alimentos dentro
+    # del grupo "Alimentos Ricos en Carbohidratos".
+    # Hereda de la clase alimento.
+
+      attr_reader :grupo
+
+      def initialize(nombre, proteinas, glucidos, lipidos)
+        super(nombre, proteinas, glucidos, lipidos)
+        @grupo = "Alimentos Ricos en Carbohidratos"
+      end
+
+    end
+  
+  
+    class VerHor < Alimento
+
+    # Esta clase permite representar alimentos dentro
+    # del grupo "Verduras y Hortalizas".
+    # Hereda de la clase alimento.
+
+      attr_reader :grupo
+
+      def initialize(nombre, proteinas, glucidos, lipidos)
+        super(nombre, proteinas, glucidos, lipidos)
+        @grupo = "Verduras y Hortalizas"
+      end
+
+    end
+
+  
+    class Frutas < Alimento
+
+    # Esta clase permite representar alimentos dentro
+    # del grupo "Frutas".
+    # Hereda de la clase alimento.
+
+      attr_reader :grupo
+
+      def initialize(nombre, proteinas, glucidos, lipidos)
+        super(nombre, proteinas, glucidos, lipidos)
+        @grupo = "Frutas"
+      end
+
+    end 
+
+
+    class Bebidas < Alimento
+
+    # Esta clase permite representar alimentos dentro
+    # del grupo "Bebidas".
+    # Hereda de la clase alimento.
+
+      attr_reader :grupo
+
+      def initialize(nombre, proteinas, glucidos, lipidos)
+        super(nombre, proteinas, glucidos, lipidos)
+        @grupo = "Bebidas"
+      end
+
+    end
+
+  MAX = Alimento.new("MAX", Float::MAX, Float::MAX, Float::MAX)
+
+  end

data/lib/alimento/version.rb

@@ -0,0 +1,3 @@
+module Alimento
+  VERSION = "0.1.0"
+end

data/lib/array/fuente.rb

@@ -0,0 +1,24 @@
+
+  class Array
+  
+    def for_sort
+      vector = Array.new(self)
+      res = []
+      for i in 0...vector.size do
+        res << vector.delete(vector.min)
+      end
+      res
+    end
+
+    def each_sort
+      vector = Array.new(self)
+      res = []
+      vector.each{
+        min = vector.min
+        res << min
+        vector[vector.index(min)] = Alimento::MAX
+      }
+      res
+    end
+
+  end

data/lib/plato/fuente.rb

@@ -0,0 +1,75 @@
+module Alimento
+
+  #Esta clase permite representar un plato
+
+  class Plato
+
+    attr_accessor :name, :vegetales, :frutas, :granos, :proteinas, :aceites
+   
+    #Se guarda el nombre del plato y se recibe un bloque con los ingredientes
+    def initialize(name, &block)
+      @name = name
+      @vegetales = []
+      @frutas = []
+      @granos = []
+      @proteinas = []
+      @aceites = []
+
+      if block_given?
+        if block.arity == 1
+          yield self
+        else
+          instance_eval(&block)
+        end
+      end
+    end
+    
+    #Guarda un alimento dentro de la clase
+    def ingrediente(grupo, nombre, medida)
+      alimento = $alimentos.find{|x| x.nombre == nombre}
+      aux = medida.split(" ").first.split("/")
+      valor = 0
+      if(aux.size > 1)
+        valor = aux[0].to_f/aux[1].to_f
+      else
+        valor = aux[0].to_f
+      end
+      
+      cantidad = $equivalencias[medida.sub("ñ", "n").split(" ").drop(1).each{|x| x.gsub!(/s\z/, "")}.reduce(:+).to_sym].to_f
+      cantidad *= valor
+     
+
+      if(grupo == "vegetal" || grupo == "vegetales")
+        @vegetales << [alimento, cantidad]
+      elsif(grupo == "fruta" || grupo == "frutas")
+        @frutas << [alimento, cantidad]
+      elsif(grupo == "grano" || grupo == "granos" || grupo == "cereal" || grupo == "cereales")
+        @granos << [alimento, cantidad]
+      elsif(grupo == "proteina" || grupo == "proteína" || grupo == "proteinas" || grupo == "proteínas")
+        @proteinas << [alimento, cantidad]
+      elsif(grupo == "aceite" || grupo == "aceites")
+        @aceites << [alimento, cantidad]
+      else
+        "#{grupo} no es un grupo de alimento permitido"
+      end
+    end
+
+    #Muestra el contenido del plato
+    def to_s
+      total = 0
+      output = @name
+      output << "\n#{'=' * @name.size}\n\n"
+      output << "Composición nutricional:\n"
+      output << "%20s" % "" + "%-10s" % "glúcidos" + "%-10s" %  "proteínas" + "%-10s" % "lípidos" + "%-20s" % "valor energético\n"
+      @vegetales.each{ |x, y| output << "%-20s" % x.nombre + "%-10s" % x.glucidos + "%-10s" % x.proteinas + "%-10s" % x.lipidos + "%-20f\n" % (x.val_energ/100*y); total += x.val_energ/100*y}
+      @frutas.each{ |x, y| output << "%-20s" % x.nombre + "%-10s" % x.glucidos + "%-10s" % x.proteinas + "%-10s" % x.lipidos + "%-20f\n" % (x.val_energ/100*y); total += x.val_energ/100*y}
+      @granos.each{ |x, y| output << "%-20s" % x.nombre + "%-10s" % x.glucidos + "%-10s" % x.proteinas + "%-10s" % x.lipidos + "%-20f\n" % (x.val_energ/100*y); total += x.val_energ/100*y}
+      @proteinas.each{ |x, y| output << "%-20s" % x.nombre + "%-10s" % x.glucidos + "%-10s" % x.proteinas + "%-10s" % x.lipidos + "%-20f\n" % (x.val_energ/100*y); total += x.val_energ/100*y}
+      @aceites.each{ |x, y| output << "%-20s" % x.nombre + "%-10s" % x.glucidos + "%-10s" % x.proteinas + "%-10s" % x.lipidos + "%-20f\n" % (x.val_energ/100*y); total += x.val_energ/100*y}
+      output << "%-41s" % "Valor energético total" + "%20f" % total
+      output
+    end
+
+  end
+
+end