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

3 lines
176 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
globalintegers = Symbol /@ Select[Names["Global`*"], IntegerQ[Symbol[#]] &];
Print [ globalintegers //Length, " global integer(s) and their sum is: ", globalintegers // Total]