Currently n⍉≍ is faster than ≍⎉(-n)

1 files changed, 1 insertions, 1 deletions

diff --git a/fft.bqn b/fft.bqn
index 2d10ccf..735e92a 100644
--- a/fft.bqn
+++ b/fft.bqn
@@ -15,6 +15,6 @@ Sin‿Cos ← •math
 
   r ← (Cos≍Sin) π × (1↓s) ⥊ -⍟inv ↕⊸÷ l÷2   # Roots of unity
   M ← -˝∘× ≍ +˝∘×⟜⌽                         # Complex multiplication
-  F ← { 𝕨 ⊏⎉1⊸𝕊⍟(1<=𝕨) (+˝˘≍⎉(-=𝕨)𝕨M-˝˘)𝕩 } # FFT loop
+  F ← { 𝕨 ⊏⎉1⊸𝕊⍟(1<=𝕨) (=𝕨)⍉(+˝˘≍𝕨M-˝˘)𝕩 } # FFT loop
   ÷⟜l⍟inv ⥊˘ r F s⊸⥊˘ ≍⟜(0¨)⍟(1==) 𝕩
 }