diff --git a/lib/node_modules/@stdlib/math/base/special/negalucas/README.md b/lib/node_modules/@stdlib/math/base/special/negalucas/README.md index 43c6eae50ea8..863cdb801dc2 100644 --- a/lib/node_modules/@stdlib/math/base/special/negalucas/README.md +++ b/lib/node_modules/@stdlib/math/base/special/negalucas/README.md @@ -191,19 +191,19 @@ for ( i = 0; i > -77; i-- ) { Computes the nth [negaLucas number][lucas-number]. ```c -double out = stdlib_base_negalucas( 0 ); -// returns 0 +double out = stdlib_base_negalucas( 0.0 ); +// returns 0.0 -out = stdlib_base_negalucas( -1 ); -// returns -1 +out = stdlib_base_negalucas( -1.0 ); +// returns -1.0 ``` The function accepts the following arguments: -- **n**: `[in] int32_t` input value. +- **n**: `[in] double` input value. ```c -double stdlib_base_negalucas( const int32_t n ); +double stdlib_base_negalucas( const double n ); ``` @@ -227,15 +227,14 @@ double stdlib_base_negalucas( const int32_t n ); ```c #include "stdlib/math/base/special/negalucas.h" #include -#include int main( void ) { - int32_t i; + double i; double v; - for ( i = 0; i > -77; i-- ) { + for ( i = 0.0; i > -77.0; i-- ) { v = stdlib_base_negalucas( i ); - printf( "negalucas(%d) = %lf\n", i, v ); + printf( "negalucas(%lf) = %lf\n", i, v ); } } ``` diff --git a/lib/node_modules/@stdlib/math/base/special/negalucas/benchmark/c/native/benchmark.c b/lib/node_modules/@stdlib/math/base/special/negalucas/benchmark/c/native/benchmark.c index ddcfbe4fd9bc..ff041652c66d 100644 --- a/lib/node_modules/@stdlib/math/base/special/negalucas/benchmark/c/native/benchmark.c +++ b/lib/node_modules/@stdlib/math/base/special/negalucas/benchmark/c/native/benchmark.c @@ -30,7 +30,7 @@ /** * Prints the TAP version. */ -void print_version() { +static void print_version( void ) { printf( "TAP version 13\n" ); } @@ -91,13 +91,13 @@ static double rand_double( void ) { */ static double benchmark( void ) { double elapsed; - int32_t x[ 100 ]; + double x[ 100 ]; double t; double y; int i; for ( i = 0; i < 100; i++ ) { - x[ i ] = (int32_t)( 77.0*rand_double() ); + x[ i ] = ( 77.0*rand_double() ); } t = tic(); diff --git a/lib/node_modules/@stdlib/math/base/special/negalucas/examples/c/example.c b/lib/node_modules/@stdlib/math/base/special/negalucas/examples/c/example.c index df9d0c8fe134..0d3bbffb9896 100644 --- a/lib/node_modules/@stdlib/math/base/special/negalucas/examples/c/example.c +++ b/lib/node_modules/@stdlib/math/base/special/negalucas/examples/c/example.c @@ -18,14 +18,13 @@ #include "stdlib/math/base/special/negalucas.h" #include -#include int main( void ) { - int32_t i; + double i; double v; - for ( i = 0; i > -77; i-- ) { + for ( i = 0.0; i > -77.0; i-- ) { v = stdlib_base_negalucas( i ); - printf( "negalucas(%d) = %lf\n", i, v ); + printf( "negalucas(%lf) = %lf\n", i, v ); } } diff --git a/lib/node_modules/@stdlib/math/base/special/negalucas/include/stdlib/math/base/special/negalucas.h b/lib/node_modules/@stdlib/math/base/special/negalucas/include/stdlib/math/base/special/negalucas.h index 46d06b81ad23..80e2ece1140f 100644 --- a/lib/node_modules/@stdlib/math/base/special/negalucas/include/stdlib/math/base/special/negalucas.h +++ b/lib/node_modules/@stdlib/math/base/special/negalucas/include/stdlib/math/base/special/negalucas.h @@ -19,8 +19,6 @@ #ifndef STDLIB_MATH_BASE_SPECIAL_NEGALUCAS_H #define STDLIB_MATH_BASE_SPECIAL_NEGALUCAS_H -#include - /* * If C++, prevent name mangling so that the compiler emits a binary file having undecorated names, thus mirroring the behavior of a C compiler. */ @@ -31,7 +29,7 @@ extern "C" { /** * Computes the nth negaLucas number. */ -double stdlib_base_negalucas( const int32_t n ); +double stdlib_base_negalucas( const double n ); #ifdef __cplusplus } diff --git a/lib/node_modules/@stdlib/math/base/special/negalucas/manifest.json b/lib/node_modules/@stdlib/math/base/special/negalucas/manifest.json index 22c525757ef8..3476ff893e32 100644 --- a/lib/node_modules/@stdlib/math/base/special/negalucas/manifest.json +++ b/lib/node_modules/@stdlib/math/base/special/negalucas/manifest.json @@ -37,8 +37,9 @@ "libpath": [], "dependencies": [ "@stdlib/math/base/napi/unary", - "@stdlib/math/base/special/labs", - "@stdlib/constants/float64/max-safe-nth-lucas" + "@stdlib/math/base/special/abs", + "@stdlib/constants/float64/max-safe-nth-lucas", + "@stdlib/math/base/assert/is-integer" ] }, { @@ -52,8 +53,9 @@ "libraries": [], "libpath": [], "dependencies": [ - "@stdlib/math/base/special/labs", - "@stdlib/constants/float64/max-safe-nth-lucas" + "@stdlib/math/base/special/abs", + "@stdlib/constants/float64/max-safe-nth-lucas", + "@stdlib/math/base/assert/is-integer" ] }, { @@ -67,8 +69,9 @@ "libraries": [], "libpath": [], "dependencies": [ - "@stdlib/math/base/special/labs", - "@stdlib/constants/float64/max-safe-nth-lucas" + "@stdlib/math/base/special/abs", + "@stdlib/constants/float64/max-safe-nth-lucas", + "@stdlib/math/base/assert/is-integer" ] } ] diff --git a/lib/node_modules/@stdlib/math/base/special/negalucas/src/addon.c b/lib/node_modules/@stdlib/math/base/special/negalucas/src/addon.c index 13fea40cde87..eb7039ef9a04 100644 --- a/lib/node_modules/@stdlib/math/base/special/negalucas/src/addon.c +++ b/lib/node_modules/@stdlib/math/base/special/negalucas/src/addon.c @@ -19,4 +19,4 @@ #include "stdlib/math/base/special/negalucas.h" #include "stdlib/math/base/napi/unary.h" -STDLIB_MATH_BASE_NAPI_MODULE_I_D( stdlib_base_negalucas ) +STDLIB_MATH_BASE_NAPI_MODULE_D_D( stdlib_base_negalucas ) diff --git a/lib/node_modules/@stdlib/math/base/special/negalucas/src/main.c b/lib/node_modules/@stdlib/math/base/special/negalucas/src/main.c index 18ba0325a695..7099a731b6fe 100644 --- a/lib/node_modules/@stdlib/math/base/special/negalucas/src/main.c +++ b/lib/node_modules/@stdlib/math/base/special/negalucas/src/main.c @@ -17,8 +17,11 @@ */ #include "stdlib/math/base/special/negalucas.h" -#include "stdlib/math/base/special/labs.h" +#include "stdlib/math/base/assert/is_integer.h" +#include "stdlib/math/base/special/abs.h" #include "stdlib/constants/float64/max_safe_nth_lucas.h" +#include +#include static const int64_t negalucas_value[ 77 ] = { 2, @@ -107,17 +110,17 @@ static const int64_t negalucas_value[ 77 ] = { * @return output value * * @example -* double out = stdlib_base_negalucas( -1 ); -* // returns -1 +* double out = stdlib_base_negalucas( -1.0 ); +* // returns -1.0 * * @example -* double out = stdlib_base_negalucas( 1 ); +* double out = stdlib_base_negalucas( 1.0 ); * // returns NaN */ -double stdlib_base_negalucas( const int32_t n ) { - int32_t an = stdlib_base_labs( n ); - if ( n > 0 || an > STDLIB_CONSTANT_FLOAT64_MAX_SAFE_NTH_LUCAS ) { +double stdlib_base_negalucas( const double n ) { + double an = stdlib_base_abs( n ); + if ( !stdlib_base_is_integer( n ) || n > 0.0 || an > STDLIB_CONSTANT_FLOAT64_MAX_SAFE_NTH_LUCAS ) { return 0.0 / 0.0; // NaN } - return negalucas_value[ an ]; + return negalucas_value[ (size_t)an ]; }