RosettaCodeData/Task/Self-describing-numbers/LiveCode/self-describing-numbers-2.livecode

10 lines
203 B
Text
Raw Permalink Normal View History

2016-12-05 23:44:36 +01:00
on mouseUp
repeat with n = 0 to 10000000
if selfDescNumber(n) then
put n into selfNum[n]
end if
end repeat
combine selfNum using comma
put selfNum
end mouseUp