Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- blocks =: monad define NB. 3 : 0
- body =: 1!:1<y
- lines =: LF chopstring body
- NB. pairs =: I. (> cblk_tilde each lines) + (>)
- pairs =: I. (> cblk_btick each lines) bitor (> cblk_tilde each lines)
- bump =: 2|#pairs
- (bump+#pairs){.!.(#lines) pairs
- _2 [\ pairs
- )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement