10 lines
266 B
Text
10 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)) ) ) ) )
|