I know I'm too late – but nonetheless …
Factor:
[ [ dup "()" "[]" "{}" [ "" splitting:replace ] tri@ tuck = not ] loop print flush ] each-line
Edit: Thanks to the Alexes from the Factor Discord for xer suggestion!
(command-line) last [ ] group-by [ length 48 + swap ] assoc-map "" concat-as print
I know I'm too late – but nonetheless …
Factor:
[ [ dup "()" "[]" "{}" [ "" splitting:replace ] tri@ tuck = not ] loop print flush ] each-line
Edit: Thanks to the Alexes from the Factor Discord for xer suggestion!