Problem:
バブルソート

データを並べ替えるための整列（ソート）アルゴリズムはコンピュータ科学には欠かせない基本的なアルゴリズムです。例えば、下図のように「整数値の配列の要素を昇順に並べ替える」という操作が整列です。

多くの整列アルゴリズムが考案されてきましたが、その中でも基本的なアルゴリズムの１つがバブルソートです。例として、与えられた整数値の配列をバブルソートで昇順に並べてみます。

バブルソートでは、各計算ステップにおいて、配列を「ソートされた部分」と「ソートされていない部分」に分けて考えます。最初は配列全体がソートされていない部分になります。

ソートされていない部分の先頭から、隣同士の要素を比較して（図では緑色の要素）、大きい値が右にくるようにそれらを交換します。二つの値が等しい場合は交換しません。

この処理をソートされていない部分（図では白色の要素）の末尾まで繰り返します。最後に、末尾をソートされている部分（図では青色の要素）に追加して1ステップが完了します。

このステップをソートされていない部分の長さが1になるまで繰り返します。

このようにソートされていない部分の長さが 1 になったら、ソートの処理を終了します。

それでは、n 個の数値の配列を入力とし、数値が配列の先頭から昇順に並ぶように上記のバブルソートの手順で並べ替えを行い、要した配列要素の交換回数を出力するプログラムを作成してください。

Input

複数のデータセットの並びが入力として与えられます。入力の終わりはゼロひとつの行で示されます。
各データセットは以下の形式で与えられます。

n
a1
a2
:
an

１行目に数値の数 n (1 ≤ n ≤ 100)、続く n 行にi 番目の数値 ai (1 ≤ ai ≤ 1000000) が与えられます。

データセットの数は 20 を超えません。

Output

データセットごとにデータ要素の交換回数（整数）を１行に出力します。

Sample Input

5
5
3
2
1
4
6
1
2
3
4
5
6
3
3
2
1
0

Output for the Sample Input

7
0
3

Solution in Scala (judge verdict: Accepted)

import scala.io.StdIn.readInt
import scala.collection.mutable.ArrayBuffer

object Main {
  def swap(a:Array[Int],i:Int,j:Int) = {
    val temp = a(i)
    a(i) = a(j)
    a(j) = temp
  }

  def bubbleSort(a:Array[Int]) = {
    var cnt = 0
    for(i<-0 until a.length){
      for(j<-0 until a.length-i-1) {
        if(a(j) > a(j+1)) {
          swap(a,j,j+1)
          cnt+=1
        }
      }
    }
    cnt
  }

  def main(args:Array[String]) = {
    var n = 0
    val b = new ArrayBuffer[Int]
    while({n=readInt;n}!=0) {
      val a = for(i<-1 to n) yield readInt
      b += bubbleSort(a.toArray)
    }
    println(b.mkString("\n"))
  }
}