reducing way of doing traingle problem 18 in clojure
clean