ZX spigot

 

Увидел пост на одном гадюшнике пейсбук и решил испытать алгоритм. BasinC 1.81 выдал неверное значение и выругался на неясную ошибку. Spectaculator даже на скорости 20х считал очень долго, поэтому я так и не дождался результата. На первый взгляд три строки программы показали правильные данные. Исходник+тапка.

В посте к картинке нашелся один комментарий с исходным текстом. Так и не удалось запустить программу. Искуственый Идиот чятджипити, что от него ждать?

ChatGpt C64 basic code block:

10 REM CALCULATE PI TO 500 DIGITS USING SPIGOT ALGORITHM

20 N = 500: DIM A(1700)

30 FOR I = 1 TO 1700: A(I) = 2

40 P = 0: Q = 0

50 FOR J = 1 TO N

60 Q = 0: S = 0

70 FOR I = 1700 TO 1 STEP -1

80 P = 10 * A(I) + Q * I

90 A(I) = P MOD (2 * I - 1)

100 Q = INT(P / (2 * I - 1))

110 NEXT I

120 PRINT Q MOD 10;

130 IF J = 1 THEN PRINT ".";

140 NEXT J

150 END