DuqueDeTuring · August 29, 2015 14:21
diff --git a/gistfile1.hs b/gistfile1.hs
 -- Generadores y "guardias"

 {-- 
   Sea la tupla (x,y) tal que,
      x ∈ [1..10] ^ x < 3
      y ∈ [11,13] ^ y < 12
 --}
 [(x,y) | x <- [1..10], y <- [11,13], x<3, y<12] 
 

 -- Fibonacci 
 fib = 1 : 1 : [ a+b | (a,b) <- zip fib (tail fib)]
	-- Generadores y "guardias"

	{--
	Sea la tupla (x,y) tal que,
	x ∈ [1..10] ^ x < 3
	y ∈ [11,13] ^ y < 12
	--}
	[(x,y) \| x <- [1..10], y <- [11,13], x<3, y<12]


	-- Fibonacci
	fib = 1 : 1 : [ a+b \| (a,b) <- zip fib (tail fib)]