Define a function romanDigitToInt that converts a single Roman digit to a decimal integer. This function takes an argument as a element of the RomanDigit union type and transforms it into the decimal integer using patter matching. This function should have signature: RomanDigit -> int.

let convertRomanToInt romanNumber : int =

match romanNumber with

| 'I' -> 1

| 'V' -> 5

| 'X' -> 10

| 'L' -> 50

| 'C' -> 100

| 'D' -> 500

| 'M' -> 100

let rec romanNumberToInteger romanNumber =

if (String.length romanNumber = 1) then

convertRomanToInt romanNumber.[0]

elif (String.length romanNumber = 0) then  0

else  let atuple = (romanNumber.[0],romanNumber.[1])

let f atuple =  match atuple with

| (f,s) when (convertRomanToInt f) >=(convertRomanToInt s)->(convertRomanToInt f) + (romanNumberToInteger romanNumber.[1..])

| (f,s) when (convertRomanToInt f) < (convertRomanToInt s) -> (convertRomanToInt s) - (convertRomanToInt f) + (romanNumberToInteger romanNumber.[2..])

f atuple

let charToRomanDigit c =

printfn "%c" c

match c with

| 'I' -> 'I'

| 'V' -> 'V'

| 'X' -> 'X'

| 'L' -> 'L'

| 'C' -> 'C'

| 'D' -> 'D'

| 'M' -> 'M'

| _ -> failwith "Invalid Entry"

let stringToNumber str =

let upperDigit (x:string) = x.ToUpper()

let upperString = upperDigit str

printfn "%s" upperString

String.collect (fun c -> sprintf "%c" (charToRomanDigit c)) upperString

let romanNumber = "XIX"

let upperDigit (x:string) = x.ToUpper()

printfn "a: %s" (upperDigit romanNumber)

romanNumber = stringToNumber romanNumber

printfn "\nValue = %d" (romanNumberToInteger romanNumber)

Explanation:

a.s= 230t– 110; 1500 lbc.t= 230s– 110; 1500 lbb.s= 230t+ 110; 1720 lbd.s= 199t– 110; 1280 lb