RosettaCodeData/Task/Introspection/Lingo/introspection-3.lingo
2016-12-05 23:44:36 +01:00

10 lines
139 B
Text

cnt = 0
sum = 0
repeat with v in the globals
if integerP(v) then
cnt = cnt + 1
sum = sum + v
end if
end repeat
put cnt
put sum