Larry Smith Technically, there is no such thing. A "number" is a mathematical abstraction signifying a particular value (e.g. integers), a "numeral" is the set of glyphs used in a particular language to express a number. Hence, MDCLXVI and such consist of Roman Numerals, not "Roman numbers".
hello plz u can help me now
wdb:
my approach
namespace eval roman {}
proc roman::under5 {x} {
if {$x == 4} {
return IV
} else {
string repeat I $x
}
}
proc roman::under10 {x} {
if {$x == 9} {
return IX
} elseif {$x >= 5} {
set d [expr {$x - 5}]
return V[under5 $d]
} else {
under5 $x
}
}
proc roman::under50 {x} {
if {$x == 49} {
return IL
} elseif {$x >= 40} {
set d [expr {$x - 40}]
return XL[under10 $d]
} elseif {$x >= 10} {
set d [expr {$x-10}]
return X[under50 $d]
} else {
under10 $x
}
}
proc roman::under100 {x} {
if {$x == 99} {
return IC
} elseif {$x >= 90} {
set d [expr {$x - 90}]
return XC[under10 $d]
} elseif {$x >= 50} {
set d [expr {$x - 50}]
return L[under50 $d]
} else {
under50 $x
}
}
proc roman::under500 {x} {
if {$x == 499} {
return ID
} elseif {$x >= 490} {
set d [expr {$x - 490}]
return XD[under100 $d]
} elseif {$x >= 400} {
set d [expr {$x - 400}]
return CD[under100 $d]
} elseif {$x >= 100} {
set d [expr {$x - 100}]
return C[under500 $d]
} else {
under100 $x
}
}
proc roman::under1000 {x} {
if {$x == 999} {
return IM
} elseif {$x >= 990} {
set d [expr {$x - 990}]
return XM[under10 $d]
} elseif {$x >= 900} {
set d [expr {$x - 900}]
return CM[under100 $d]
} elseif {$x >= 500} {
set d [expr {$x - 500}]
return D[under1000 $d]
} else {
under500 $x
}
}
proc roman::roman {x} {
if {$x >= 1000} {
set d [expr {$x - 1000}]
return M[roman $d]
} else {
under1000 $x
}
}
namespace eval roman {namespace export roman}
namespace import roman::roman