cleanup
This commit is contained in:
parent
5cf17f5dbf
commit
cdc49b378a
|
@ -1,13 +0,0 @@
|
|||
integrate(fun, min, max) = {
|
||||
// assume that min and max are integers.
|
||||
epsilon = 1
|
||||
l = max - min
|
||||
meanF(t) = fun(t)
|
||||
intervals = map(List.upTo(0, (l/epsilon)), ({|n| min + n*epsilon}))
|
||||
values = map(intervals, ({ |x | meanF(x)}))
|
||||
result = reduce(values, 0, ({|acc, x| acc + x})) * epsilon
|
||||
result
|
||||
}
|
||||
|
||||
f(x) = x
|
||||
integrate(f, 1, 100k)
|
Loading…
Reference in New Issue
Block a user