diff options
author | Eduardo Julian | 2018-02-24 17:10:44 -0400 |
---|---|---|
committer | Eduardo Julian | 2018-02-24 17:10:44 -0400 |
commit | 9bf491a18e4b772505c3767cf0249eb24f0a822b (patch) | |
tree | ce047676228e395f131abc7304a1284ebb1a69ed /stdlib/source/lux/math.lux | |
parent | cabb410d67edcdcb3531a990518ca67de4507f07 (diff) |
- Removed the "root2" and "root3" host procedures (their functionality is redundant, in the presence of the "pow" procedure).
Diffstat (limited to 'stdlib/source/lux/math.lux')
-rw-r--r-- | stdlib/source/lux/math.lux | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/stdlib/source/lux/math.lux b/stdlib/source/lux/math.lux index d6001b3a6..4d65c75b8 100644 --- a/stdlib/source/lux/math.lux +++ b/stdlib/source/lux/math.lux @@ -40,9 +40,6 @@ [exp "lux math exp"] [log "lux math log"] - [root2 "lux math root2"] - [root3 "lux math root3"] - [ceil "lux math ceil"] [floor "lux math floor"] [round "lux math round"] @@ -72,8 +69,8 @@ (def: #export (hypotenuse catA catB) (-> Frac Frac Frac) - (root2 (f/+ (pow 2.0 catA) - (pow 2.0 catB)))) + (pow 0.5 (f/+ (pow 2.0 catA) + (pow 2.0 catB)))) (do-template [<type> <mod> <gcd> <lcm> <zero> <*> </> <->] [(def: #export (<gcd> a b) |