From b55bb1c48d83af778694dc40f11c69aaa2667c85 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Thu, 23 Jul 2020 19:41:01 -0400 Subject: Some cleanup in (a subset of) 50 functions --- examples/fifty.bqn | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'examples') diff --git a/examples/fifty.bqn b/examples/fifty.bqn index ad80a4b2..093fdfc3 100644 --- a/examples/fifty.bqn +++ b/examples/fifty.bqn @@ -57,21 +57,21 @@ PascalsTriangle ← {>𝕩↑¨0(∾+∾˜)⍟(↕𝕩)⥊1} # 9 GoldenRatio ← +⟜÷´¨∘(1↓↑) ⥊⟜1 -! 1e¯5 > | (GoldenRatio 16) - 1‿2‿1.5‿1.66667‿1.6‿1.625‿1.61538‿1.61905‿1.61765‿1.61818‿1.61798‿1.61806‿1.61803‿1.61804‿1.61803‿1.61803 +! 1e¯5 ∧´∘> | (GoldenRatio 16) - 1‿2‿1.5‿1.66667‿1.6‿1.625‿1.61538‿1.61905‿1.61765‿1.61818‿1.61798‿1.61806‿1.61803‿1.61804‿1.61803‿1.61803 # 10 NewtonsMethod ← (2 ÷˜ ⊢ + ÷)´¨∘(1↓↑) ⥊ -! 1e¯5 > | (7 NewtonsMethod 2) - 2‿1.5‿1.41667‿1.41422‿1.41421‿1.41421‿1.41421 +! 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𝕩} +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 } @@ -89,7 +89,7 @@ SeventeenTwentyNine ← {F: c ← 3⋆˜1+↕200 t ← (<⌜˜↕200) × +⌜˜c d ← ⍷⊸⊐⊸⊔ ⥊t - ⌊´ ⊑¨ (2=≠¨)⊸/ d + ⌊´ ⊑¨ (2=≠)⊸/ d } # ! 1729 ≡ SeventeenTwentyNine⟨⟩ # slow -- cgit v1.2.3