9 lines
266 B
Text
9 lines
266 B
Text
(de rangeexpand (Str)
|
|
(make
|
|
(for S (split (chop Str) ",")
|
|
(if (index "-" (cdr S))
|
|
(chain
|
|
(range
|
|
(format (head @ S))
|
|
(format (tail (- -1 @) S)) ) )
|
|
(link (format S)) ) ) ) )
|