- lcdiv2.mos: Recursive function calls
- primefct.mos: function returning a set
- qsort1.mos: 'forward' definition of subroutines
- qsort2.mos: Overloading of subroutines
- shsortfct.mos: Function returning an array
- subrout.mos: Local and global declarations
Further explanation of this example:
'Mosel User Guide', Chapter 9 Functions and procedures
(!******************************************************
Mosel User Guide Example Problems
=================================
file lcdiv2.mos
```````````````
Recursive function calls.
(c) 2008 Fair Isaac Corporation
author: S. Heipcke, 2001
*******************************************************!)
model Lcdiv2
function lcdiv(A,B:integer):integer
if(A=B) then
returned:=A
elif(A>B) then
returned:=lcdiv(B,A-B)
else
returned:=lcdiv(A,B-A)
end-if
end-function
declarations
A,B: integer
end-declarations
write("Enter two integer numbers:\n A: ")
readln(A)
write(" B: ")
readln(B)
writeln("Largest common divisor: ", lcdiv(A,B))
end-model
