haskell 基础题解（17）

冒泡排序

【题目】一行输入若干整数，用冒泡法排序，然后输出排序后的数字。

冒泡排序的一趟排序是：从左到右扫描，相邻两个元素小的交换到左边。
n 个数，作 n-1 趟后就排好了。

haskell实现：

mao_pao :: [Int] -> [Int] 
mao_pao t = f t (length t - 1) where
  f x 0 = x
  f x n = f (g x)