Merge branch '__rultor'

Author: rultor

src/main/eo/org/eolang/math/number.eo

@@ -26,34 +26,37 @@
 +version 0.0.0
 
 [n] > number
-
   # Checking type of the number's decorator.
   # If $.n is int, return true, otherwise false.
   [] > is-int
+    ^.n > value!
     if. > @
-      eq.
-        ^.n
-        0
-      FALSE
-      eq.
-        div.
-          ^.n
-          ^.n
-        1
+      value.eq 0
+      TRUE
+      if.
+        value.eq 0.0
+        FALSE
+        eq.
+          div.
+            value
+            value
+          1
 
   # Checking type of the number's decorator.
   # If $.n is float, return true, otherwise false.
   [] > is-float
+    ^.n > value!
     if. > @
-      eq.
-        ^.n
-        0.0
+      value.eq 0.0
       TRUE
-      eq.
-        div.
-          ^.n
-          ^.n
-        1.0
+      if.
+        value.eq 0
+        FALSE
+        eq.
+          div.
+            value
+            value
+          1.0
 
   # Checking if number is NaN
   [] > is-nan
@@ -114,8 +117,8 @@
 
   # Calculate MOD
   [x] > mod
-    ^.n > dividend
-    x > divisor
+    ^.n > dividend!
+    x > divisor!
 
     if. > @
       divisor.eq 0
@@ -127,16 +130,16 @@
           abs-mod
 
     [] > abs-mod
-      (number dividend).abs > int-abs
-      (number divisor).abs > x-abs
+      (number dividend).abs > int-abs!
+      (number divisor).abs > x-abs!
       minus. > @
         int-abs
         x-abs.times
           int-abs.div x-abs
 
   # Absolute value of $.n (i.e., with no sign)
   [] > abs
-    ^.n > value
+    ^.n > value!
     if. > @
       is-int
       if.

src/test/eo/org/eolang/math/number-tests.eo

@@ -24,6 +24,7 @@
 +alias org.eolang.hamcrest.assert-that
 +alias org.eolang.math.nan
 +alias org.eolang.math.number
++alias org.eolang.nop
 +home https://github.com/objectionary/eo-math
 +junit
 +package org.eolang.math
@@ -47,17 +48,23 @@
     $.equal-to TRUE
     "check is nan of nan"
 
-[] > check-is-int-with-zero
+[] > check-is-int-with-int-zero
   assert-that > @
     (number 0).is-int
-    $.equal-to FALSE
-    "check is-int of zero"
+    $.equal-to TRUE
+    "check is-int of int zero"
+
+[] > check-is-int-with-float-zero
+  nop > @
+
+[] > check-is-float-with-int-zero
+  nop > @
 
-[] > check-is-float-with-zero
+[] > check-is-float-with-float-zero
   assert-that > @
     (number 0.0).is-float
     $.equal-to TRUE
-    "check is-int of zero"
+    "check is-float of float zero"
 
 [] > check-is-int-positive-float
   assert-that > @