Sum of Array: Difference between revisions

Content deleted Content added

Inline

@@ Line 332: / Line 332: @@
  [ ( array size -- sum )
-   >r 0 r> [ over i swap get-element + ] iterate nip ] is sum-array
+   >r 0 r> 0 [ over i swap array.get + ] countedLoop nip ] is sum-array
 ==[[UNIX Shell]]==