8 lines
135 B
Text
8 lines
135 B
Text
reduce f lst init:
|
|
if lst:
|
|
f reduce @f lst init pop-from lst
|
|
else:
|
|
init
|
|
|
|
!. reduce @+ [ 1 10 200 ] 4
|
|
!. reduce @- [ 1 10 200 ] 4
|