RosettaCodeData/Task/Introspection/Mathematica/introspection-2.math
2023-07-01 13:44:08 -04:00

2 lines
176 B
Text

globalintegers = Symbol /@ Select[Names["Global`*"], IntegerQ[Symbol[#]] &];
Print [ globalintegers //Length, " global integer(s) and their sum is: ", globalintegers // Total]