問題：http://codeforces.com/problemset/problem/64/D
プラクティス
ある３つの商品の価格が与えられる．価格が高い順に姉妹に商品を与えるとき，それぞれの商品が姉妹の何番目に与えられるかを求める．
商品の価格をソートして，ソートした後の順番をリストにするだけ．
「incr i」はiの変数に1を足す．「incr i -1」なら変数iに-1を足す．返り値は変数の値なのでそのまま使った．
コード
set a [lsort -decreasing -indices -integer [split [gets stdin]]] set r {0 0 0} foreach {v} $a { lset r $v [incr i] } puts $r
