path: root/libraries/base/tests/list002.hs

-- !!! Test that List.sortBy is stable.

import Data.List

main = print (sortBy (\(a,b) (a',b')->compare a a')
                ([1,1,1,1,1,1,1,1,1,1]`zip`[1..10]))