aboutsummaryrefslogtreecommitdiff
path: root/dzref
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2020-09-13 15:25:08 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2020-09-13 15:25:08 -0400
commitd784a9cfb449b4dd9878713f6eb12a814142765f (patch)
tree642af30eb1c0c73234137fe37ddddecaff7c70fd /dzref
parent55dd46871b8b4d7e1fdd44fc819cc649edade6a8 (diff)
Add monadic «» to dzref
Diffstat (limited to 'dzref')
-rwxr-xr-xdzref4
1 files changed, 2 insertions, 2 deletions
diff --git a/dzref b/dzref
index a8e47626..aeea29f4 100755
--- a/dzref
+++ b/dzref
@@ -1,8 +1,8 @@
#!/usr/bin/env dbqn
impl ← "
-» ← {!𝕨1⊸⌊⊸≤○=𝕩 ⋄ ( ≠𝕩)↑𝕨∾𝕩}
-« ← {!𝕨1⊸⌊⊸≤○=𝕩 ⋄ (-≠𝕩)↑𝕩∾𝕨}
+» ← {!1≤=𝕩 ⋄ ( ≠𝕩)↑(1↑0↑𝕩)∾𝕩} ⊘ {!𝕨1⊸⌊⊸≤○=𝕩 ⋄ ( ≠𝕩)↑𝕨∾𝕩}
+« ← {!1≤=𝕩 ⋄ (-≠𝕩)↑𝕩∾(1↑0↑𝕩)} ⊘ {!𝕨1⊸⌊⊸≤○=𝕩 ⋄ (-≠𝕩)↑𝕩∾𝕨}
#⌜
# LAYER 4: Operators