Re: Formating numbers using commas?
- Posted by Juergen Luethje <jluethje at gmx.de> Jun 30, 2002
- 408 views
Hi Dan, you wrote: [function PrettyNumbers(object aNumber)] Very nice function! I changed it somewhat, so that the principle can be applied more general. Best regards, Juergen ------------------------------------------------------------------->8--- function block_fmt (sequence s, integer delim_char, integer block_len) sequence ret integer counter ret = {} counter = 0 for p = length(s) to 2 by -1 do ret = prepend(ret, s[p]) counter += 1 if counter = block_len then ret = prepend(ret, delim_char) counter = 0 end if end for return prepend(ret, s[1]) end function ------------------------------ include misc.e include machine.e function PrettyNumbers (integer i) return block_fmt(sprint(i), ',', 3) end function function nibbles (integer i) sequence ret integer p ret = reverse(int_to_bits(i, 31)) + '0' p = find('1', ret) if p = 0 then return "0" end if return block_fmt(ret[p..length(ret)], ' ', 4) end function ------------------------------ puts(1, PrettyNumbers(1234) & '\n') puts(1, nibbles(20))