gifti@programming.devtoProgramming Challenges@programming.dev•[Easy] String Compression
2·
11 months agoFactor:
(command-line) last [ ] group-by [ length 48 + swap ] assoc-map “” concat-as print
Factor:
(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!