豊福です。

原さん
> でも,次のやり方の方が分かりやすいかも。
 ...
> uniq (l:m:ls)
>   |l == m     = uniq (m:ls)
>   |otherwise  = l:uniq (m:ls) 
> uniq ls       = ls

  なるほどー、読みやすいですね。

  アズパターン使えば

uniq (l:mls@(m:ls))
  |l == m     = uniq mls
  |otherwise  = l:uniq mls 

でしたっけ。
---
                        豊福
                        nobu_toyofuku / nifty.com


--
ML: haskell-jp / quickml.com
使い方: http://QuickML.com/