RosettaCodeData/Task/Introspection/Mathematica/introspection-2.math

3 lines
176 B
Text
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
globalintegers = Symbol /@ Select[Names["Global`*"], IntegerQ[Symbol[#]] &];
Print [ globalintegers //Length, " global integer(s) and their sum is: ", globalintegers // Total]