Skip to content

Instantly share code, notes, and snippets.

@dd1994

dd1994/gcd.clj

Last active November 3, 2015 08:13
Show Gist options
  • Save dd1994/d10147d972bd23e47447 to your computer and use it in GitHub Desktop.
Save dd1994/d10147d972bd23e47447 to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. dd1994 revised this gist Nov 3, 2015. 1 changed file with 2 additions and 2 deletions.
    4 changes: 2 additions & 2 deletions gcd.clj
    View file
    Original file line number Diff line number Diff line change
    @@ -1,5 +1,5 @@
    (defn gcd
    [div rem]
    (if (= rem 0)
    div
    (gcd rem (mod div rem))))
    div
    (gcd rem (mod div rem))))
  2. dd1994 revised this gist Nov 3, 2015. 1 changed file with 4 additions and 5 deletions.
    9 changes: 4 additions & 5 deletions gcd.clj
    View file
    Original file line number Diff line number Diff line change
    @@ -1,6 +1,5 @@
    (defn gcd
    [a b]
    (loop [div b rem (mod a b)]
    (if (= rem 0)
    div
    (recur rem (mod div rem)))))
    [div rem]
    (if (= rem 0)
    div
    (gcd rem (mod div rem))))
  3. dd1994 revised this gist Nov 1, 2015. 1 changed file with 3 additions and 3 deletions.
    6 changes: 3 additions & 3 deletions gcd.clj
    View file
    Original file line number Diff line number Diff line change
    @@ -1,6 +1,6 @@
    (defn gcd
    [a b]
    (loop [div b rem (mod a b)]
    (if (= rem 0)
    div
    (recur rem (mod div rem)))))
    (if (= rem 0)
    div
    (recur rem (mod div rem)))))
  4. dd1994 revised this gist Nov 1, 2015. No changes.
  5. dd1994 created this gist Nov 1, 2015.
    6 changes: 6 additions & 0 deletions gcd.clj
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,6 @@
    (defn gcd
    [a b]
    (loop [div b rem (mod a b)]
    (if (= rem 0)
    div
    (recur rem (mod div rem)))))