Fusc sequence: Difference between revisions
Content added Content deleted
Drkameleon (talk | contribs) (Added Arturo implementation) |
MaiconSoft (talk | contribs) (Fix pascal version to run in delphi) |
||
| Line 1,873: | Line 1,873: | ||
sysutils; |
sysutils; |
||
const |
const |
||
{$IFDEF FPC} |
|||
MaxIdx =1253*1000*1000;//19573420; // must be even |
MaxIdx = 1253 * 1000 * 1000; //19573420; // must be even |
||
{$ELSE} |
|||
// Dynamics arrays in Delphi cann't be to large |
|||
MaxIdx = 19573420; |
|||
{$ENDIF} |
|||
type |
type |
||
tFuscElem = LongWord; |
tFuscElem = LongWord; |
||