aboutsummaryrefslogtreecommitdiff
path: root/dzref
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2020-09-05 08:03:14 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2020-09-05 08:49:50 -0400
commiteeac7dd581f7a575cead857ab576beaee2cf5355 (patch)
treedd34d52158ff942c4efa706520aecd4de0fc6966 /dzref
parent15bf1662b196b0a4805dd047dd09c87eb63627ae (diff)
dzaima/BQN now fully supports ⌽
Diffstat (limited to 'dzref')
-rwxr-xr-xdzref20
1 files changed, 2 insertions, 18 deletions
diff --git a/dzref b/dzref
index 9f5a6ecf..4bf766ae 100755
--- a/dzref
+++ b/dzref
@@ -21,19 +21,6 @@ _depthOp_←{
Nat←IsArray◶⟨0⊸≤∧⌊⊸=,0⟩
-_onAxes_←{
- F←𝔽
- (𝔾<≡)∘⊣◶{ # One axis
- ! 1≤=𝕩
- 𝕨F𝕩
- }‿{ # Multiple axes
- ! 1≥=𝕨
- ! 𝕨≤○≠≢𝕩
- R←{(⊑𝕨)F(1↓𝕨)⊸R˘𝕩}⍟{0<≠𝕨}
- 𝕨R𝕩
- }
-}
-
Windows←{
! IsArray 𝕩
! 1≥=𝕨
@@ -44,10 +31,7 @@ Windows←{
𝕨{(∾⟜(𝕨≠⊸↓≢𝕩)∘≢⥊>)<¨⊸⊏⟜𝕩¨s(¬+⌜○↕⊢)⥊𝕨}⍟(0<≠𝕨)𝕩
}
-Rotate ← ⌽ _onAxes_ 0
-
↕ ↩ ↕ ⊘ Windows
-⌽ ↩ ⌽ ⊘ Rotate
#⌜
@@ -99,7 +83,7 @@ ProgressiveIndexOf ← {𝕨⊐○(≍˘⟜OccurrenceCount𝕨⊸⊐)𝕩}
X←Raw←{F:≤4}
{v:
chrs←⟨
- "∾↕⌽⊐⊒∊⍷"
+ "∾↕⊐⊒∊⍷"
""
"⚇"
@@ -122,7 +106,7 @@ X←Raw←{F:≤4}
⍎¨ ⟨
"IsArray ← 0≠≡"
- ⟩∾Mod⟜⥊¨ "↕∾⌽⊐"
+ ⟩∾Mod⟜⥊¨ "↕∾⊐"
# checks if line is a builtin redefinition