已有 578 次阅读| 2011-12-30 22:38 |个人分类:tcl_tk
proc factorial {num} { set i 1 set product 1 set a $num while {$i <= $a} { set product [expr $i*$product] incr i } return $product}
factorial 10
评论
查看 »
小黑屋| 关于我们| 联系我们| 在线咨询| 隐私声明| EETOP 创芯网 ( 京ICP备:10050787号 京公网安备:11010502037710 )
GMT+8, 2024-4-27 04:20 , Processed in 0.013801 second(s), 7 queries , Gzip On, Redis On.