Sum of squares: Difference between revisions

 

=={{header|RPL}}==

≪ DUP DOT ≫ '<span style="color:blue">∑SQV</span>' STO

If we really need zero-length objects, we can use lists:

≪ 0 SWAP

'''IF''' DUP SIZE '''THEN'''

DUP j GET SQ + '''NEXT'''

'''END''' DROP

{ 1 2 3 4 5 } <span style="color:blue">∑SQL</span>

{ } <span style="color:blue">∑SQL</span>

{{out}}

<pre>