Lua - The Call to Adventure(reduce, for loop, factorial)

Seven More Languages
in Seven Weeks

開発環境

• OS X El Capitan - Apple (OS)
• Emacs (Text Editor)
• Lua (プログラミング言語)

Seven More Languages in Seven Weeks (Bruce Tate (著)、Ian Dees (著)、Frederic Daoud (著)、Jack Moffitt (著)、Pragmatic Bookshelf)のChapter 1(Lua)、Day 1(The Call to Adventure)、Do (Hard)(No. 668).を取り組んでみる。

Do (Hard)(No. 668)

コード(Emacs)

function reduce(max, init, f)
   for i = 1, max do
      init = f(init, i)
   end
   return init
end

function add(previous, next)
   return previous + next
end

function mul(previous, next)
   return previous * next
end

function factorial(n)
   return reduce(n, 1, mul)
end

print(reduce(5, 0, add))
for num = 0, 10 do
   print(factorial(num))
end

入出力結果(Terminal)

$ lua sample_hard.lua
15
1
1
2
6
24
120
720
5040
40320
362880
3628800
$