This sucks.

2025-10-17 14:47:26 -04:00
parent 96f2cabe1e
commit 8e3e5a82d3
2 changed files with 64 additions and 20 deletions
@@ -12,10 +12,9 @@
    [(and (even? a) (even? b)) (* 2 (gcd2 (floor (/ a 2)) (floor (/ b 2))))]
    [(even? b) (gcd2 a (floor (/ b 2)))]
    [(even? a) (gcd2 (floor (/ a 2)) b)]
-    [else
-     (if (<= a b)
-         (gcd2 a (- b a))
-         (gcd2 b (- a b)))]))
+    [else (if (<= a b)
+              (gcd2 a (- b a))
+              (gcd2 b (- a b)))]))

 (test (gcd2 0 0) => 0)
 (test (gcd2 288 64) => 32)
@@ -102,4 +101,4 @@
  (goodies/help good? l 0 '()))

 (test (goodies even? '(1 2 3 4 5)) => '(1 3))
-(test (goodies even? '()) => '())
+(test (goodies even? '()) => '())