swannodette · May 10, 2010 11:15
diff --git a/list_comprehension.clj b/list_comprehension.clj
 ; from Learn You A Haskell Real Good
 ; rightTriangles' = [ (a,b,c) | c <- [1..10], b <- [1..c], a <- [1..b], a^2 + b^2 == c^2, a+b+c == 24 ]

 (def right-triangles
  (let [r (range 1 11)]
    (for [c r
          b r :when (< b c)
          a r :when (< a b)
          :when (and (= (+ (* a a) (* b b)) (* c c))
                     (= (+ a b c) 24))]
      [a b c]))
	; from Learn You A Haskell Real Good
	; rightTriangles' = [ (a,b,c) \| c <- [1..10], b <- [1..c], a <- [1..b], a^2 + b^2 == c^2, a+b+c == 24 ]

	(def right-triangles
	(let [r (range 1 11)]
	(for [c r
	b r :when (< b c)
	a r :when (< a b)
	:when (and (= (+ (* a a) (* b b)) (* c c))
	(= (+ a b c) 24))]
	[a b c]))