Merge pull request #123 from BlacAmDK/master

Fix triangle function in koans-solved
google · Dec 28, 2021 · fa286eb · fa286eb
2 parents df5e58d + 5c46636
commit fa286eb
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git a/koans-solved/triangle-project.lisp b/koans-solved/triangle-project.lisp
@@ -27,6 +27,7 @@
     (cond ((<= (+ min mid) max) (error 'triangle-error :sides (list a b c)))
           ((= max mid min) :equilateral)
           ((= max mid) :isosceles)
+          ((= mid min) :isosceles)
           (t :scalene))))
 
 (define-test equilateral-triangles
@@ -39,6 +40,7 @@
   (assert-equal :isosceles (triangle 3 4 4))
   (assert-equal :isosceles (triangle 4 3 4))
   (assert-equal :isosceles (triangle 4 4 3))
+  (assert-equal :isosceles (triangle 2 2 3))
   (assert-equal :isosceles (triangle 10 10 2)))
 
 (define-test scalene-triangles

diff --git a/koans/triangle-project.lisp b/koans/triangle-project.lisp
@@ -30,6 +30,7 @@
   (assert-equal :isosceles (triangle 3 4 4))
   (assert-equal :isosceles (triangle 4 3 4))
   (assert-equal :isosceles (triangle 4 4 3))
+  (assert-equal :isosceles (triangle 2 2 3))
   (assert-equal :isosceles (triangle 10 10 2)))
 
 (define-test scalene-triangles