aboutsummaryrefslogtreecommitdiff
path: root/src/f.bqn
diff options
context:
space:
mode:
Diffstat (limited to 'src/f.bqn')
-rw-r--r--src/f.bqn4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/f.bqn b/src/f.bqn
index 707b7d7d..52ea46ce 100644
--- a/src/f.bqn
+++ b/src/f.bqn
@@ -50,7 +50,7 @@
s ← β‰’Β¨ 𝕩
w ← (0<=)β—ΆβŸ¨β₯Š,⌈˝⍟(=-1Λ™)⟩1βŠ‘Β¨s
h ← βŒˆΛβŽ‰1⍟(0<=) βŠ‘Β¨s
- o ← <βˆ˜βˆΎβŽ‰2 β‰βŸ(0⌈2-=) (h ∾⌜ 𝕨×wΒ¬(-𝕨×≠w)↑1) ↑¨ 𝕩
+ o ← <βˆ˜βˆΎβŽ‰2 β‰βŸ(0⌈2-=) (h β‰βŒœ 𝕨×wΒ¬(-𝕨×≠w)↑1) ↑¨ 𝕩
2 PadH (1βŠΈβŒ½βŠΈβ‰‘β₯Šh)β—ΆβŸ¨PadVMixed,PadV∘>⟩ o
}
@@ -60,13 +60,13 @@
FmtSimple ← (β‰ (0⊸<+≀)+Β΄)∘(β₯Š<@Λ™)β—Ά{ # Depth 1
# All characters
+ r ← =𝕩 β‹„ 𝕩 ↩ 0↓𝕩
k ← ∞⍟(0⊸=) -β‰  c ← Β―1↓≒𝕩
q ← '"'
# Escape quotes in strings (rank 1) and substitute control chars
# with control pictures for other ranks.
CSub ← { 𝕩 + (𝕩(=Γ—'␑'-⊒)@+127) + ('␀'-@)×𝕩<@+32 }
𝕩 ↩ (1β‰ =)β—ΆβŸ¨(1+q=⊒)⊸/,Csub⟩ 𝕩
- r ← =𝕩
(r Enframe 1 PadH PadV)⍟(1β‰ r) ≍ (qβŒΎβŠ‘cβ₯Š(Β―1βŠ‘1∾c)↑'Β·') βˆΎβŽ‰k 𝕩 βˆΎβŽ‰k c-βŠΈβ†‘q
}β€Ώ{
# Not homogeneous, or empty