aboutsummaryrefslogtreecommitdiff
path: root/spec/dzref
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2020-06-29 19:35:05 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2020-06-29 19:35:05 -0400
commitfba84369ae9fe7bdf0fa19c85076a52dbe2ce058 (patch)
treef4901474848e17283b6c2398113974e40e9b88bb /spec/dzref
parentc689914c958fe6ec978ff1996a216cbd3f7313d9 (diff)
First two layers of dzaima+reference testing
Diffstat (limited to 'spec/dzref')
-rwxr-xr-xspec/dzref4
1 files changed, 2 insertions, 2 deletions
diff --git a/spec/dzref b/spec/dzref
index 4a4849f1..6efe53f4 100755
--- a/spec/dzref
+++ b/spec/dzref
@@ -11,11 +11,10 @@ impl ← "β—Ά ← {𝕨((𝕨𝔽𝕩)βŠ‘π•˜){𝔽}𝕩} ⍝ LIMITED to num
⟜ ← {(π•¨βŠ£π•©)𝔽𝔾𝕩} ⍝ {(𝔽{𝕨𝔽𝔾𝕩}𝔾)˜˜} ⍝ {F←𝔽 β‹„ G←𝔾 β‹„ {𝕨F G𝕩}˜˜} ⍝ {𝕨𝔽𝔾𝕩}˜˜
⍝ LIMITED to numeric arguments for scalar cases
-√ ← 2⊸√ ⊘ (β‹†βŸœΓ·Λœ)
+√ ← β‹†βŸœ(Γ·2) ⊘ (β‹†βŸœΓ·Λœ)
∧ ← Γ—
∨ ← (+-Γ—)
Β¬ ← 1+-
-| ← Γ—βŸœΓ— ⊘ {𝕩-π•¨Γ—βŒŠπ•©Γ·π•¨}
< ← {⟨⟩β₯ŠβŸ¨π•©βŸ©} ⊘ (Β¬β‰€Λœ)
> ← (¬≀)
β‰₯ ← !∘0 ⊘ (β‰€Λœ)
@@ -23,6 +22,7 @@ impl ← "β—Ά ← {𝕨((𝕨𝔽𝕩)βŠ‘π•˜){𝔽}𝕩} ⍝ LIMITED to num
Length ← (0<0βŠ‘β‰’)β—ΆβŸ¨1β‹„0βŠ‘βŠ’βŸ©βˆ˜β‰’
β‰  ← Length ⊘ (¬∘=)
Γ— ↩ 0⊸(<->) ⊘ Γ—
+| ← Γ—βŸœΓ— ⊘ {𝕩-π•¨Γ—βŒŠπ•©Γ·π•¨}
_eachm←{
r←β₯Šπ•© β‹„ F←𝔽