Codeforces Unknown Language Round #1 D "Presents"

問題：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