From 5426c11ef1255d5b3d710789843d4639172e25c6 Mon Sep 17 00:00:00 2001 From: Dimitri Lozeve Date: Sun, 24 Oct 2021 11:46:15 +0200 Subject: [PATCH] Fix issue (reversed data) when providing a single column --- uniplot.ss | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/uniplot.ss b/uniplot.ss index 53ed9eb..3044d1e 100755 --- a/uniplot.ss +++ b/uniplot.ss @@ -14,7 +14,8 @@ (def csv (read-csv-lines (current-input-port))) (def names (car csv)) (def lsts - (for/fold (lsts (repeat '() (length names))) - ((row (cdr csv))) - (map cons (map parse-number row) lsts))) + (map reverse + (for/fold (lsts (repeat '() (length names))) + ((row (cdr csv))) + (map cons (map parse-number row) lsts)))) (displayln (line-plot lsts title: (if (null? args) "" (car args)) names: names)))