SPOJ 4301 "Tables"
問題：https://www.spoj.pl/problems/AE1B/
scan [gets stdin] {%s %s %s} n k s set a [lsort -integer -decreasing [gets stdin]] set m [expr {$k*$s}] set sum 0 for {set c 0} {$sum<$m} {incr c} { incr sum [lindex $a $c] } puts $c
問題：https://www.spoj.pl/problems/AE1B/
scan [gets stdin] {%s %s %s} n k s set a [lsort -integer -decreasing [gets stdin]] set m [expr {$k*$s}] set sum 0 for {set c 0} {$sum<$m} {incr c} { incr sum [lindex $a $c] } puts $c