Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


Test de rapidité...
#1
Â
Lorsque vous avez la possibilité de choisir entre plusieurs méthodes pour effectuer la même tâche, comment choisir la bonne ?

La bonne technique est évidemment celle qui s'exécutera le plus rapidement.
Vous pouvez tester la rapidité d'exécution de ce que vous voulez avec ce petit script.


tcl
# TimeIt v1.0 par MenzAgitat
 
bind dcc m chrono chronoprocess
 
proc chronoprocess {hand idx arg} {
	if { ($arg == "") || (![regexp {^[0-9]+$} [lindex $arg 0]])} { putlog "\037Syntaxe\037 : .chrono \00314<\003nombre de répétitions\00314><\003commandes\00314>\003" ; return }
	set chrono_timestart [clock clicks -milliseconds]
	for { set chrono_counter 1 } { $chrono_counter <= [lindex $arg 0] } { incr chrono_counter } { eval [lrange $arg 1 end] }
	putlog "\00314Temps d'exécution sur [lindex $arg 0] itérations :\003 [expr [expr [clock clicks -milliseconds]-$chrono_timestart]/1000.00]s"
}
 
putlog "TimeIt v1.0 (par MenzAgitat) a été chargé."


Exemple : .chrono 10000 set test "ceci est un test"
-> Temps d'exécution sur 10000 itérations : 0.018s

Désormais, vous n'aurez plus d'excuses pour ne pas optimiser vos scripts ;)
Toute l'actualité de mes scripts ici     (dernière mise à jour le 22/04/2020)

Tout programme comporte au moins un bug et pourrait être raccourci d'au moins une instruction, de quoi l'on peut déduire que tout programme peut être réduit à une seule instruction qui ne fonctionne pas.


Forum Jump:


Users browsing this thread: 1 Guest(s)