gifti

joined 1 year ago
[–] [email protected] 2 points 1 year ago* (last edited 1 year ago)

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!

[–] [email protected] 2 points 1 year ago* (last edited 1 year ago)

Factor:

(command-line) last [ ] group-by [ length 48 + swap ] assoc-map "" concat-as print