(defn euclidean [x y] (Math/sqrt (+ (Math/pow x 2) (Math/pow y 2))))

(println (for [
	 [x,y] 
	 [[1,2],[2,3],[3,4]] 
	 :let [dist (euclidean x y)] 
	 :when (> dist 3.0)]
	 [dist,(Math/toDegrees (Math/atan (/ y x)))]))