source symul_lib.tcl
set liczbaWierz 5
set sasiedzi(0) {4 1}
set sasiedzi(1) {0 2}
set sasiedzi(2) {1 3}
set sasiedzi(3) {2 4}
set sasiedzi(4) {3 0}

fiber create $liczbaWierz {

	set lider 0;
	wyslij 1 $id_los;

	fiber yield;

	while {$run} {
        if {$kom0!=""} {
            if {$kom0>$id_los} {
                wyslij 1 $kom0
            }
            if {$kom0==$id_los} {
                set lider $id_los;
            }
        }
	fiber yield;
	}
}

Inicjalizacja;

proc wizualizacja {} {
  fiber_iterate {_puts "LI: $lider | $id_los: $kom0,$kom1"}
}

fiber yield; runda; wizualizacja;