RosettaCodeData/Task/Introspection/Mathematica/introspection-2.math
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07: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]