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 bch
5 days ago
tcl by Bradipo
6 days ago
tcl by aspect
6 days ago
tcl by Bradipo
6 days ago
tcl by Bradipo
6 days ago
tcl by Bradipo
6 days ago
lilypond by Bradipo
7 days ago
tcl by cgm
17 days ago
tcl by dandyn
26 days ago
tcl by Stu
27 days ago
Submit
New paste
Documentation
From Jabber