Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

Programming Pushups part II

Name: Anonymous 2015-01-05 12:04

Write a program to compare two version strings.

Example comparisons:

1.05.00.0156 > 1.0.221.9289
1 < 1.0.1
1.0.1 < 1.0.2
1.0.2 < 1.0.3
1.0.3 < 1.1
1.1 < 1.1.1
1.1.1 < 1.1.2
1.1.2 < 1.2

Name: Anonymous 2015-01-05 12:17

let xs = (str1 # split "." >>> map (read :: String -> Int)) `zipWith` (str1 # split "." >>> map (read :: String -> Int)) 
in
 and (\x -> fst x >= snd x) xs

Newer Posts