elisp to put commas a number?

elisp to put commas a number?

[The Quiet Center]

Hello, does anyone have any code to put commas in a number?

The emacswiki code <http://www.emacswiki.org/cgi-bin/wiki/
ElispCookbook#toc10>
did not work.

Here is an example of what I want:

(commify (* 130 70491))
9,163,830

Re: elisp to put commas a number?

[Rupert Swarbrick]

[Dammit, hit 'r' rather than 'f' in Gnus. Sorry "The Quiet Center"
that you'll get this twice]

The Quiet Center <thequietcenter@gmail.com> writes:
> Hello, does anyone have any code to put commas in a number?

> ...

> Here is an example of what I want:
>
> (commify (* 130 70491))
> 9,163,830


'Ow about this?

(defun commify (n &optional comma-char)

 (unless comma-char (setq comma-char ","))

 (with-temp-buffer
   (insert (format "%s" n))
   (while (> (- (point)
                (line-beginning-position))
             (if (>= n 0) 3 4))
     (backward-char 3)
     (insert comma-char)
     (backward-char 1))
   (buffer-string)))


Try:

(commify (* 130 70491) ".")
(commify (* -13 70491))


I just wrote it, so fingers crossed it does the right thing! Not sure
whether there's a way to find the locale's choice for comma-char,
though.


Rupert

RE: elisp to put commas a number?

[Herbert Euler]

How about this one?

(defun commify (n)
  (let ((list '()))
    (while (> n 0)
      (setq list (cons (format "%d" (% n 1000)) list)
	    n (/ n 1000)))
    (mapconcat (lambda (s) s) list ",")))

Regards,
Guanpeng Xu
_________________________________________________________________
Connect to the next generation of MSN Messenger 
http://imagine-msn.com/messenger/launch80/default.aspx?locale=en-us&source=wlmailtagline

RE: elisp to put commas a number?

[Herbert Euler]

Sorry, that doesn't cover the case of n = 0.  This one:

(defun commify (n)
  (if (= n 0)
      "0"
    (let ((list '()))
      (while (> n 0)
	(setq list (cons (format "%d" (% n 1000)) list)
	      n (/ n 1000)))
      (mapconcat (lambda (s) s) list ","))))

Regards,
Guanpeng Xu
_________________________________________________________________
Connect to the next generation of MSN Messenger 
http://imagine-msn.com/messenger/launch80/default.aspx?locale=en-us&source=wlmailtagline