13 lines
298 B
Text
13 lines
298 B
Text
record mutable(value) # record wrapper to provide mutable access to immutable types
|
|
|
|
procedure main()
|
|
A := mutable()
|
|
write( sum(A, 1, 100, create 1.0/A.value) )
|
|
end
|
|
|
|
procedure sum(A, lo, hi, term)
|
|
temp := 0
|
|
every A.value := lo to hi do
|
|
temp +:= @^term
|
|
return temp
|
|
end
|