challenge-238/deadmarshal/lua/ch-2.lua


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

#!/usr/bin/env lua

local function product(n)
  assert(type(n) == 'number','n must be a number!')
  local prod = 1
  while n > 0 do
    prod = prod * (n % 10)
    n = n // 10
  end
  return prod
end

local function helper(n)
  assert(type(n) == 'number','n must be a number!')
  local sum = 0
  repeat
    sum = sum + 1
    n = product(n)
  until n < 10
  return sum
end

local function persistence_sort(t)
  assert(type(t) == 'table','t must be a table!')
  table.sort(t,function(a,b) return helper(a) < helper(b) or
		 a < b end)
  print(table.unpack(t))
end

persistence_sort{15,99,1,34}
persistence_sort{50,25,33,22}