Posted by: Sourav | November 11, 2014

A simple pattern in TCL


set a 0
set b 0
while {$a<5} {
set b 0
while {$b<=$a} {
puts -nonewline “*”
incr b
}
puts “”
incr a
}

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Categories

%d bloggers like this: