right triangle example from jdc

gistfile1.txt

#lang racket
(for*/list ([x (in-range 11)] 
            [y (in-range 11)]
            [z (in-range 11)]
            #:when (and (= (+ (* x x) (* y y)) (* z z)) (= (+ x y z) 24)))   
  (list x y z))

(for*/list ([x (in-range 11)]
            [y (in-range 11)]
            #:when (= 24 (+ x y (sqrt (+ (* x x) (* y y))))))
  (list x y (sqrt (+ (* x x) (* y y)))))