Mercurial > hg > Members > atton > delta_monad
diff delta.hs @ 51:8d9c55bac8b2
Fix typo
author | Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp> |
---|---|
date | Wed, 19 Nov 2014 09:40:04 +0900 |
parents | d654fdecdcd0 |
children | 69a01cc80075 |
line wrap: on
line diff
--- a/delta.hs Wed Nov 19 09:39:25 2014 +0900 +++ b/delta.hs Wed Nov 19 09:40:04 2014 +0900 @@ -67,7 +67,7 @@ bubbleSort xs = bubbleSort remainValue >>= (\xs -> returnSS (sortedValueL : xs) (sortedValueR ++ xs)) where - maxmumValue = maximum xs - sortedValueL = maxmumValue - sortedValueR = replicate (length $ filter (== maxmumValue) xs) maxmumValue - remainValue = filter (/= maxmumValue) xs + maximumValue = maximum xs + sortedValueL = maximumValue + sortedValueR = replicate (length $ filter (== maximumValue) xs) maximumValue + remainValue = filter (/= maximumValue) xs