Sum and product of an array: Difference between revisions
Content added Content deleted
No edit summary |
No edit summary |
||
| Line 132: | Line 132: | ||
1 2 3 4 5 6 7 8 9 10 |
1 2 3 4 5 6 7 8 9 10 |
||
3628800</lang> |
3628800</lang> |
||
=={{header|Babel}}== |
|||
<lang babel>main: { [2 3 5 7 11 13] sp } |
|||
sum! : { <- 0 -> { + } eachar } |
|||
product!: { <- 1 -> { * } eachar } |
|||
sp!: |
|||
{ dup |
|||
sum %d cr << |
|||
product %d cr << } |
|||
Result: |
|||
41 |
|||
30030</lang> |
|||
=={{header|BASIC}}== |
=={{header|BASIC}}== |
||