римские цифры

From

Yaroslav Pernerovsky (2:4623/35.123)

To

Illarion Kovalchuk

Date

2002-07-29T09:08:11Z

Area

RU.ALGORITHMS

│[_Вторник 05 Maрта 2002 года_][_19:44_]
│[_Illarion Kovalchuk_ -> _All_]-[римские цифры]

 IK> Поделитесь алгоритмом записи числа в римских цифрах.



#!/usr/bin/perl

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

$cnt=1999;$rn="-> ";

$n=12;
while($cnt>0){
    while($nums[$n]>$cnt){$n--;}
    while($nums[$n]<=$cnt){
 $rn.=$nums[$n+13];
 $cnt-=$nums[$n];
    };
}
print "\n",$rn,"\n";




                           Bcеx благ желает Yaroslav

  np: silence (Winamp is not active ;-)

--- [_Empty :)_] --- [_Deeper_Dungeon_TEAM_] --- [_My Guitar_] ---
 * Origin: Want problem ?  Get Norton ! (2:4623/35.123)