aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-11-11 10:11:44 -08:00
parent 157b70a810
commit 8e4e15fa56
78 changed files with 2016 additions and 222 deletions
Download patch file Download diff file Expand all files Collapse all files

16
Task/Averages-Root-mean-square/M2000-Interpreter/averages-root-mean-square.m2000 Normal file
View file

@ -0,0 +1,16 @@
Module TestThis {
Locale 1033 ' this choose dot for decimals
feed=lambda m=1->{=m:m++}
fold1=lambda (a, s)->{push a*a+s}
feed1=feed
Dim Vector1(1 To 10) As Single<<feed1()
Print "Quadratic mean (or RMS) is :";sqrt(Vector1()#fold(fold1, 0)/Len(Vector1()))
Print Type$(Vector1(10))="Single", Vector1(10)=10
feed1=feed ' reset feed1
Dim Vector2(-100 To 1) as Byte<<feed1()
Print "Quadratic mean (or RMS) is :";sqrt(Vector2()#fold(fold1, 0)/Len(Vector2()))
Print Type$(Vector2(-100))="Byte", Vector2(-100)=1
}
TestThis