RosettaCodeData/Task/Self-describing-numbers/LiveCode/self-describing-numbers-2.livecode
2016-12-05 23:44:36 +01:00

9 lines
203 B
Text

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