孫子問題

在《孫子算經》裡（共三卷，據推測約成書於西元400年左右）， 下卷的第26題，就是鼎鼎有名的「孫子問題」：
今有物不知其數，三三數之剩二，五五數之剩三，七七數之剩二，問物幾何？

下面是使用迴圈的解法：

#!/usr/bin/env tclsh

proc find {n} {
    set i 0
    set a 0

    if {$n <= 0} {
        return 0;
    }

    while {$i < $n} {
         incr a
         if {[expr ($a%3)==2 && ($a%5)==3 && ($a%7)==2]==1} {
            incr i
         }
    }

    return $a
}

for {set num 1} {$num <= 10} {incr num} {
    puts "The $num answer is [find $num]."
}