TTL コマンドリファレンス intdim の例 (エラトステネスのふるい) について - Tera Term Ticket #40620 on OSDN

* https://ttssh2.osdn.jp/manual/4/ja/macro/command/intdim.html

* https://ttssh2.osdn.jp/manual/4/en/macro/command/intdim.html

こちら、実際に数えてみると 4 行目は [17 primes]であるはずです。よって 9 行目の count = 1は count = 0であるはずです。

 ; エラトステネスのふるい(sieve of Eratosthenes)
 ;
 ; Example of execution result
 ; 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 [18 primes]
 ;
 N = 30
 intdim flag N+1
 count = 1
 for i 0 N
         flag[i] = 1
 next
 for i 0 N
         if flag[i] =1 then
                 count = count + 1
                 p = 2 * i + 3
                 sprintf "%d " p
                 dispstr inputstr
                 k = i + p
                 while k <= N
                         flag[k] = 0
                         k = k + p
                 endwhile
         endif
 next
 sprintf "[%d primes]" count
 dispstr inputstr
 end

以上、よろしくお願いいたします。