Haskellをラクガク

2006-09-12Preluedeってステキな名前

4.4 練習問題2 02:40

import List

main = do   cs <- getContents
            putStr $ unlines $ map head $ group $ lines cs

text.txt

111
111
222
333
333
2222
>uniq < text.txt
111
222
333
2222

JayJay2012/12/22 21:57Touchdown! That's a really cool way of putintg it!

aubsczrzzyaubsczrzzy2012/12/23 11:512HuYSu <a href="http://qtjminqlxjyt.com/">qtjminqlxjyt</a>

rzfsrpnfibrzfsrpnfib2012/12/23 16:30sIj6DJ , [url=http://cirazwpffaen.com/]cirazwpffaen[/url], [link=http://tbymkkilzpce.com/]tbymkkilzpce[/link], http://jzmqrkaphlal.com/

ccdijlccdijl2012/12/26 07:28zgsmp4 , [url=http://qojvefeflayn.com/]qojvefeflayn[/url], [link=http://kuwdhxkjfhee.com/]kuwdhxkjfhee[/link], http://voeavzmjvjwv.com/