aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xdzref_full7
1 files changed, 6 insertions, 1 deletions
diff --git a/dzref_full b/dzref_full
index 288f24c2..12cc25fd 100755
--- a/dzref_full
+++ b/dzref_full
@@ -338,7 +338,12 @@ Cmp ← βˆ¨β—‹IsArrayβ—Ά{ # No arrays
𝕨(e=0)β—Άeβ€Ώ{
cβ†π•¨Γ—βˆ˜-β—‹(IsArray+=)𝕩
s←≒𝕨 β‹„ t←≒𝕩 β‹„ rβ†π•¨βŒŠβ—‹=𝕩
- l←s{i←+´∧`𝕨=𝕩⋄m←×´i↑𝕨⋄{c↩×-´𝕩⋄m↩mΓ—βŒŠΒ΄π•©}∘(βŠ‘Β¨βŸœπ•¨β€Ώπ•©)⍟(r⊸>)iβ‹„m}β—‹(rβ†‘βŒ½)t
+ l←s{
+ i←+´∧`𝕨=𝕩
+ mβ†Γ—Β΄βŠ‘βŸœπ•¨Β¨β†•i
+ {c↩×-´𝕩⋄m↩mΓ—βŒŠΒ΄π•©}∘(βŠ‘Β¨βŸœπ•¨β€Ώπ•©)⍟(r⊸>)i
+ m
+ }β—‹(((-1+↕r)+β‰ )⊸{βŠ‘βŸœπ•©Β¨π•¨})t
a←β₯Šπ•¨β‹„b←β₯Šπ•©
Trav←(=⟜l)β—Ά{Trav∘(1+𝕩)⍟(0⊸=)a Cmpβ—‹(π•©βŠΈβŠ‘)b}β€Ώc
Trav 0