RosettaCodeData/Task/Primality-by-trial-division/Maple/primality-by-trial-division-3.maple
2023-07-01 13:44:08 -04:00

2 lines
141 B
Text

> N := 10000: evalb( select( TrialDivision, [seq]( 1 .. N ) ) = select( isprime, [seq]( 1 .. N ) ) );
true