|
33 | 33 |
|
34 | 34 |
|
35 | 35 | (comment
|
36 | | - (= (parse-line "1,1967,Sgt. Pepper's Lonely Hearts Club Band,The Beatles,Rock,\"Rock & Roll,Psychedelic Rock\"") |
| 36 | + (= (parse-line "1,1967,Sgt. Pepper's Lonely Hearts Club Band,The Beatles,Rock,\"Rock & Roll,Psychedelic Rock\"") |
37 | 37 | ["1"
|
38 | 38 | "1967"
|
39 | | - "Sgt. Pepper's Lonely Hearts Club BandThe Beatles" |
| 39 | + "Sgt. Pepper's Lonely Hearts Club Band" |
40 | 40 | "The Beatles"
|
41 | 41 | "Rock"
|
42 | 42 | ["Rock & Roll"
|
|
57 | 57 | Output
|
58 | 58 | {:number \"1\"
|
59 | 59 | :year \"1967\"
|
60 | | - :artist \"The beatles\"p |
61 | | - :album \"Sgt. Pepper's Lonely Hearts Club BandThe Beatles\" |
| 60 | + :artist \"The beatles\" |
| 61 | + :album \"Sgt. Pepper's Lonely Hearts Club Band\" |
62 | 62 | :genre \"Rock\"
|
63 | 63 | :subgenre-xs [\"Rock & Roll\"
|
64 | 64 | \"Psychedelic Rock\"]}"
|
65 | 65 | [xs]
|
66 | | - ) |
| 66 | + (let [[id year album artist genre subgenre-xs] xs] |
| 67 | + {:number id |
| 68 | + :year year |
| 69 | + :album album |
| 70 | + :artist artist |
| 71 | + :genre genre |
| 72 | + :subgenre subgenre-xs})) |
67 | 73 |
|
68 | 74 | (comment
|
69 | 75 | (= (line-vec->line-map ["1"
|
70 | 76 | "1967"
|
71 | | - "Sgt. Pepper's Lonely Hearts Club BandThe Beatles" |
| 77 | + "Sgt. Pepper's Lonely Hearts Club Band" |
72 | 78 | "The Beatles"
|
73 | 79 | "Rock"
|
74 | 80 | ["Rock & Roll"
|
|
0 commit comments