zip_with

one of the documented procedures in this installation of the ACS
Usage:
zip_with   f   xs   ys
What it does:
takes two lists {x1 x2 x3 ...} and {y1 y2 y3 ...} and returns the list {(f x1 y1) (f x2 y2) (f x3 y3) ...
Defined in: /web/philip/tcl/ad-functional.tcl

Source code:


    set result {}
    foreach x $xs y $ys {
	if { !([null_p $x] || [null_p $y]) } {
	    lappend result [eval_binary $f $x $y]
	}
    }
    return $result


philg@mit.edu