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