-
Notifications
You must be signed in to change notification settings - Fork 3
/
readme.lisp
102 lines (73 loc) · 2.56 KB
/
readme.lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
(defparameter *head*
"~
Decimals
========
**A decimal number parser and formatting package for Common Lisp**
Introduction
------------
This Common Lisp package offers functions for parsing and formatting
decimal numbers. Package's main interface are functions
`parse-decimal-number` and `format-decimal-number`. The former is for
parsing strings for decimal numbers and the latter for pretty-printing
them as strings. See section _The Programming Interface_ for the full
documentation of the public programming interface. Here are some
examples.
### Parsing
DECIMALS> (parse-decimal-number \"0.24\")
6/25
DECIMALS> (parse-decimal-number \"−12,345\"
:decimal-separator #\\,
:negative-sign #\\−)
-2469/200
### Formatting
DECIMALS> (format-decimal-number -100/6 :round-magnitude -3)
\"-16.667\"
(\"-\" \"16\" \".\" \"667\")
DECIMALS> (loop for e from -5 upto 5
do (print (format-decimal-number
(expt 10 e) :round-magnitude -5
:decimal-separator \",\"
:integer-minimum-width 7
:integer-group-separator \" \"
:fractional-minimum-width 7
:fractional-group-separator \" \")))
\" 0,000 01\"
\" 0,000 1 \"
\" 0,001 \"
\" 0,01 \"
\" 0,1 \"
\" 1 \"
\" 10 \"
\" 100 \"
\" 1 000 \"
\" 10 000 \"
\"100 000 \"
NIL
DECIMALS> (loop for m from -3 upto 3
do (print (format-decimal-number
2000/3 :round-magnitude m
:integer-minimum-width 4
:fractional-minimum-width 4)))
\" 666.667\"
\" 666.67 \"
\" 666.7 \"
\" 667 \"
\" 670 \"
\" 700 \"
\"1000 \"
NIL
License and Source Code
-----------------------
Author: Teemu Likonen <<tlikonen@iki.fi>>
OpenPGP key: [6965F03973F0D4CA22B9410F0F2CAE0E07608462][PGP]
License: [Creative Commons CC0][CC0] (public domain dedication)
The source code repository: <https://github.com/tlikonen/cl-decimals>
[PGP]: http://www.iki.fi/tlikonen/pgp-key.asc
[CC0]: https://creativecommons.org/publicdomain/zero/1.0/legalcode
The Programming Interface
-------------------------
")
(load "print-doc.lisp")
(load "decimals.lisp")
(format t *head*)
(print-doc:print-doc "DECIMALS")