Using the Error Function

2025-09-12 19:59:53 +10:00
parent e028cae397
commit aa882c10fb
2 changed files with 9 additions and 7 deletions
--- a/packages/math/math.grnd
+++ b/packages/math/math.grnd
@@ -62,7 +62,7 @@ fun -int !factorial -int &in
    return $ans

    @error
-    divide 1 0 &store
+    error "Cannot find factorial of a negative integer"
 endfun

 fun -double !cos -double &in
@@ -206,4 +206,8 @@ fun -double !sqrt -double &in
    return $ans

    @error
-endfun
+    error "Cannot find square root of a negative double"
+endfun
+
+pusharg -0.5
+call !sqrt &store