Oz - gregorymorrison/euler1 GitHub Wiki

Oz

Euler1

% Euler1 in Oz

functor
import
    Application
    System

define
    fun {Euler1 N Acc}
        if N == 0 then Acc
        elseif N mod 3 == 0 then {Euler1 N-1 Acc+N}
        elseif N mod 5 == 0 then {Euler1 N-1 Acc+N}
        else {Euler1 N-1 Acc}
        end
    end

    {System.showInfo {Euler1 999 0}}

    {Application.exit 0}
end

http://www.compileonline.com/compile_mozart-oz_online.php

apt install mozart

$ ozc -c euler1.oz -o euler1.oza 2>&1
$ ozengine euler1.oza
233168
$