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

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Task/Jensens-Device/M2000-Interpreter/jensens-device-1.m2000 Normal file
View file

@ -0,0 +1,14 @@
Module Jensen`s_Device {
Def double i
Report Lazy$(1/i) ' display the definition of the lazy function
Function Sum (&i, lo, hi, &f()) {
def double temp
For i= lo to hi {
temp+=f()
}
=temp
}
Print Sum(&i, 1, 100, Lazy$(1/i))==5.1873775176392 ' true
Print i=101 ' true
}
Jensen`s_Device

13
Task/Jensens-Device/M2000-Interpreter/jensens-device-2.m2000 Normal file
View file

@ -0,0 +1,13 @@
Module Jensen`s_Device {
Def decimal i
Function Sum (&any, lo, hi, &f()) {
def decimal temp
For any= lo to hi {
temp+=f()
}
=temp
}
Print Sum(&i, 1, 100, Lazy$(1/i))=5.1873775176396202608051176755@ ' true
Print i=101 ' true
}
Jensen`s_Device

13
Task/Jensens-Device/M2000-Interpreter/jensens-device-3.m2000 Normal file
View file

@ -0,0 +1,13 @@
Module Jensen`s_Device {
Def single i
Function Sum (&any, lo, hi, &f()) {
def single temp
For any= lo to hi {
temp+=f()
}
=temp
}
Print Sum(&i, 1, 100, Lazy$(1/i))=5.187378~ ' true
Print i=101 ' true
}
Jensen`s_Device