[RESOLVED] Convert numbers to roman numerals

anonx

function roman($num) 
 {
     $n = intval($num);
     $result = '';

 $lookup = array('M' => 1000, 'CM' => 900, 'D' => 500, 'CD' => 400,
 'C' => 100, 'XC' => 90, 'L' => 50, 'XL' => 40,
 'X' => 10, 'IX' => 9, 'V' => 5, 'IV' => 4, 'I' => 1);

 foreach ($lookup as $roman => $value) 
 {

     $matches = intval($n / $value);

     $result .= str_repeat($roman, $matches);

     $n = $n % $value;
 }
  return $result;
 }

I want the code to also convert large numbers to an easier to read format. How do I make it convert thousands in Roman numerals like MM to 2xM, MMM to 3xM, MMMM to 4xM, etc? Thanks

anonx

Ok I did it kind of a ghetto way. Is there a better way than this?

function roman($num) 
 {
     // Make sure that we only use the integer portion of the value
     $n = intval($num);
     $result = '';

 $lookup = array('M' => 1000, 'CM' => 900, 'D' => 500, 'CD' => 400,
 'C' => 100, 'XC' => 90, 'L' => 50, 'XL' => 40,
 'X' => 10, 'IX' => 9, 'V' => 5, 'IV' => 4, 'I' => 1);

 foreach ($lookup as $roman => $value) 
 {
     $matches = intval($n / $value);

     $result .= str_repeat($roman, $matches);
     $count = substr_count($result, 'M');
     $n = $n &#37; $value;
 }     
 $repeat = str_repeat("M", $count);
      if ($count > "1") {
     	$result = str_replace($repeat,$count."xM", $result);
     }
 return $result;
 }

anonx

IThat actually doesn't work. Any ideas?

NogDog

Untested:

$result = preg_replace_callback(
   '/^MM+/',
   create_function(
      '$matches',
      'return strlen($matches[0]) . "xM";'
   ),
   $result
);

anonx

Fantastic. Many thanks.