codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
-- Written by Mohit Jain -- Problem statement: Print list of roman numerals from 1 to 50 main = solveForList [1..50] solveForList = putStrLn . unlines . map toRomanString toRomanString n = toRomanTens t ++ toRomanUnits u where t = n `div` 10 u = n `mod` 10 toRomanTens x = romanTensList !! x toRomanUnits x = romanUnitsList !! x romanUnitsList = ["", "I", "II", "III", "IV", "V", "VI", "VII", "VIII", "IX"] romanTensList = ["", "X", "XX", "XXX", "XL", "L"]
Private
[
?
]
Run code
Submit