lab4 / lr4_2

# Процедура для сортировки блоков по площади
proc sort_by_area {} {
global decoder block_area

# Преобразуем строку decoder в список
set block_list [split $decoder]

# Создаем список пар (блок, площадь)
set block_area_list {}
foreach block $block_list {
if {[info exists block_area($block)]} {
lappend block_area_list [list $block $block_area($block)]
}
}

# Сортируем список по площади
set sorted_block_area_list [lsort -real -index 1 $block_area_list]

# Выводим отсортированный список
puts "Отсортированные блоки по площади:"
foreach {block area} $sorted_block_area_list {
puts "$block: $area"
}
}

# Основной скрипт
# Загружаем данные из файла design.tcl
source design.tcl

# Вызываем процедуру сортировки
sort_by_area