diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-11-01 21:16:22 -0500 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-11-01 21:16:22 -0500 |
| commit | 95d9214df12c65416956a9b40b6792eafa27304f (patch) | |
| tree | c6d393de33ca9bc2150941fc038309730d664999 /src | |
| parent | 0590ac9d49c72eba95ff1d4cc6dc74823ab7a4c1 (diff) | |
Sort of handle functions by treating returns other than the last as expression separators
Diffstat (limited to 'src')
| -rw-r--r-- | src/e.bqn | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 |
