<?php
/* Ten skrypt zamienia liczbe arabska na liczbe rzymska
   This script convert arabic number to roman number
   WWW: http://miracle7.homeip.net/ | http://miracle7.info/
*/ 

   function rzymska($liczba) {
   $t_jednosci = array('', 'I', 'II', 'III', 'IV', 'V', 'VI', 'VII', 'VIII', 'IX');
   $t_dziesietnych = array ('', 'X', 'XX', 'XXX', 'XL', 'L', 'LX', 'LXX', 'LXXX', 'XC');
   $t_setek = array ('', 'C', 'CC', 'CCC', 'CD', 'D', 'DC', 'DCC', 'DCCC', 'XM');

   $dzielnik = 1000;                     // bo pamięć jest tania jak barszcz ;)
   $calosc = floor($liczba/$dzielnik);   // zaokrąglanie w dół
   $reszta = ($liczba % $dzielnik);      // operator modulo
   $dlugosc=strlen($liczba);             // dlugość liczby

   if ($dlugosc > 2) {                   // jezeli liczba wieksza niz 99
    $jednosci = substr ($liczba, strlen($liczba)-1, 1);
    $dziesiatki = substr ($liczba, strlen($liczba)-2, 1);
    $setki = substr ($liczba, strlen($liczba)-3, 1);
   } elseif ($dlugosc == 2) {           // jezeli liczba jest mniejsza niz 100 i wieksza niz 9
     $jednosci = substr ($liczba, strlen($liczba)-1, 1);
     $dziesiatki = substr ($liczba, strlen($liczba)-2, 1);
   } else {                             // jezeli liczba jest mniejsza niz 10
     $jednosci = substr ($liczba, strlen($liczba)-1, 1);
   }

   if ($calosc > 0) {                   // jezeli calosc jest dodatnia liczba
     for ($i=1; $i <=$calosc; $i++) {
      print ("M");
     }
        print "$t_setek[$setki]";
        print "$t_dziesietnych[$dziesiatki]";
        print "$t_jednosci[$jednosci]";
   } else {
        print "$t_setek[$setki]";
        print "$t_dziesietnych[$dziesiatki]";
        print "$t_jednosci[$jednosci]";
   }
}

/* 
   Przyklad
   Example
*/

print "Liczba 2149 : ";
rzymska(2149);

?>