OpenEuphoria

Re: Formating numbers using commas?

• Posted by Juergen Luethje <jluethje at gmx.de> Jun 30, 2002
• 509 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))