Unit primesieve

Description

Uses

Classes, Interfaces, Objects and Records

Functions and Procedures

Types

Constants

Variables

Description

Pascal bindings for primesieve library.

primesieve - library for fast prime number generation.
Copyright (C) 2010 - 2021 Kim Walisch, <kim.walisch@gmail.com>
https://github.com/kimwalisch/primesieve

primesieve-pas - FPC/Delphi API for primesieve library.
Copyright (C) 2020 - 2021 I. Kakoulidis, <ioulianos.kakoulidis@hotmail.com>
https://github.com/JulStrat/primesieve-pas

This file is distributed under the BSD 2-Clause License.

Overview

Classes, Interfaces, Objects and Records

Name	Description
Record `primesieve_iterator`
Record `tuplets_iterator`

Functions and Procedures

function primesieve_generate_primes( start, stop: UInt64; var size: NativeUInt; ptype: Integer ): Pointer; cdecl; external LIB_PRIMESIEVE name LIB_FNPFX + 'primesieve_generate_primes';

function primesieve_generate_n_primes( n: UInt64; start: UInt64; ptype: Integer ): Pointer; cdecl; external LIB_PRIMESIEVE name LIB_FNPFX + 'primesieve_generate_n_primes';

function primesieve_nth_prime( n: Int64; start: UInt64 ): UInt64; cdecl; external LIB_PRIMESIEVE name LIB_FNPFX + 'primesieve_nth_prime';

function primesieve_count_primes( start, stop: UInt64 ): UInt64; cdecl; external LIB_PRIMESIEVE name LIB_FNPFX + 'primesieve_count_primes';

function primesieve_count_twins( start, stop: UInt64 ): UInt64; cdecl; external LIB_PRIMESIEVE name LIB_FNPFX + 'primesieve_count_twins';

function primesieve_count_triplets( start, stop: UInt64 ): UInt64; cdecl; external LIB_PRIMESIEVE name LIB_FNPFX + 'primesieve_count_triplets';

function primesieve_count_quadruplets( start, stop: UInt64 ): UInt64; cdecl; external LIB_PRIMESIEVE name LIB_FNPFX + 'primesieve_count_quadruplets';

function primesieve_count_quintuplets( start, stop: UInt64 ): UInt64; cdecl; external LIB_PRIMESIEVE name LIB_FNPFX + 'primesieve_count_quintuplets';

function primesieve_count_sextuplets( start, stop: UInt64 ): UInt64; cdecl; external LIB_PRIMESIEVE name LIB_FNPFX + 'primesieve_count_sextuplets';

procedure primesieve_print_primes( start, stop: UInt64 ); cdecl; external LIB_PRIMESIEVE name LIB_FNPFX + 'primesieve_print_primes';

procedure primesieve_print_twins( start, stop: UInt64 ); cdecl; external LIB_PRIMESIEVE name LIB_FNPFX + 'primesieve_print_twins';

procedure primesieve_print_triplets( start, stop: UInt64 ); cdecl; external LIB_PRIMESIEVE name LIB_FNPFX + 'primesieve_print_triplets';

procedure primesieve_print_quadruplets( start, stop: UInt64 ); cdecl; external LIB_PRIMESIEVE name LIB_FNPFX + 'primesieve_print_quadruplets';

procedure primesieve_print_quintuplets( start, stop: UInt64 ); cdecl; external LIB_PRIMESIEVE name LIB_FNPFX + 'primesieve_print_quintuplets';

procedure primesieve_print_sextuplets( start, stop: UInt64 ); cdecl; external LIB_PRIMESIEVE name LIB_FNPFX + 'primesieve_print_sextuplets';

function primesieve_get_max_stop(): UInt64; cdecl; external LIB_PRIMESIEVE name LIB_FNPFX + 'primesieve_get_max_stop';

function primesieve_get_sieve_size(): Integer; cdecl; external LIB_PRIMESIEVE name LIB_FNPFX + 'primesieve_get_sieve_size';

function primesieve_get_num_threads(): Integer; cdecl; external LIB_PRIMESIEVE name LIB_FNPFX + 'primesieve_get_num_threads';

procedure primesieve_set_sieve_size( sieve_size: Integer ); cdecl; external LIB_PRIMESIEVE name LIB_FNPFX + 'primesieve_set_sieve_size';

procedure primesieve_set_num_threads( num_threads: Integer ); cdecl; external LIB_PRIMESIEVE name LIB_FNPFX + 'primesieve_set_num_threads';

procedure primesieve_free( primes: Pointer ); cdecl; external LIB_PRIMESIEVE name LIB_FNPFX + 'primesieve_free';

