dimitri/uniplot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix issue (reversed data) when providing a single column

Browse source
This commit is contained in:
Dimitri Lozeve 2021-10-24 11:46:15 +02:00
parent 98c6ab537c
commit 5426c11ef1
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
uniplot.ss
View file

@ -14,7 +14,8 @@
(def csv (read-csv-lines (current-input-port))) (def csv (read-csv-lines (current-input-port)))
(def names (car csv)) (def names (car csv))
(def lsts (def lsts
(map reverse
(for/fold (lsts (repeat '() (length names))) (for/fold (lsts (repeat '() (length names)))
((row (cdr csv))) ((row (cdr csv)))
(map cons (map parse-number row) lsts))) (map cons (map parse-number row) lsts))))
(displayln (line-plot lsts title: (if (null? args) "" (car args)) names: names))) (displayln (line-plot lsts title: (if (null? args) "" (car args)) names: names)))