30 lines
847 B
Common Lisp
30 lines
847 B
Common Lisp
|
|
;; (print (sprintf "%.2f" (list 1.25)))
|
|
|
|
;; (print (sprintf "%.2f" '(1.23456)))
|
|
;; (print (sprintf "%d" '(10000000)))
|
|
|
|
(define q 1.23)
|
|
(print (sprintf "%+.2f%%" (list q)))
|
|
|
|
(define q -1.23)
|
|
(print (sprintf "%+.2f%%" (list q)))
|
|
|
|
(define term-rst-esc "\x1B[0m")
|
|
(define term-red-esc '"\x1B[31m")
|
|
(define term-green-esc "\x1B[32m")
|
|
|
|
(defun term-red (str) (sprintf (+ term-red-esc str term-rst-esc)))
|
|
|
|
(print (+ (term-red (sprintf "%.2f" (list 1.11))) " "
|
|
(term-green (sprintf "%.2f" (list 1.11))) " "
|
|
(term-blue (sprintf "%.2f" (list 1.11))) " "
|
|
(term-yellow (sprintf "%.2f" (list 1.11))) " "
|
|
))
|
|
|
|
;; (define q_change_str (sprintf "%+.2f %%" (list q)))
|
|
;; (if (>= q_change 0.0)
|
|
;; (define q_change_str (term-green q_change_str))
|
|
;; (define q_change_str (term-red q_change_str)))
|
|
|