diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/e.bqn | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -39,6 +39,7 @@ GetHlcl←hlch{(+`≠¨𝕗)⍋(∾𝕗)⊸⊐} hlTag ← {"<tspan class='"∾𝕩∾"'>"}¨ hlcl Explain ← { + 𝕩↩'⋄'¨⌾((𝕩=@+10)⊸/)𝕩 b‿const‿blk‿i‿tok ← 𝕨 ba‿bc‿bo‿bp ← '0'-˜⟨ # For each instruction, number of: "11111000000000010000022000" # Arguments @@ -57,10 +58,11 @@ Explain ← { mb‿mi ← 0‿¯1 ↓¨ m⊸/¨ b‿i la←¯1=na←mb⊏bc na(b⊏˜1+⊣)⌾(la⊸/)˜↩/m - r←+`(mb⊏bo)-na + no←mb⊏bo + r←+`no-na ! 1=¯1⊑r - d←+`⊸×f←0<na - p←((¯1↓r)⍋⊸⊏○⍋(⊏⟜r+⊒))⊸⊏/na + d←(+`no⊸×)⊸×f←0<na + p←((¯1↓r)⍋⊸⊏○⍋(⊏⟜r+⊒))⊸⊏/na¬no f↑˜↩≠p src‿toks‿ii ← tok { |