aboutsummaryrefslogtreecommitdiff
path: root/spec
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2020-07-04 13:22:15 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2020-07-04 13:22:15 -0400
commit608c9e46e0d0e77897badf9c9267fc575afe7072 (patch)
tree0a22e636e0ba516a2fe0b531fd5637268c29bdeb /spec
parent4666f84cd9ee71d35c025cb6f5f9a275549a6a5d (diff)
More primitives fully supported by dzaima/BQN
Diffstat (limited to 'spec')
-rwxr-xr-xspec/dzref19
1 files changed, 2 insertions, 17 deletions
diff --git a/spec/dzref b/spec/dzref
index 9427dfd2..11106297 100755
--- a/spec/dzref
+++ b/spec/dzref
@@ -1,10 +1,8 @@
#!/usr/bin/env dbqn
impl ← "β—Ά ← {𝕨((𝕨𝔽𝕩)βŠ‘π•˜){𝔽}𝕩}
-√ ← β‹†βŸœ(Γ·2) ⊘ (β‹†βŸœΓ·Λœ)
∧ ← Γ—
∨ ← (+-Γ—)
-| ← Γ—βŸœΓ— ⊘ {𝕩-π•¨Γ—βŒŠπ•©Γ·π•¨}
⍝⌜
@@ -64,7 +62,6 @@ _iterate_←{
βŽ‰ ← _rankOp_
⍟ ← _iterate_
-˘ ← βŽ‰Β―1
⍝⌜
@@ -83,17 +80,6 @@ _onAxes_←{
}
}
-SelSub←{
- ! IsArray 𝕨
- ! ∧´β₯ŠIntΒ¨ 𝕨
- ! ∧´β₯Š 𝕨 (β‰₯⟜-∧<) ≠𝕩
- 𝕨↩𝕨+(≠𝕩)×𝕨<0
- c←1Γ—Β΄s←1 Cell 𝕩
- βŠ‘βŸœ(β₯Šπ•©)Β¨(c×𝕨)+⌜sβ₯Šβ†•c
-}
-Select←ToArray⊸(SelSub _onAxes_ 1)
-⊏ ← 0⊸Select ⊘ Select
-
Take←{
T←{
! Int 𝕨
@@ -129,7 +115,6 @@ Replicate ← {0<≠≒𝕨}β—Ά(β₯ŠΛœβŸœβ‰ Rep⊒)β€Ώ{!𝕨=○≠𝕩⋄𝕨Rep
↕ ↩ ↕ ⊘ Windows
⌽ ← Reverse ⊘ Rotate
-/ ← Indices ⊘ Replicate
⍝⌜
@@ -235,8 +220,8 @@ ProgressiveIndexOf ← {π•¨βŠβ—‹(β‰Λ˜βŸœOccurrenceCountπ•¨βŠΈβŠ)𝕩}
{
chrsβ†βŸ¨
- "!√∧∨|βˆΎβ†‘β†•βŒ½β‰/β‹β’βŠβŠβŠ’βˆŠβ·βŠ”"
- "˘"
+ "!βˆ§βˆ¨βˆΎβ†‘β†•βŒ½β‰β‹β’βŠβŠ’βˆŠβ·βŠ”"
+ ""
"βŽ‰βš‡βŸβ—Ά"
⟩
nc ← β‰ Β¨chrs