6 lines
186 B
Text
6 lines
186 B
Text
isprme(n):= catch(
|
|
for k: 2 thru sqrt(n) do if mod(n, k)=0 then throw(false),
|
|
true);
|
|
|
|
map(isprme, [2, 3, 4, 65, 100, 181, 901]);
|
|
/* [true, true, false, false, false, true, false] */
|