RosettaCodeData/Task/Averages-Root-mean-square/PostScript/averages-root-mean-square-2.ps

2 lines
57 B
PostScript

[1 10] 1 range dup 0 {dup * +} fold exch length div sqrt