version 1.4, 2000/08/07 20:47:29
|
version 1.5, 2000/09/26 13:34:48
|
Line 91 proc pickAnonHighest { num answerStructV
|
Line 91 proc pickAnonHighest { num answerStructV
|
$studentNumber] |
$studentNumber] |
} |
} |
# puts $scores |
# puts $scores |
set scores [lsort -index 0 -integer $scores] |
set scores [lsort -decreasing -index 0 -integer $scores] |
# puts $scores |
# puts $scores |
# puts [lindex [lindex $scores 0] 1] |
# puts [lindex [lindex $scores 0] 1] |
return [lindex [lindex $scores 0] 1] |
return [lindex [lindex $scores 0] 1] |