Sum of elements below main diagonal of matrix: Difference between revisions

→‎{{header|RPL}}: HP-49/50 version
(Added Easylang)
(→‎{{header|RPL}}: HP-49/50 version)
Line 1,539:
 
=={{header|RPL}}==
« → m
« 0 2 m SIZE 1 GET '''FOR''' r 1 r 1 - '''FOR''' c
m 1 r c1 2 →LIST GET +- '''NEXT NEXTFOR''' c
m r c 2 →LIST GET +
≫ ≫ '<span style="color:blue">∑BELOW</span>' STO
'''NEXT NEXT'''
» » '<span style="color:blue">∑BELOW</span>' STO
 
[[1 3 7 8 10]
Line 1,553 ⟶ 1,555:
1: 69
</pre>
{{works with|HP|49/50 }}
« DUP SIZE OBJ→ DROP « > » LCXM
HADAMARD AXL ∑LIST ∑LIST
» '<span style="color:blue">∑BELOW</span>' STO
 
=={{header|Ruby}}==
1,150

edits