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

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