Descending primes: Difference between revisions
m
→{{header|ALGOL W}}: The procedure should, of course be called descending_primes...
(Added Algol W) |
m (→{{header|ALGOL W}}: The procedure should, of course be called descending_primes...) |
||
Line 213:
% number of descending primes - primes must be big enough, e.g. have 511 %
% elements %
procedure
; integer result lenPrimes
) ;
begin
integer array digits ( 1 :: 9 );
Line 232:
end for_i ;
quickSort( primes, 1, lenPrimes );
end
begin % find the descending primes and print them %
integer array primes ( 1 :: 512 );
integer lenPrimes;
for i := 1 until lenPrimes do begin
writeon( i_w := 8, s_w := 0, " ", primes( i ) );
| |||