bsort-debug2.hs

import Debug.Trace

bubble [x] = [x]
bubble (x:xs)
    | y < x     = y : bubble (x:ys)
    | otherwise = x : bubble (y:ys)
    where
      (y:ys) = bubble xs
main = do
  print $ bubble [13,55,98,1,52,97,16,99,45,30,82,22,77,91,70,59,54,7,96,20,29,79,0,49,85,58,36,33,32,74,64,92,76,34,37,56,5,18,38,40,78,48,2,81,94,65,24,69,8,21,12,66,73,25,26,51,84,31,3,27,46,10,83,87,63,11,47,6,50,35,75,23,19,44,89,86,41,42,43,17,60,71,62,57,15,80,14,100,4,88,68,28,72,95,93,67,90,61,39,9]