brain teaser - fib again
Posted to
tcl
by kbk at Tue Aug 21 02:14:10 GMT 2012
view raw
namespace
path ::tcl::mathop
proc
U {x args} {tailcall apply
$x
$x
{*}
$args
}
puts
[U {{f n} {
if
{
$n
<= 1} {
return
$n
}
else
{
tailcall + [U
$f
[-
$n
1]] [U
$f
[-
$n
2]]
}
}} 10]
Recent Posts
tcl by oldlaptop
1 days ago
tcl by __used
3 days ago
tcl by mjanssen
3 days ago
tcl by apn
3 days ago
tcl by Marko
7 days ago
tcl by schelte
10 days ago
tcl by mjanssen
12 days ago
tcl by oldlaptop
19 days ago
tcl by drboch
22 days ago
tcl by drboch
22 days ago
Submit
New paste
Documentation
From Jabber