Sum of Array: Difference between revisions
Content deleted Content added
Undo revision 8500 by Special:Contributions/LpvHw9 (User talk:LpvHw9) |
→[[Toka]]: Updated to work with Toka R1 |
||
Line 332: | Line 332: | ||
[ ( array size -- sum ) |
[ ( array size -- sum ) |
||
>r 0 r> [ over i swap get |
>r 0 r> 0 [ over i swap array.get + ] countedLoop nip ] is sum-array |
||
==[[UNIX Shell]]== |
==[[UNIX Shell]]== |