RosettaCodeData/Task/100-doors/Mathematica/100-doors-4.math
2015-02-20 00:35:01 -05:00

1 line
74 B
Text

Do[Print["door ",i," is ",If[IntegerQ[Sqrt[i]],"open","closed"]],{i,100}]