Padovan sequence: Difference between revisions

# where s = 1.0453567932525329623 #

# and p = the "plastic ratio" #

pf *:= p

# returns the first 0..n L System strings of the Padovan sequence #

END; # PADOVANC #

# returns TRUE if a and b have the same values, FALSE otherwise #

OP = = ( []INT a, b )BOOL:

IF LWB a /= LWB b OR UPB a /= UPB b

THEN # rows are not the same size # FALSE

ELSE

BOOL result := TRUE;

FOR i FROM LWB a TO UPB a WHILE result := a[ i ] = b[ i ] DO SKIP OD;

result

FI; # = #

# returns the number of elements in a #

OP LENGTH = ( []INT a )INT: ( UPB a - LWB a ) + 1;

# returns the number of characters in s #

OP LENGTH = ( STRING s )INT: ( UPB s - LWB s ) + 1;

# returns a string representation of n #

OP TOSTRING = ( INT n )STRING: whole( n, 0 );

# generate 64 elements of the sequence and 32 L System values #

[]INT iterative = PADOVANI 64;

[]INT calculated = PADOVANC 64;

[]STRING l system = PADOVANL 32;

[ LWB l system : UPB l system ]INT l length;

FOR i FROM LWB l length TO UPB l length DO l length[ i ] := LENGTH l system[ i ] OD;

FOR i FROM LWB iterative TO 19 DO

print( ( " ", TOSTRING iterative[ i ] ) )

print( ( "The first "

, TOSTRING LENGTH iterative

, " iterative and calculated values "

, IF iterative = calculated THEN "are the same" ELSE "differ" FI

, newline

)

);

FOR i FROM LWB l system TO 9 DO

print( ( "The first "

, TOSTRING LENGTH l length

, " iterative values and L System lengths "

, IF l length = iterative[ LWB l length : UPB l length @ LWB l length ] THEN "are the same" ELSE "differ" FI

, newline

)

)

END

</lang>

The first 64 iterative and calculated values are the same

The first 32 iterative values and L System lengths are the same