mirror of
https://github.com/janet-lang/janet
synced 2024-10-18 08:00:40 +00:00
Fix formatting.
This commit is contained in:
parent
368b891499
commit
342a29c7be
@ -449,6 +449,11 @@ JANET_CORE_FN(janet_core_range,
|
|||||||
}
|
}
|
||||||
count = (count > 0) ? count : 0;
|
count = (count > 0) ? count : 0;
|
||||||
int32_t int_count = ceil(count);
|
int32_t int_count = ceil(count);
|
||||||
|
if (step > 0.0) {
|
||||||
|
janet_assert(start + int_count * step >= stop, "bad range code");
|
||||||
|
} else {
|
||||||
|
janet_assert(start + int_count * step <= stop, "bad range code");
|
||||||
|
}
|
||||||
JanetArray *array = janet_array(int_count);
|
JanetArray *array = janet_array(int_count);
|
||||||
for (int32_t i = 0; i < int_count; i++) {
|
for (int32_t i = 0; i < int_count; i++) {
|
||||||
array->data[i] = janet_wrap_number(start + i * step);
|
array->data[i] = janet_wrap_number(start + i * step);
|
||||||
|
@ -69,6 +69,13 @@
|
|||||||
(seq [n :range [0 10]] (% n 5 3))
|
(seq [n :range [0 10]] (% n 5 3))
|
||||||
[0 1 2 0 1 0 1 2 0 1]) "variadic mod")
|
[0 1 2 0 1 0 1 2 0 1]) "variadic mod")
|
||||||
|
|
||||||
|
# linspace range
|
||||||
|
(assert (deep= @[0 1 2 3] (range 4)) "range 1")
|
||||||
|
(assert (deep= @[0 1 2 3] (range 3.01)) "range 2")
|
||||||
|
(assert (deep= @[0 1 2 3] (range 3.999)) "range 3")
|
||||||
|
(assert (deep= @[0.8 1.8 2.8 3.8] (range 0.8 3.999)) "range 4")
|
||||||
|
(assert (deep= @[0.8 1.8 2.8 3.8] (range 0.8 3.999)) "range 5")
|
||||||
|
|
||||||
(assert (< 1.0 nil false true
|
(assert (< 1.0 nil false true
|
||||||
(fiber/new (fn [] 1))
|
(fiber/new (fn [] 1))
|
||||||
"hi"
|
"hi"
|
||||||
|
Loading…
Reference in New Issue
Block a user