factorial with tailcall
Posted to
tcl
by kbk at Mon May 04 14:30:21 GMT 2009
view raw
puts
[apply {{f a} {tailcall {*}
$f
$f
1
$a
}} {apply {{f a x} {
if
{
$x
== 0} {
set
a
}
else
{
tailcall {*}
$f
$f
[
expr
{
$a
*
$x
}] [
expr
{
$x
- 1}]
}
}}} 6]
Recent Posts
tcl by schelte
1 days ago
tcl by oldlaptop
14 days ago
tcl by mookie
20 days ago
tcl by dandyn
27 days ago
tcl by Bradipo
27 days ago
tcl by Bradipo
27 days ago
tcl by oldlaptop
51 days ago
tcl by oldlaptop
51 days ago
tcl by mookie
56 days ago
tcl by mookie
57 days ago
Submit
New paste
Documentation
From Jabber