copy

one of the documented procedures in this installation of the ACS

Usage:

copy n x

What it does:

returns list of n copies of x

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

Source code:


    set result {}
    for {set i 0} {$i<$n} {incr i} {
	lappend result $x
    }
    return $result