home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / lang / c / 20229 < prev    next >
Encoding:
Text File  |  1993-01-27  |  1.5 KB  |  50 lines
  1. Path: sparky!uunet!math.fu-berlin.de!news.th-darmstadt.de!rbg.informatik.th-darmstadt.de!misar
  2. From: misar@rbg.informatik.th-darmstadt.de (Walter Misar)
  3. Newsgroups: comp.lang.c
  4. Subject: Re: Roman Numerals
  5. Date: 26 Jan 1993 19:35:02 GMT
  6. Organization: TH Darmstadt
  7. Lines: 37
  8. Distribution: world
  9. Message-ID: <1k43p6INNjr3@rs2.hrz.th-darmstadt.de>
  10. References: <damatt01.728068722@starbase.spd.louisville.edu>
  11. NNTP-Posting-Host: rbhp58.rbg.informatik.th-darmstadt.de
  12.  
  13. In article <damatt01.728068722@starbase.spd.louisville.edu>, damatt01@starbase.spd.louisville.edu (David A. Mattingly) writes:
  14. > 
  15. > Does anyone know of an integer-to-Roman-numeral converter? I know I saw one in
  16. > a collection of utilities, maybe on simtel20...
  17.  
  18. Get yourself intercal :)
  19.  
  20. In C this routine should do:
  21.  
  22. #include <stdio.h>
  23.  
  24. int roman(int num)
  25. { static char *letters="IVXLCDMA";
  26.   static int x=0;
  27.   int j;
  28.  
  29.   if (num<=0 || num>=4000) return -1;
  30.   x+=2;
  31.   if (num>=10) roman(num/10); 
  32.   x-=2;
  33.   switch(j=num%10)
  34.   { case 4 : putchar(letters[x]);
  35.              putchar(letters[x+1]);
  36.              break;   
  37.     case 9 : putchar(letters[x]);
  38.              putchar(letters[x+2]);
  39.              break;
  40.     default: if (j>=5) j-=5,putchar(letters[x+1]);
  41.              for(;j;j--) putchar(letters[x]);
  42.   }
  43.   return 0;
  44. }
  45.  
  46. -- 
  47. Walter Misar                                | It is impossible to enjoy
  48. misar@rbg.informatik.th-darmstadt.de        | idling thoroughly unless
  49.                                             | one has plenty of work to do.
  50.