diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-07-21 19:48:24 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-07-21 19:48:24 -0400 |
| commit | 93f75e97685520cdad3afab0134e2f65e5e211e2 (patch) | |
| tree | 790c97ead26f8417b199922136f69397c703ddad /examples/fifty.bqn | |
| parent | b3ecbb5695a5a0a0637c924da0022abca940ffee (diff) | |
Add Insert (˝) 1-modifier
Diffstat (limited to 'examples/fifty.bqn')
| -rw-r--r-- | examples/fifty.bqn | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/examples/fifty.bqn b/examples/fifty.bqn index 593f9e12..ad80a4b2 100644 --- a/examples/fifty.bqn +++ b/examples/fifty.bqn @@ -64,14 +64,14 @@ NewtonsMethod ← (2 ÷˜ ⊢ + ÷)´¨∘(1↓↑) ⥊ ! 1e¯5 > | (7 NewtonsMethod 2) - 2‿1.5‿1.41667‿1.41422‿1.41421‿1.41421‿1.41421 # 11 -InnerProduct ← (+´<˘)∘(ר)⎉1‿2 +InnerProduct ← +˝∘(ר)⎉1‿2 ! (>⟨2‿3⋄4‿1⟩) ≡ (>⟨1‿0⋄¯1‿1⟩) InnerProduct >⟨2‿3⋄6‿4⟩ # 12 CayleysTheorem ← {R←∾⊐⊢ ⋄ (R𝕩) ≡ R ⊏˜⌜˜ <˘R𝕩} ! { t ← 2‿2⊸⥊¨ (⌽2|⌊∘÷⟜2⍟(↕4))¨ 9‿6‿7‿11‿13‿14 - g ← (≠´<˘)∘(∧¨)⎉1‿2⌜˜t + g ← ≠˝∘(∧¨)⎉1‿2⌜˜t CayleysTheorem g } @@ -81,7 +81,7 @@ IntervalIndex ← 1-˜≠∘⊣(⊣↓⊢⍋⊸⊏+`∘>)⍋∘∾ # Or ⍋, of ! 0‿1‿0‿¯1‿4‿4 ≡ "Fi Jay John Morten Roger" IntervalIndex○Words "JD Jd Geoff Anna Scott Zeus" # 15 -CentralLimit ← { 41 ↑ /⁼ (5×↕40) ⍋ +´<˘ •Rand 𝕩⥊21 } +CentralLimit ← { 41 ↑ /⁼ (5×↕40) ⍋ +˝ •Rand 𝕩⥊21 } # 5‿8 ⥊ CentralLimit 10 1e3 # 17 |