Pathological floating point problems: Difference between revisions
m
→{{header|EasyLang}}
(Added Easylang) |
|||
Line 1,517:
task2
print ""
#
proc mul f . bal bal$[] .
for i = len bal$[] downto 1
Line 1,528 ⟶ 1,529:
proc task2ok . .
print "--- Task 2 OK ---"
bal = number substr e$ 1 1
▲ bal$[] = strchars "7182818284590452353602874713526624977572470"
bal$[] = strchars substr e$ 3 999
bal -= 1
for i = 1 to 25
| |||