Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: George McGinn on April 16, 2021, 11:03:32 am

Title: Roman Numeral Decode (Rosetta Code Task)
Post by: George McGinn on April 16, 2021, 11:03:32 am
This program I originally submitted to Rosetta in 2018 for the Roman Numeral Decode task under TechBASIC.

Here is the QB64 Version:

Code: QB64: [Select]
  1. '*** Roman Numerals Decoder
  2. '***
  3. '*** By George McGinn (03/30/2018)
  4. '***    Modified on 04/16/2021 From TechBASIC to QB64
  5. '***    NOTE: This program was originally submitted to the Rosetta Code
  6. '***          website as part of a solution to one of their challenges
  7. '***          (http://www.rosettacode.org/wiki/Roman_numerals/Decode#TechBASIC)
  8.  
  9. SCREEN _NEWIMAGE(400, 600, 32)
  10.  
  12.  
  13.  
  14. Main:
  15. '------------------------------------------------
  16. ' CALLS THE romToDec FUNCTION WITH THE ROMAN
  17. ' NUMERALS AND RETURNS ITS DECIMAL EQUIVELENT.
  18. '
  19.    PRINT "ROMAN NUMERAL TO DECIMAL CONVERSION"
  20.    PRINT: PRINT
  21.  
  22.    PRINT "MDCCIV  = "; romToDec("MDCCIV") '1704
  23.    PRINT "MCMXC   = "; romToDec("MCMXC") '1990
  24.    PRINT "MMVIII  = "; romToDec("MMVIII") '2008
  25.    PRINT "MDCLXVI = "; romToDec("MDCLXVI") '1666
  26.    PRINT: PRINT
  27.    PRINT "Here are other solutions not from the TASK:"
  28.    PRINT "MCMXCIX = "; romToDec("MCMXCIX") '1999
  29.    PRINT "XXV     = "; romToDec("XXV") '25
  30.    PRINT "CMLIV   = "; romToDec("CMLIV") '954
  31.    PRINT "MMXI    = "; romToDec("MMXI") '2011
  32.    PRINT "MMIIIX  = "; romToDec("MMIIIX") '2011
  33.    PRINT: PRINT
  34.    PRINT "2011 can be written either as MMXI or MMIIIX"
  35.    PRINT "With the IX = 9, MMIIIX is also 2011."
  36.    PRINT "2011 IS CORRECT (MM=2000 + II = 2 + IX = 9)"
  37.  
  38.    END
  39.  
  40.  
  41.  
  42. FUNCTION romToDec (roman AS STRING)
  43. '------------------------------------------------------
  44. ' FUNCTION THAT CONVERTS ANY ROMAN NUMERAL TO A DECIMAL
  45. '
  46.     prenum = 0: num = 0
  47.     LN = LEN(roman)
  48.     FOR i = LN TO 1 STEP -1
  49.         x$ = MID$(roman, i, 1)
  50.         n = 1000
  51.         SELECT CASE x$
  52.                CASE "M": n = n / 1
  53.                CASE "D": n = n / 2
  54.                CASE "C": n = n / 10
  55.                CASE "L": n = n / 20
  56.                CASE "X": n = n / 100
  57.                CASE "V": n = n / 200
  58.                CASE "I": n = n / n
  59.                CASE ELSE: n = 0
  60.         END SELECT
  61.         IF n < prenum THEN num = num - n ELSE num = num + n
  62.         prenum = n
  63.    NEXT i
  64.  
  65.    romToDec = num
  66.  
  68.  
Title: Re: Roman Numeral Decode (Rosetta Code Task)
Post by: johnno56 on April 16, 2021, 08:23:54 pm
Interesting. I think that your answer for 2011 (MMXI) may be the simplest correct answer. Using MMIIIX (200+II+IX) requires too much thought. Adding 2 to 9 does indeed result in 11 but so does 3 and 8 or 4 and 7 or 5 and 6. In all of my experience in reading Roman numerals I have never had to think about 'adding' numbers. I look for thousands, hundreds, fifties, tens and singles. Although technically MMIIIX may be correct, in my mind anyway, MMXI is the easiest.... Just my opinion...
Title: Re: Roman Numeral Decode (Rosetta Code Task)
Post by: euklides on April 17, 2021, 08:50:13 am
MMIIIX (200+II+IX) if NOT correct !!!

There can be only one character coming in reduction of the following one:
4 = IV
9 = IX
90 = XC
49=IL
99=IC
400 = CD
900 = CM aso

Apart from the number coming in reduction before the following one (here IX=9), the letters must follow the decreasing order of their value.

The value MMIIIX is a fancy, because then two "I" are smaller as X !!!
 2000 + 2 + 9   ---> oh ! 2 is less than 9 !!! Not possible in roman numeral !!!
2011= 2000+10+1 = MMXI
Always, yes, always, from biggest to smalest !!!












Title: Re: Roman Numeral Decode (Rosetta Code Task)
Post by: George McGinn on April 17, 2021, 09:21:04 am
Actually, the program is correct as the code is interpreting MMIIIX as 2000 + 2 + 9 = 2011!

So the program is right. But I didn't want to write a book about the program. I guess I needed to explain how Roman Numerals work for those not versed in them.

To read for yourself, go to: https://en.wikipedia.org/wiki/Roman_numerals

The actual way or variants of how the Romans used their numbering system allowed for smaller numbers to appear anywhere.

Most people do not realize that when the Romans first used their numbering system, there was no "reduction" system in place. So the way you'd interpret these is to add all the representations from left to right. (M+M+I+I+I+X = 1000+1000+1+1+1+10 = 2013 is just as valid an interpretation as M+M+I+I+IX or 1000+1000+1+1+9
 
When the Roman's came up with "reduction," it was not exclusively used. Both systems were in use during the entire Roman Empire.

My program can be made to add the Roman Numerals the original way by adding a switch to bypass the "additive subtraction."


Quote from: euklides on April 17, 2021, 08:50:13 am
MMIIIX (200+II+IX) if NOT correct !!!

There can be only one character coming in reduction of the following one:
4 = IV
9 = IX
90 = XC
49=IL
99=IC
400 = CD
900 = CM aso

Apart from the number coming in reduction before the following one (here IX=9), the letters must follow the decreasing order of their value.

The value MMIIIX is a fancy, because then two "I" are smaller as X !!!
 2000 + 2 + 9   ---> oh ! 2 is less than 9 !!! Not possible in roman numeral !!!
2011= 2000+10+1 = MMXI
Always, yes, always, from biggest to smalest !!!
Title: Re: Roman Numeral Decode (Rosetta Code Task)
Post by: johnno56 on April 18, 2021, 05:50:22 am
Which ever method that is used, I can tell you that my grandkids think it's fascinating, that I can read the the release dates on older movies....
Title: Re: Roman Numeral Decode (Rosetta Code Task)
Post by: euklides on April 19, 2021, 05:58:38 am
It is the role of the grandfather, who like an alchemist is knowing many secrets, to explain to his grandchildren the mysterious mechanism of Roman numerals !!!
Text Only | Text with Attachments