Contents

module RomanNumerals

let numeralThresholds = [(1000, "M");
                            (900,  "CM");
                            (500,  "D");
                            (400,  "CD");
                            (100,  "C");
                            (90,   "XC");
                            (50,   "L");
                            (40,   "XL");
                            (10,   "X");
                            (9,    "IX");
                            (5,    "V");
                            (4,    "IV");
                            (1,    "I")]

let rec toRomanLoop remainder acc thresholds =         
    match thresholds with
        | [] -> acc
        | (threshold, numeral)::xs ->
            if threshold <= remainder then toRomanLoop (remainder - threshold) (acc + numeral) thresholds
            else toRomanLoop remainder acc xs

let roman (arabicNumeral: int) = toRomanLoop arabicNumeral "" numeralThresholds

Version data entries

134 entries across 134 versions & 1 rubygems

Version	Path
trackler-2.2.1.98	tracks/fsharp/exercises/roman-numerals/Example.fs
trackler-2.2.1.97	tracks/fsharp/exercises/roman-numerals/Example.fs
trackler-2.2.1.96	tracks/fsharp/exercises/roman-numerals/Example.fs
trackler-2.2.1.95	tracks/fsharp/exercises/roman-numerals/Example.fs
trackler-2.2.1.94	tracks/fsharp/exercises/roman-numerals/Example.fs
trackler-2.2.1.93	tracks/fsharp/exercises/roman-numerals/Example.fs
trackler-2.2.1.92	tracks/fsharp/exercises/roman-numerals/Example.fs
trackler-2.2.1.91	tracks/fsharp/exercises/roman-numerals/Example.fs
trackler-2.2.1.90	tracks/fsharp/exercises/roman-numerals/Example.fs
trackler-2.2.1.89	tracks/fsharp/exercises/roman-numerals/Example.fs
trackler-2.2.1.88	tracks/fsharp/exercises/roman-numerals/Example.fs
trackler-2.2.1.87	tracks/fsharp/exercises/roman-numerals/Example.fs
trackler-2.2.1.86	tracks/fsharp/exercises/roman-numerals/Example.fs
trackler-2.2.1.85	tracks/fsharp/exercises/roman-numerals/Example.fs
trackler-2.2.1.84	tracks/fsharp/exercises/roman-numerals/Example.fs
trackler-2.2.1.83	tracks/fsharp/exercises/roman-numerals/Example.fs
trackler-2.2.1.82	tracks/fsharp/exercises/roman-numerals/Example.fs
trackler-2.2.1.81	tracks/fsharp/exercises/roman-numerals/Example.fs
trackler-2.2.1.80	tracks/fsharp/exercises/roman-numerals/Example.fs
trackler-2.2.1.79	tracks/fsharp/exercises/roman-numerals/Example.fs