RosettaCodeData/Task/Introspection/Lingo/introspection-3.lingo
2023-07-01 13:44:08 -04: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