UNIX for Advanced & Expert Users

#!/bin/tclsh
set file_name [lindex $argv 0]
set file_han1 [open $file_name "r"]
while {[gets $file_han1 file_list] > 0} {
    set file_list_split [split $file_list ,]
    set id [lindex $file_list_split 0]
    #Create an array corrs to students name
    set name($id) [string tolower [lindex $file_list_split 1]]
    #Create an array corrs to marks 
    set marks($id) "[lindex $file_list_split 2] [lindex $file_list_split 3] [lindex $file_list_split 4]"   
}

close $file_han1
puts [array get marks]

proc add_func list_value {
    set total_marks 0
    set list_high_value [llength $list_value]
    for {set i 0} {$i < $list_high_value} {incr i} {
    set total_marks [expr $total_marks + [lindex $list_value $i]]
    }
return $total_marks
}

proc position id_st {
    global marks
    foreach id_s [array names marks] {
    set total_marks($id_s) [add_func $marks($id_s)]
}
set memberlist [array get total_marks]
foreach {key value} $memberlist {
        lappend unsortedlist [list $key $value]
}
set sortedlist [lsort -decreasing -index 1 $unsortedlist]
    
foreach pair1 $sortedlist {
lappend total_marks_sorted_lis [lindex $pair1 0] [lindex $pair1 1]
    }
set pos [lsearch $total_marks_sorted_lis $id_st]
    puts "Position is [expr (($pos + 1) + 1) / 2]"
}

puts  "Enter the student id to find its position:"
set id_name [gets stdin]
position $id_name