OPAL (OPtimized Applicative Language) is a functional programming language first developed at the Technical University of Berlin.
This is an example OPAL program, which calculates the GCD recursively.
SIGNATURE GCD FUN GCD: nat ** nat -> nat
IMPLEMENTATION GCD IMPORT Nat COMPLETELY DEF GCD(a,b) == IF a % b = 0 THEN b ELSE IF a-b < b THEN GCD(b,a-b) ELSE GCD(a-b,b) FI FI
By: Wikipedia.org
Edited: 2021-06-18 18:15:03
Source: Wikipedia.org