RosettaCodeData/Task/Primality-by-trial-division/Maple/primality-by-trial-division-3.maple
Ingy döt Net b83f433714 tasks a-s
2013-04-10 23:57:08 -07:00

2 lines
141 B
Text

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