RosettaCodeData/Task/100-doors/Mathematica/100-doors-7.math
2023-07-01 13:44:08 -04:00

1 line
60 B
Text

Pick[Range[100], Xor@@@Array[Divisible[#1,#2]&, {100,100}]]