Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Already on GitHub? Sign in to your account

V = 5 #4

Merged
merged 1 commit into from Nov 10, 2011
Jump to file or symbol
Failed to load files and symbols.
+1 −1
Split
View
@@ -158,7 +158,7 @@ fromRoman t =
go "X" xs = go "IX" xs
go "IX" ('I':'X':xs) = fmap (+ 9) $ go "V" xs
go "IX" xs = go "V" xs
- go "V" ('V':xs) = fmap (+ 10) $ go "V" xs
+ go "V" ('V':xs) = fmap (+ 5) $ go "V" xs
go "V" xs = go "IV" xs
go "IV" ('I':'V':_) = Just 4
go "IV" xs = go "I" xs