Добавил:
deadpigeon
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:lab5 / lr5_1
.tcl proc cell_count {args} {
#return [llength $args]
return [llength [lindex $args 0]]
}
set cells [list and2 or2 xor2 inv]
puts "Number of cells: [cell_count $cells]"
#return [llength $args]
return [llength [lindex $args 0]]
}
set cells [list and2 or2 xor2 inv]
puts "Number of cells: [cell_count $cells]"