Перевод Арабских в Римские числа.

[nobody]

Найти не мог, пришлось написать, так что пользуйтесь

<?
function DecToRoman ($num)
{

$romans = array (\'I\', \'IV\', \'V\', \'IX\', \'X\', \'XL\', \'L\', \'XC\', \'C\', \'CD\', \'D\', \'CM\', \'M\');

$arabics = array (1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900, 1000);

$scratch = \'\';

for($i = 12; $i >= 0; $i--)

{

while ($num >= $arabics[$i])

{

$num -= $arabics[$i];

$scratch .= $romans[$i];

}

} 

return $scratch;
}
$a = 1321;
$b = DecToRoman($a);
echo $b;
?>

Ну там вкурсе, типа "Копирайт и все дела"

[Макс]

Найти не мог,

плохо искал
pear::numbers::roman
<?
include_once(\'Numbers/Roman.php\');
echo $arabic = Numbers_Roman::toNumber(\'LX\');
echo "\\n";
echo $roman = Numbers_Roman::toRoman($arabic);
?>