7 lines
175 B
Text
7 lines
175 B
Text
stripp=:3 :0
|
|
('/*';'*/') stripp y
|
|
:
|
|
'open close'=. x
|
|
marks=. (+./(-i._1+#open,close)|."0 1 open E. y) - close E.&.|. y
|
|
y #~ -. (+._1&|.) (1 <. 0 >. +)/\.&.|. marks
|
|
)
|