It is common in programming that one sometimes wants to say "infinity", or at least "a number larger than any given number". The ordinary way to do that is to pick a fixed but very large number (e.g. the largest representable number) or to use an unreasonable number (e.g. -1 items) and add extra logic for handling it, but in Tcl there is a better way, thanks to that [everything is a string]: just say "infinity"! Take for example conditions such as this if {$someQuantity >= $limit} then { # Do some kind of flush } that aren't too uncommon in programs. Suppose you don't want any such flushes to happen at all. How to do that? It turns out you can do set limit infinity This will not error out, as one might perhaps expect, since comparisons are string comparisons if not both operands are numbers; % expr {1 <= "infinity"} 1 % expr {2 < "infinity"} 1 % expr {2 > "infinity"} 0 % expr {"infinity" > "infinity"} 0 % expr {-3000 < "infinity"} 1 A more complete example: proc record_work {items} { variable items_total incr items_total $items # Perhaps write a log message about this. set now [clock seconds] variable last_message_seconds variable period if {$now - $last_message_seconds >= $period} then { puts [format "At %s there is a total of %d items."\ [clock format $now] $items_total] set last_message_seconds $now } } proc init_work_record {report_period} { variable items_total 0\ last_message_seconds [clock seconds]\ period $report_period } With these procs, init_work_record 60 will cause reports to be at least a minute apart and init_work_record 3600 will cause reports to be at least an hour apart, but init_work_record infinity will effectively turn reporting off completely. Another common application is when one needs to compute the minimum of a list of numbers proc min {L} { set res infinity foreach n $L { if {$n < $res} then {set res $n} } return $res } In this case, where the numbers are all known from the start, it is usually possible to initialise ''res'' to the first number in the list and get a correct value that way, but if the numbers are generated as one goes along then the infinity trick usually simplifies the code considerably. It is normally not possible to do arithmetic with infinity (although on some platforms it can get parsed as some kind of double), so one has to execute some care in how it is used, but very often the code can be structured so that arithmetic only need to happen to finite numbers. -- [Lars H] [AM] What a cute little trick! It even works for numbers like .1 ---- I think most programmers if they needed some function to run forever they would script something like this instead: while {true} {#Do Something} The endless while loop is very common in C programs and is easier to read then the forever for loop. [Lars H]: Yeah, it was a poor example (although not entirely unlike what one might encounter). I've replaced it with something better. [TV] As long as 1/inf and 2/inf remain both zero AND unequal, I guess... ---- [RS] notes that constant [while] conditions need not be braced, and Tcl's canonical ''true'' value is 1 (as shown by [expr]), so he codes pseudo-endless loops as while 1 {#do something or break} Also, if you want to avoid the infinity trick causing a bug, there is a simple test for integerness. Consider that proc foo x { for {set i 0} {$i<$x} {incr i} {#do something} } will run infinitely (or longer than wanted) if it is called with non-numeric x. Just [incr]ement x by 0, which doesn't hurt integers, but throws a clear error if someone attempts otherwise: proc foo x { incr x 0 ;#-- make sure x has an integer value for {set i 0} {$i<$x} {incr i} {#do something} } ---- when plotting historgams of ratios jk used the infinity trick twice, first to have a bin boundary at infinity that all numbers are less than. but also by relying on === catch {expr 1/0} res === being < infinity but greater than any real number [RS]: Well, of course, "d" sorts before "i"... % expr 1/0 divide by zero % expr {"divide by zero" < "infinity"} 1 ---- !!!!!! %| [Category Mathematics] | [Category Concept] | [Category Example] |% !!!!!!