diff options
Diffstat (limited to 'builtins/integers.c')
| -rw-r--r-- | builtins/integers.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/builtins/integers.c b/builtins/integers.c index e55d2ab0..b7d96a90 100644 --- a/builtins/integers.c +++ b/builtins/integers.c @@ -302,6 +302,14 @@ public Int_t Int$power(Int_t base, Int_t exponent) return Int$from_mpz(result); } +public Int_t Int$sqrt(Int_t i) +{ + mpz_t result; + mpz_init_set_int(result, i); + mpz_sqrt(result, result); + return Int$from_mpz(result); +} + public Int_t Int$random(Int_t min, Int_t max) { int32_t cmp = Int$compare(&min, &max, &$Int); if (cmp > 0) |