# - * - TCL - * - # testA réglé de proc d'essai = de syndicats maximum 50 { args } { commutateur llength $$args { 0 { retour { } } 1 { retour lindex $$args 0 } défaut { le foreach a placé $$args { foreach e $$set { placez tmp($e). } } renvoyez la rangée appelle le tmp } } } le testB de proc { args } { commutateur llength $$args { 0 { retour { } } 1 { retour lindex $$args 0 } défaut { placez le foreach de tmp { } réglé $$args { foreach e $$set { tmp de lappend $$e } } # enlèvent des reproductions -- # sorte et balayent le raccourci en cas de vide ou # résultat d'simple-élément. si { llength $$tmp < 2 } { retour $$tmp } placez le tmp le lsort $$tmp a placé pour la dernière fois lindex $$tmp 0 a placé le tmp extrémité $$tmp de lrange 1 a placé le foreach $$last e de recherche $$tmp { si { la corde comparent $$e $$last! = { bout réglé de recherche $$e de lappend } $$e } testC de proc $$res du retour 0} } } } { args } { commutateur llength $$args { 0 { retour { } } 1 { défaut de retour $$args lindex 0 } { placez le foreach de tmp { } réglé $$args { foreach e $$set { tmp de lappend $$e } } # - le W enlèvent des reproductions -- # informations parasites hors de raccourci en cas de vide ou # résultat d'simple-élément. si { llength $$tmp < 2 } foreach { $$tmp de retour } e $$tmp { placez tmpa($e). } renvoyez la rangée appelle le tmpa } } } le testD de proc { args } { commutateur llength $$args { 0 { retour { } } 1 { défaut de retour $$args lindex 0 } { foreach réglé $$args { si { llength $$set > 0} { foreach $$set {. } { coupure } } } suppriment des locals d'information réglés par args } } } # UN_ne - > a, b aléatoire, non trié, intersection presque toujours vide # UN_eq - > a = b, l'ensemble aléatoire fa1 ouvrez-vous "|le /2nep UN_a_ne Ar.dat X.dat "W a placé fa2 ouvrez-vous"|le /2nep UN_a_eq Ae0.dat X.dat "W a placé fb1 ouvrez-vous"|le /2nep UN_b_ne Br.dat X.dat "W a placé fb2 ouvrez-vous"|le /2nep UN_b_eq Be0.dat X.dat "W a placé fc1 ouvrez-vous"|le /2nep UN_b_ne Cr.dat X.dat "W a placé fc2 ouvrez-vous"|le /2nep UN_b_eq Ce0.dat X.dat "W a placé fd1 ouvrez-vous"|le /2nep UN_b_ne Dr.dat X.dat "W a placé fd2 ouvrez-vous"|le /2nep UN_b_eq De0.dat X.dat "W a placé le fx ouvrez-vous"|______________________________________"met stdout du /2nep UN_x X.dat" W a placé a0 { } a placé b0 { } "; le stdout affleurant UNION met stdout "|...... A...... B...... C...... D "; stdout affleurant pour { placez I 0 } { $$i < = $$max } { augmentez I } { placez IX format %03d $$i met le stderr "* $$ix (a0) = $$a0"; le stderr affleurant met le stderr "* $$ix (b0) = $$b0"; le stderr affleurant ra1 que réglé lindex [ temps { testA $$a0 $$b0 } 1000 0 ] a placé ra2 lindex [ temps { testA $$a0 $$a0 } 1000 0 ] a placé rb1 lindex [ temps { testB $$a0 $$b0 } 1000 0 ] a placé rb2 lindex [ temps { testB $$a0 $$a0 } 1000 0 ] a placé rc1 lindex [ temps { testC $$a0 $$b0 } 1000 0 ] a placé rc2 lindex [ temps { testC $$a0 $$a0 } 1000 0 ] a placé rd1 lindex [ temps { testD $$a0 $$b0 } 1000 0 ] a placé rd2 lindex [ temps { testD $$a0 $$a0 } 1000 0 ] ______________________________________"met stdout"; le stdout affleurant met le stdout "$$ix Ne le format %7d $$ra1 format %7d $$rb1 le format %7d $$rc1 format %7d $$rd1" met le stdout "$$ix EQ le format %7d $$ra2 format %7d $$rb2 le format %7d $$rc2 format %7d $$rd2" met $$fa1 $$ra1 met $$fa2 $$ra2 met $$fb1 $$rb1 met $$fb2 $$rb2 met $$fc1 $$rc1 met $$fc2 $$rc2 met $$fd1 $$rd1 met $$fd2 $$rd2 met $$fx $$i le lappend a0 gamme de corde [ lindex [ dédoublez [ expr { le rand() }. ] 1] 0 4] lappend b0 gamme de corde [ lindex [ dédoublez [ expr { rand() }. ] 1] 0 4] } met le "----"de stderr; le stderr affleurant ______________________________________"met stdout"; fin affleurante de fin $$fa1 de fin $$fa2 de fin $$fb1 de fin $$fb2 de fin $$fc1 de fin $$fc2 de fin $$fd1 de fin $$fd2 de stdout $$fx voyez également des setops. Exécution De Catégorie