|
|
@ -140,7 +140,8 @@ |
|
|
|
(car dir)) (play-list (car dir)))] |
|
|
|
[number-list (for/list ([i (length playlist)]) i)] |
|
|
|
[output-list (map cons playlist number-list)]) |
|
|
|
(display output-list) |
|
|
|
(display (string-join (map (λ (xs) (format "~a ~a" (car xs) (cdr xs))) output-list) "\n")) |
|
|
|
(display "\n") |
|
|
|
(let ([input (read-line (current-input-port))]) |
|
|
|
(match (regexp-split #px"\\s" input) |
|
|
|
[(list-rest "add" xs) |
|
|
|