sunng87 · November 18, 2011 02:37 · sunng87 · Nov 19, 2011 · zlatanvasovic · Mar 31, 2013
diff --git a/clspark.lisp b/clspark.lisp
 #!/usr/bin/clisp

 (defconstant ticks (list "▁" "▂" "▃" "▄" "▅" "▆" "▇" "█"))

 (defun spark (data-list)
  (let ((max-value (apply #'max data-list))
        (ticks-length (length ticks)))
    (let ((ticks-unit (/ max-value (- ticks-length 1))))
      (map 'list (lambda (x) (elt ticks (ceiling (/ x ticks-unit)))) data-list))))

 ;; copied from cl-cookbook: https://cl-cookbook.sourceforge.net/strings.html
 (defun split (string spliter)
  (loop for i = 0 then (1+ j)
        as j = (position spliter string :start i)
        collect (subseq string i j)
        while j))

 (format t
        (apply #'concatenate 'string
                 (spark (map 'list #'read-from-string
                             (if *args*
                                 (split (first *args*) #\,)
                               (split (read-line) #\,))))))
	#!/usr/bin/clisp

	(defconstant ticks (list "▁" "▂" "▃" "▄" "▅" "▆" "▇" "█"))

	(defun spark (data-list)
	(let ((max-value (apply #'max data-list))
	(ticks-length (length ticks)))
	(let ((ticks-unit (/ max-value (- ticks-length 1))))
	(map 'list (lambda (x) (elt ticks (ceiling (/ x ticks-unit)))) data-list))))

	;; copied from cl-cookbook: https://cl-cookbook.sourceforge.net/strings.html
	(defun split (string spliter)
	(loop for i = 0 then (1+ j)
	as j = (position spliter string :start i)
	collect (subseq string i j)
	while j))

	(format t
	(apply #'concatenate 'string
	(spark (map 'list #'read-from-string
	(if args
	(split (first args) #\,)
	(split (read-line) #\,))))))