iterate

one of the documented procedures in this installation of the ACS

Usage:

iterate n f x

What it does:

returns {x (f x) (f (f x) (f (f (f x))) ...}

Defined in: /web/philip/tcl/ad-functional.tcl

Source code:


    set result {}
    for {set i 0} {$i<$n} {incr i} {
	lappend result $x
	set x [eval_unary $f $x]
    }
    return $result