float:ceiling, float:floor

Author: lpil

CHANGELOG.md

@@ -9,7 +9,7 @@
 - `str` module gains `append` function and loses `from_int`, `parse_int`,
   `from_float`, `parse_float`, and `base_from_int`.
 - `int` module created with `parse`, `to_string`, and `to_base_string`.
-- `float` module created with `parse`, and `to_string`.
+- `float` module created with `ceiling`, `floor`, `parse`, and `to_string`.
 
 ## v0.1.1 - 2019-04-17
 

gen/src/float.erl

@@ -1,10 +1,16 @@
 -module(float).
 -compile(no_auto_import).
 
--export([parse/1, to_string/1]).
+-export([parse/1, to_string/1, ceiling/1, floor/1]).
 
 parse(A) ->
     gleam__stdlib:parse_float(A).
 
 to_string(F) ->
     iodata:to_string(iodata:from_float(F)).
+
+ceiling(A) ->
+    math:ceil(A).
+
+floor(A) ->
+    math:floor(A).

gen/test/float_test.erl

@@ -1,7 +1,7 @@
 -module(float_test).
 -compile(no_auto_import).
 
--export([parse_test/0, to_string_test/0]).
+-export([parse_test/0, to_string_test/0, ceiling_test/0, floor_test/0]).
 
 parse_test() ->
     expect:equal(float:parse(<<"1.23">>), {ok, 1.23}),
@@ -14,3 +14,13 @@ parse_test() ->
 to_string_test() ->
     expect:equal(float:to_string(123.0), <<"123.0">>),
     expect:equal(float:to_string(-8.1), <<"-8.1">>).
+
+ceiling_test() ->
+    expect:equal(float:ceiling(8.1), 9.0),
+    expect:equal(float:ceiling(-8.1), -8.0),
+    expect:equal(float:ceiling(-8.0), -8.0).
+
+floor_test() ->
+    expect:equal(float:floor(8.1), 8.0),
+    expect:equal(float:floor(-8.1), -9.0),
+    expect:equal(float:floor(-8.0), -8.0).

src/float.gleam

@@ -11,3 +11,7 @@ pub fn to_string(f) {
   |> iodata:from_float
   |> iodata:to_string
 }
+
+pub external fn ceiling(Float) -> Float = "math" "ceil";
+
+pub external fn floor(Float) -> Float = "math" "floor";

test/float_test.gleam

@@ -36,3 +36,31 @@ pub fn to_string_test() {
   |> float:to_string
   |> expect:equal(_, "-8.1")
 }
+
+pub fn ceiling_test() {
+  8.1
+  |> float:ceiling
+  |> expect:equal(_, 9.0)
+
+  -8.1
+  |> float:ceiling
+  |> expect:equal(_, -8.0)
+
+  -8.0
+  |> float:ceiling
+  |> expect:equal(_, -8.0)
+}
+
+pub fn floor_test() {
+  8.1
+  |> float:floor
+  |> expect:equal(_, 8.0)
+
+  -8.1
+  |> float:floor
+  |> expect:equal(_, -9.0)
+
+  -8.0
+  |> float:floor
+  |> expect:equal(_, -8.0)
+}