From 23136f431ca7dd07a1071c84d59dda9b715baf2b Mon Sep 17 00:00:00 2001
From: Udo <git@udo.codes>
Date: Wed, 22 Feb 2023 22:20:19 +0100
Subject: Fix edge-case in int.floor_divide

---
 src/gleam/int.gleam | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

(limited to 'src')

diff --git a/src/gleam/int.gleam b/src/gleam/int.gleam
index 44a6de4..2ef4b73 100644
--- a/src/gleam/int.gleam
+++ b/src/gleam/int.gleam
@@ -759,13 +759,11 @@ pub fn modulo(dividend: Int, by divisor: Int) -> Result(Int, Nil) {
 pub fn floor_divide(dividend: Int, by divisor: Int) -> Result(Int, Nil) {
   case divisor {
     0 -> Error(Nil)
-    divisor -> {
-      let quotient = dividend / divisor
-      case quotient < 0 && dividend % divisor != 0 {
-        True -> Ok(quotient - 1)
-        False -> Ok(quotient)
+    divisor ->
+      case dividend * divisor < 0 && dividend % divisor != 0 {
+        True -> Ok(dividend / divisor - 1)
+        False -> Ok(dividend / divisor)
       }
-    }
   }
 }
 
-- 
cgit v1.2.3