From 0cd4fc4869d368c81436a43e3df59d0d42022783 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 5 Jan 2019 14:47:22 -0800
Subject: New function: square.

The square function calulates (* x x) but is faster for bignum
integers by taking advantage of mp_sqr.

* arith.c (square): New function.

* eval.c (eval_init): Register square as intrinsic.

* lib.h (square): Declared.

* txr.1: Documented.
---
 lib.h | 1 +
 1 file changed, 1 insertion(+)

(limited to 'lib.h')

diff --git a/lib.h b/lib.h
index 6570d904..d54ea7fa 100644
--- a/lib.h
+++ b/lib.h
@@ -721,6 +721,7 @@ val exptv(struct args *nlist);
 val exptmod(val base, val exp, val mod);
 val sqroot(val anum);
 val isqrt(val anum);
+val square(val anum);
 val gcd(val anum, val bnum);
 val gcdv(struct args *nlist);
 val lcm(val anum, val bnum);
-- 
cgit v1.2.3