Switch to edit mode.
Name(s): scalar_mult1: ":scalar_mult({ax,ay,az, ...}, k) => {k*ax, k*ay, k*az, ...}"
2: {a, k} = args
3: for x in [1..length(a)]
4: a[x] = a[x] * k
5: endfor
6: return a
7: "Last modified by manta (#7165) on Fri Feb 27 01:19:53 1998 EST."