Sum of squares: Difference between revisions
Add BCPL
(Put the code in a procedure. Made the code generic. Changed "map" to "mapIt". Added an example with an empty sequence. Added output.) |
Not a robot (talk | contribs) (Add BCPL) |
||
Line 534:
return(s)
}</lang>
=={{header|BCPL}}==
<lang bcpl>get "libhdr"
let sumsquares(v, len) =
len=0 -> 0,
!v * !v + sumsquares(v+1, len-1)
let start() be
$( let vector = table 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
writef("%N*N", sumsquares(vector, 10))
$)</lang>
{{out}}
<pre>385</pre>
=={{header|Bracmat}}==
| |||