factorial entirely without named functions (no [info level] tricks!)
Posted to
tcl
by kbk at Mon May 04 14:04:05 GMT 2009
view raw
puts
[apply {{f args} {tailcall {*}
$f
$f
{*}
$args
}} {apply {{f x} {
if
{
$x
== 0} {
expr
1
}
else
{
expr
{
$x
* [{*}
$f
$f
[
expr
{
$x
- 1}]]}
}
}}} 6]
Recent Posts
tcl by oldlaptop
11 days ago
tcl by mookie
17 days ago
tcl by dandyn
24 days ago
tcl by Bradipo
24 days ago
tcl by Bradipo
24 days ago
tcl by oldlaptop
48 days ago
tcl by oldlaptop
49 days ago
tcl by mookie
53 days ago
tcl by mookie
54 days ago
tcl by georgtree
55 days ago
Submit
New paste
Documentation
From Jabber