Ulam spiral (for primes): Difference between revisions
m
→using FreePascal
Line 3,398:
(*)
Free Pascal Compiler version 3.2.0 [2020/06/14] for x86_64
The free and readable alternative at C/C++ speeds
compiles natively to almost any platform, including raspberry PI *
(*)
Line 3,408:
CONST
(*)
Only odd numbers work
(*)
SIZE = 9 ;
MSIZE = SIZE * ord ( Odd ( SIZE ) ) ;
Line 3,472:
VAR
cnt: integer = 1 ;
Turn_cnt: integer = 0 ;
x: integer = MSIZE div 2 ;
y: integer = MSIZE div 2 ;
|