100までの整数から素数を列挙せよ(Mathematica編)

Select[Range@100, PrimeQ]

で次が返ります。

{2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41,
43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97}

言語自体の強さとライブラリの充実度のどちらが利いているのかがわかりにくい例ですが。

キミならどう書く 2.0 – ROUND 1 –