阶乘递归分享
阶乘递归
proc qwe {n} {
puts [info level]
if {$n== 1} {
return 1
} else {
# puts temp1
set ee [expr $n * [qwe [expr $n - 1]] ]
# puts $ee
return $ee
}
}
qwe 5
力扣爬梯子递归
proc fd {n} {
puts 当前递归层级[info level]____输入参数$n
if {$n == 1} {
puts 底层结果1
return 1
}
if {$n== 2} {
puts 底层结果2
return 2
}
set rr [expr [fd [expr $n -2] ] + [fd [expr $n-1]]]
# set rr [expr [fd [expr $n -1] ] + [gg]]
puts 获取层级[info level]累加结果$rr
# puts "$n \n"
return $rr
}
fd 5
登录后免费查看全文
著作权归作者所有，欢迎分享，未经许可，不得转载
首次发布时间：2024-08-14
最近编辑：2月前
本科
签名征集中
还没有评论
相关推荐
最新文章
