Quick actions

cmd+k|ctrl+k

Navigation

Languages

euclidean algorithm

Snippet info

Language

Clojure

Visibility

public

Author

orochi-100

Created

2021-10-14T20:34:48.780941Z

Updated

2021-10-15T08:16:14.420835Z

(defn euclidean-alg [x y]
    (if (zero? y) x (euclidean-alg y (mod x y))))

(println (euclidean-alg 15 35))
INFO