Build executable

demo.ss

@@ -1,18 +0,0 @@
-#!/usr/bin/env gxi
-
-(export main)
-
-(import :std/iter
-	:std/text/csv
-	:dlozeve/uniplot/lineplot)
-
-(def (main . args)
-  (def csv (read-csv-lines (current-input-port)))
-  (def names (car csv))
-  (def lsts
-    (apply map list
-	   (for/collect ((row csv))
-	     (for/collect ((x row))
-	       (or (string->number x) +nan.0)))))
-  (displayln (line-plot lsts title: (if (null? args) "" (car args))
-			xlabel: (car names) names: (cdr names))))