| commit | 6c88d1620882cbab035e9c610e41b031dae74eee | |
| author | Stas Boukarev <stassats@gmail.com> | |
| Sat, 15 Oct 2016 10:29:13 +0000 (15 13:29 +0300) | ||
| committer | Stas Boukarev <stassats@gmail.com> | |
| Sat, 15 Oct 2016 10:29:13 +0000 (15 13:29 +0300) | ||
| tree | fe304df4bc8ff4061a7962a139c9636012958eef | treesnapshot (tar.gz zip) |
| parent | d1e5bd27918fc273bcae49d68898426986e3b931 | commitdiff |
Speed up SQRT on negative numbers.
Instead of creating a complex and then calling complex-sqrt just do
(complex 0 (sqrt (- x))).
Instead of creating a complex and then calling complex-sqrt just do
(complex 0 (sqrt (- x))).
| src/code/irrat.lisp | diffblobblamehistory |