Skip to content

Instantly share code, notes, and snippets.

@eriksvedang

eriksvedang/diphantine.carp

Last active October 18, 2018 17:52
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save eriksvedang/5b53123d1f00960d4eb4eee1f93a5399 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save eriksvedang/5b53123d1f00960d4eb4eee1f93a5399 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
diphantine.carp
(defn gcd [a b]
(let [r (mod a b)
q (Int./ a b)]
(if (= r 0)
b
(gcd b r))))
(defn gen []
(let [a (Int.random-between 0 99)
b (Int.random-between 0 99)
d (gcd a b)]
(str* a "x + " b "y = " d)))
(defn-do main []
(Random.seed (Double.from-int (System.time)))
(ignore (Int.random-between 0 99))
(println* (gen)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment