PoshFunctions

2.2.9

Functions/ConvertFrom-RomanNumeral.ps1

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
 function ConvertFrom-RomanNumeral {
    <#
.SYNOPSIS
    Converts a roman numeral to a number.
.DESCRIPTION
    Converts a roman numeral - in the range of I..MMMCMXCIX - to a number.
.PARAMETER Numeral
    A roman numeral in the range I..MMMCMXCIX (1..3,999).
.PARAMETER IncludeInput
    Switch to include input values in the output
.INPUTS
    System.String[]
.OUTPUTS
    System.Int32
.NOTES
    Requires PowerShell version 3.0
.EXAMPLE
    ConvertFrom-RomanNumeral -Numeral MMXIV
.EXAMPLE
    "MMXIV" | ConvertFrom-RomanNumeral
#>

    [CmdletBinding()]
    [OutputType([int])]
    Param
    (
        [Parameter(Mandatory = $true,
            HelpMessage = 'Enter a roman numeral in the range I..MMMCMXCIX',
            ValueFromPipeline = $true,
            Position = 0)]
        [ValidatePattern('(?x)^
                         M{0,3} # Thousands
                (CM|CD|D?C{0,3}) # Hundreds
                (XC|XL|L?X{0,3}) # Tens
                (IX|IV|V?I{0,3}) # Ones
                $')]
        [string[]] $Numeral,

        [switch] $IncludeInput
    )

    begin {
        Write-Verbose -Message "Starting [$($MyInvocation.Mycommand)]"
        # This must be an [ordered] hashtable
        $RomanToDecimal = [ordered]@{
            M  = 1000
            CM = 900
            D  = 500
            CD = 400
            C  = 100
            XC = 90
            L  = 50
            X  = 10
            IX = 9
            V  = 5
            IV = 4
            I  = 1
        }
    }

    process {
        foreach ($curNum in $Numeral) {
            $roman = $curNum + '$'
            $value = 0

            do {
                foreach ($key in $RomanToDecimal.Keys) {
                    if ($key.Length -eq 1) {
                        if ($key -match $roman.Substring(0, 1)) {
                            $value += $RomanToDecimal.$key
                            $roman = $roman.Substring(1)
                            break
                        }
                    } else {
                        if ($key -match $roman.Substring(0, 2)) {
                            $value += $RomanToDecimal.$key
                            $roman = $roman.Substring(2)
                            break
                        }
                    }
                }
            }
            until ($roman -eq '$')
            if ($IncludeInput) {
                New-Object -TypeName psobject -Property ([ordered] @{
                        RomanNumeral = $curNum
                        Number       = $value
                    })
                # write-output 'blah'
            } else {
                $value
            }
        }
    }

    end {
        Write-Verbose -Message "Ending [$($MyInvocation.Mycommand)]"
    }
}