Index: doc/example-scripts/rosetta-distinct-objects.tcl =================================================================== diff -u -N --- doc/example-scripts/rosetta-distinct-objects.tcl (revision 5693145107c55b5f64bf0fb487aa43e0f2238f1a) +++ doc/example-scripts/rosetta-distinct-objects.tcl (revision 0) @@ -1,17 +0,0 @@ -# == Rosetta Example: Multiple distinct objects -# For details see http://rosettacode.org/wiki/Multiple_distinct_objects -# -package req nx -package req nx::test - -# Set the number of objects that should be created -? {set n 100} 100 - -# Create a sequence as a list with +n+ instances of the class +nx::Object+ -? {set sequence {}} "" -? {for {set i 0} {$i < $n} {incr i} { - lappend sequence [nx::Object new] -} -} "" - -