aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2020-11-01 21:16:22 -0500
committerMarshall Lochbaum <mwlochbaum@gmail.com>2020-11-01 21:16:22 -0500
commit95d9214df12c65416956a9b40b6792eafa27304f (patch)
treec6d393de33ca9bc2150941fc038309730d664999 /src
parent0590ac9d49c72eba95ff1d4cc6dc74823ab7a4c1 (diff)
Sort of handle functions by treating returns other than the last as expression separators
Diffstat (limited to 'src')
-rw-r--r--src/e.bqn4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/e.bqn b/src/e.bqn
index 9a52307b..5ade575b 100644
--- a/src/e.bqn
+++ b/src/e.bqn
@@ -44,7 +44,7 @@ Explain ← {
ba‿bc‿bo‿bp ← '0'-˜⟨ # For each instruction, number of:
"11111000000000010000022000" # Arguments
"000//232323223102303200121" # Stack values consumed
- "11111111111111011101111111" # Stack values output
+ "11111111111111011101111110" # Stack values output
"00000110111001001101000100" # Position determiner
m ← { # Mask of instruction starts
@@ -58,7 +58,7 @@ Explain ← {
mb‿mi ← 0‿¯1 ↓¨ m⊸/¨ b‿i
la←¯1=na←mb⊏bc
na(b⊏˜1+⊣)⌾(la⊸/)˜↩/m
- no←mb⊏bo
+ no←1⌾(¯1⊸⊑)mb⊏bo
r←+`no-na
! 1=¯1⊑r
d←(+`no⊸×)⊸×f←0<na