13 lines
311 B
Text
13 lines
311 B
Text
Module Jensen`s_Device {
|
|
single i=0
|
|
Function Sum (&any, lo, hi, &f()) {
|
|
single temp=0
|
|
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
|