На тикле:
-в стиле каки: puts "1\n2-1\n1-2-3\n4-3-2-1\n1-2-3-4-5\n6-5-4-3-2-1\n"
-со списками, самый простой: set x [split 1/2-1/1-2-3/4-3-2-1/1-2-3-4-5/6-5-4-3-2-1 "/"];
foreach j $x{ puts "$j\n";}
Скорее не хотят в это верить. Многие хотят, чтобы успех свалился к ним просто так, без кропотливой работы, усердия и целеустремленности. В принципе поэтому такие фильмы как «Секрет» и стали популярны — сидеть на месте и мечтать проще, чем стремиться к цели.
-в стиле каки:
puts "1\n2-1\n1-2-3\n4-3-2-1\n1-2-3-4-5\n6-5-4-3-2-1\n"-со списками, самый простой:
set x [split 1/2-1/1-2-3/4-3-2-1/1-2-3-4-5/6-5-4-3-2-1 "/"];foreach j $x{ puts "$j\n";}