function primesieve_version(): PAnsiChar; cdecl; external LIB_PRIMESIEVE name LIB_FNPFX + 'primesieve_version';

procedure primesieve_init( var it: primesieve_iterator ); cdecl; external LIB_PRIMESIEVE name LIB_FNPFX + 'primesieve_init';

procedure primesieve_free_iterator( var it: primesieve_iterator ); cdecl; external LIB_PRIMESIEVE name LIB_FNPFX + 'primesieve_free_iterator';

procedure primesieve_skipto( var it: primesieve_iterator; start, stop_hint: UInt64 ); cdecl; external LIB_PRIMESIEVE name LIB_FNPFX + 'primesieve_skipto';

function primesieve_next_prime( var it: primesieve_iterator ): UInt64; inline;

function primesieve_prev_prime( var it: primesieve_iterator ): UInt64; inline;

procedure tuplets_init( var it: tuplets_iterator );

procedure tuplets_free( var it: tuplets_iterator );

procedure tuplets_skipto( var it: tuplets_iterator; start: UInt64 );

function tuplets_next_twin( var it: tuplets_iterator ): UInt64;

function tuplets_next_triplet( var it: tuplets_iterator ): UInt64;

function tuplets_next_quadruplet( var it: tuplets_iterator ): UInt64;

function tuplets_next_quintuplet( var it: tuplets_iterator ): UInt64;

function tuplets_next_sextuplet( var it: tuplets_iterator ): UInt64;

Types

PUInt64 = ˆUInt64;

PInt64 = ˆInt64;

Constants

_PRIMESIEVE_VERSION = '7.7';

_PRIMESIEVE_VERSION_MAJOR = 7;

_PRIMESIEVE_VERSION_MINOR = 7;

_PRIMESIEVE_PAS_VERSION = '0.5.1';

_PRIMESIEVE_PAS_VERSION_MAJOR = 0;

_PRIMESIEVE_PAS_VERSION_MINOR = 5;

_PRIMESIEVE_PAS_VERSION_PATCH = 1;

_PRIMESIEVE_ERROR = not UInt64(0);

INT16_PRIMES = 8;

UINT16_PRIMES = 9;

INT32_PRIMES = 10;

UINT32_PRIMES = 11;

INT64_PRIMES = 12;

UINT64_PRIMES = 13;

Description

Functions and Procedures

function primesieve_generate_primes( start, stop: UInt64; var size: NativeUInt; ptype: Integer ): Pointer; cdecl; external LIB_PRIMESIEVE name LIB_FNPFX + 'primesieve_generate_primes';

Get an array with the primes inside the interval [start, stop].

Parameters

size: The size of the returned primes array.
ptype: The type of the primes to generate, e.g. INT_PRIMES32.

function primesieve_generate_n_primes( n: UInt64; start: UInt64; ptype: Integer ): Pointer; cdecl; external LIB_PRIMESIEVE name LIB_FNPFX + 'primesieve_generate_n_primes';

Get an array with the first n primes >= start.

Parameters

ptype: The type of the primes to generate, e.g. INT_PRIMES32.

function primesieve_nth_prime( n: Int64; start: UInt64 ): UInt64; cdecl; external LIB_PRIMESIEVE name LIB_FNPFX + 'primesieve_nth_prime';

Find the nth prime. By default all CPU cores are used, use primesieve_set_num_threads to change the number of threads.

Note that each call to primesieve_nth_prime incurs an initialization overhead of O(sqrt(start)) even if n is tiny. Hence it is not a good idea to use primesieve_nth_prime repeatedly in a loop to get the next (or previous) prime. For this use case it is better to use a primesieve_iterator which needs to be initialized only once.

Parameters

n: if n = 0 finds the 1st prime >= start,
if n > 0 finds the nth prime > start,
if n < 0 finds the nth prime < start (backwards).

function primesieve_count_primes( start, stop: UInt64 ): UInt64; cdecl; external LIB_PRIMESIEVE name LIB_FNPFX + 'primesieve_count_primes';

Count the primes within the interval [start, stop]. By default all CPU cores are used, use primesieve_set_num_threads to change the number of threads.

Note that each call to primesieve_count_primes incurs an initialization overhead of O(sqrt(stop)) even if the interval [start, stop] is tiny. Hence if you have written an algorithm that makes many calls to primesieve_count_primes it may be preferable to use a primesieve_iterator which needs to be initialized only once.

function primesieve_count_twins( start, stop: UInt64 ): UInt64; cdecl; external LIB_PRIMESIEVE name LIB_FNPFX + 'primesieve_count_twins';

Count the twin primes within the interval [start, stop].