Posted to tcl by kbk at Wed Jan 15 12:23:23 GMT 2014view pretty

proc fib {x} {
    tailcall fibcps $x {{x} {return $x}}
}
proc fibcps {x cont} {
    if {$x <= 1} {
	tailcall apply $cont 1
    } else {
	tailcall fibcps [expr {$x-1}] \
	    [list [list y [list x $x] [list cont $cont]] {
		tailcall fibcps [expr {$x-2}] \
		    [list [list z [list y $y] [list cont $cont]] {
			tailcall apply $cont [expr {$y+$z}]
		    }]
	    }]
    }
}
for {set i 0} {$i < 10} {incr i} {
    puts [fib $i]
}

Comments

Posted by kbk at Wed Jan 15 12:39:52 GMT 2014 [text] [code]

proc fib {x} { tailcall fibpart1 $x {return -level 0} } proc fibpart1 {x cont} { # evaluates $cont appending [fib $x] as a parameter if {$x <= 1} { tailcall {*}$cont 1 } else { tailcall fibpart1 [expr {$x-1}] [list fibpart2 $x $cont] } } proc fibpart2 {x cont y} { # now y is [fib {$x-1}] tailcall fibpart1 [expr {$x-2}] [list fibpart3 $y $cont] } proc fibpart3 {y cont z} { # now z is [fib {$x-2}] tailcall {*}$cont [expr {$z+$y}] } for {set i 0} {$i < 10} {incr i} { puts [fib $i] }