Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- lastrev rs b = maximum [r | r <- rs, length r >= l && take l r == b] where l = length b
- --*Main> lastrev ["1.1", "1.2", "1.3", "1.3.2.1", "1.3.2.3", "1.3.2.4", "1.3.4.1", "1.4", "1.5"] "1.3.2"
- --"1.3.2.4"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement