14 lines
251 B
Text
14 lines
251 B
Text
( ( sum
|
|
= I lo hi Term temp
|
|
. !arg:((=?I),?lo,?hi,(=?Term))
|
|
& 0:?temp
|
|
& !lo:?!I
|
|
& whl
|
|
' ( !!I:~>!hi
|
|
& !temp+!Term:?temp
|
|
& 1+!!I:?!I
|
|
)
|
|
& !temp
|
|
)
|
|
& sum$((=i),1,100,(=!i^-1))
|
|
);
|