7 lines
166 B
Tcl
7 lines
166 B
Tcl
proc fold {lambda zero list} {
|
|
set accumulator $zero
|
|
foreach item $list {
|
|
set accumulator [apply $lambda $accumulator $item]
|
|
}
|
|
return $accumulator
|
|
}
|