## happy number

in lua

### Source Code

-- Happy Number implementation
-- See: http://en.wikipedia.org/wiki/Happy_number

-- Utility function
-- Returns the sums of squares of the digits of a number n
local function sumsq(n)
local ssq = 0
for d in tostring(n):gmatch('%d') do
local num_d = tonumber(d)
ssq = ssq + num_d * num_d
end
return ssq
end

-- Checks if the given number is a happy number
-- Note, it loops endlessly when n is not happy (i.e, n is a sad number)
-- n   : a number
-- returns : true if n is a happy number, false otherwise
return function(n)
while n > 1 do
n = sumsq(n)
end
return n==1
end
-- Tests for happy.lua
local is_happy = require 'happy'

local total, pass = 0, 0

local function dec(str, len)
return #str < len
and str .. (('.'):rep(len-#str))
or str:sub(1,len)
end

local function run(message, f)
total = total + 1
local ok, err = pcall(f)
if ok then pass = pass + 1 end
local status = ok and 'PASSED' or 'FAILED'
print(('%02d. %68s: %s'):format(total, dec(message,68), status))
end

local happy = {
1, 7, 10, 13, 19, 23, 28, 31, 32, 44,
49, 68, 70, 79, 82, 86, 91, 94, 97, 100,
103, 109, 129, 130, 133, 139, 167, 176,
188, 190, 192, 193, 203, 208, 219, 226, 230,
236, 239, 262, 263, 280, 291, 293, 301, 302, 310,
313, 319, 320, 326, 329, 331, 338, 356, 362, 365, 367,
368, 376, 379, 383, 386, 391, 392, 397, 404, 409, 440, 446,
464, 469, 478, 487, 490, 496, 536, 556, 563, 565, 566, 608, 617,
622, 623, 632, 635, 637, 638, 644, 649, 653, 655, 656, 665, 671, 673,
680, 683, 694, 700, 709, 716, 736, 739, 748, 761, 763, 784, 790, 793, 802,
806, 818, 820, 833, 836, 847, 860, 863, 874, 881, 888, 899, 901, 904, 907, 910,
912, 913, 921, 923, 931, 932, 937, 940, 946, 964, 970, 973, 989, 998, 1000,
}

run('Happy Numbers', function()
for _, n in ipairs(happy) do print('testing',n) assert(is_happy(n)) end
end)

print(('-'):rep(80))
print(('Total : %02d: Pass: %02d - Failed : %02d - Success: %.2f %%')
:format(total, pass, total-pass, (pass*100/total)))