seppdroid/Digital-Research-Source-Code
1
0
Fork 0
mirror of https://github.com/SEPPDROID/Digital-Research-Source-Code.git synced 2025-10-23 16:34:07 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Upload

Browse Source 
Digital Research
This commit is contained in:
Sepp J Morris
2020-11-06 18:50:37 +01:00
parent 621ed8ccaf
commit 31738079c4
8481 changed files with 1888323 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
SAMPLE CODE/PLI PROG SAMPLE CODE/RFACT.PLI Normal file
View File

@@ -0,0 +1,24 @@
/******************************************************/
/* This program evaluates the Factorial function (n!) */
/* using recursion. */
/******************************************************/
rfact:
procedure options(main);
declare
i fixed;
do i = 0 repeat(i+1);
put skip list('factorial(',i,')=',factorial(i));
end;
stop;
factorial:
procedure(i) returns(fixed) recursive;
declare
i fixed;
if i = 0 then return (1);
return (i * factorial(i-1));
end factorial;
end rfact;