Mercurial > hg > Members > atton > delta_monad

comparison delta.hs @ 51:8d9c55bac8b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix typo
author Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
date Wed, 19 Nov 2014 09:40:04 +0900
parents d654fdecdcd0
children 69a01cc80075
comparison
equal deleted inserted replaced
50:06f3ca01572d 51:8d9c55bac8b2
65 bubbleSort :: [Int] -> Delta [Int] 65 bubbleSort :: [Int] -> Delta [Int]
66 bubbleSort [] = returnS [] 66 bubbleSort [] = returnS []
67 bubbleSort xs = bubbleSort remainValue >>= (\xs -> returnSS (sortedValueL : xs) 67 bubbleSort xs = bubbleSort remainValue >>= (\xs -> returnSS (sortedValueL : xs)
68 (sortedValueR ++ xs)) 68 (sortedValueR ++ xs))
69 where 69 where
70 maxmumValue = maximum xs 70 maximumValue = maximum xs
71 sortedValueL = maxmumValue 71 sortedValueL = maximumValue
72 sortedValueR = replicate (length $ filter (== maxmumValue) xs) maxmumValue 72 sortedValueR = replicate (length $ filter (== maximumValue) xs) maximumValue
73 remainValue = filter (/= maxmumValue) xs 73 remainValue = filter (/= maximumValue) xs