Roman Numeral Function

[JMB]

Hi!

Here there is a slightly modified version of Didiers's A→R, that also give good results for N between 1 and 3999

Code:

EXPORT A→R(N)
BEGIN
  LOCAL r:={"M","CM","D","CD","C","XC","L","XL","X","IX","V","IV","I"};
  LOCAL d:={1000,900,500,400,100,90,50,40,10,9,5,4,1};
  LOCAL j,s:="";

  FOR j FROM 1 TO 13 DO
    WHILE N≥d(j) DO s:=s+r(j); N:=N-d(j); END;
  END;
  RETURN s;
END;