Факториал в Oz

Пример для версий Mozart 1.4.0

Используется итеративное определение факториала.

functor
 
import
   Application System

define 

local
   F
in
   F = {NewCell 1}
   for I in 0..16 do
       {System.showInfo {Append {Append {Int.toString I} "! = "} {Int.toString @F}}}
       F := (I+1) * @F
   end
   {Application.exit 0}
end

end

Факториал в Oz

Комментарии