Updated 2012-08-22 02:11:37 by RLE ▲

Computing Fibonacci numbers with the U combinator from Combinatory Logic, by kbk ,2012
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]

http://paste.tclers.tk/2685

Category Functional ProgrammingCategory Concept