shaniqua-smeggdrop/procs/a07fa5b8c3bdcc395bb9e27240b191b0f767a294
2023-01-08 17:03:33 -08:00

2 lines
200 B
Plaintext

str {set ret [list]; while {[string length $str]} {regexp {^(((\d{0,2})(,(\d{0,2}))?)?||||)?([^]*)(.*)} $str {} f {} {} {} {} t r; if {$f eq ""} {set f }; lappend ret $f $t; set str $r}; return $ret}