diff options
| -rwxr-xr-x | c.bqn | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -21,9 +21,9 @@ GenFn←{ l←2(⌊⋆⁼)n (D"44")∾2⊥˘⌽8‿8(⊣⥊×´⊸↑)∾⟨⥊0,(11⥊2)⊤1023+l,(2⥊˜0⌈l)⊤n⟩ }‿{ - ⟨⥊D"9A"⟩⊑˜"-"⊐<𝕩 + (⥊¨(D"99")+((↕4)∾6))⊑˜"|-⌈⌊√"⊐<𝕩 }‿{ - (⥊∘D¨"A0"‿"A1"‿"A2"‿"A3")⊑˜"+-×÷"⊐<𝕩 + (⥊¨(D"A0")+↕6)⊑˜"+-×÷⌊⌈"⊐<𝕩 } (D"0B")∾˜∾na⊑⟜fns⊸{𝕎𝕩}¨x } @@ -48,4 +48,4 @@ Compile←{ body←GenFn Parse 𝕩 (1↓∾)(","∾⥊∘⍕)¨ Gen ⟨⟨0‿1⟩/¨¨127-3 ⋄ ⥊<"fn" ⋄ ⥊<body⟩ } -•←Compile "(5-3)×-2+(1÷-(-2)×3)+(1÷3)+1÷2" +•←Compile "((-3)+√(3×3)-4×2×1)÷2×2" |
