summaryrefslogtreecommitdiffstats
path: root/tests/tc999_projects/factorial.awl
blob: 8b5259face1d97739b8f88433b18c72ae4f14419 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
ORGANIZATION_BLOCK OB 1
BEGIN
	
	CALL FC 1 (
		N	:= 0,
		RET_VAL	:= MD 0,
	)
	__ASSERT==	MD 0, L#1
	
	CALL FC 1 (
		N	:= 1,
		RET_VAL	:= MD 0,
	)
	__ASSERT==	MD 0, L#1
	
	CALL FC 1 (
		N	:= 2,
		RET_VAL	:= MD 0,
	)
	__ASSERT==	MD 0, L#2
	
	CALL FC 1 (
		N	:= 3,
		RET_VAL	:= MD 0,
	)
	__ASSERT==	MD 0, L#6
	
	CALL FC 1 (
		N	:= 4,
		RET_VAL	:= MD 0,
	)
	__ASSERT==	MD 0, L#24
	
	CALL FC 1 (
		N	:= 5,
		RET_VAL	:= MD 0,
	)
	__ASSERT==	MD 0, L#120
	
	CALL FC 1 (
		N	:= 6,
		RET_VAL	:= MD 0,
	)
	__ASSERT==	MD 0, L#720
	
	CALL FC 1 (
		N	:= 7,
		RET_VAL	:= MD 0,
	)
	__ASSERT==	MD 0, L#5040
	
	CALL FC 1 (
		N	:= 8,
		RET_VAL	:= MD 0,
	)
	__ASSERT==	MD 0, L#40320
	
	CALL FC 1 (
		N	:= 9,
		RET_VAL	:= MD 0,
	)
	__ASSERT==	MD 0, L#362880
	
	CALL FC 1 (
		N	:= 10,
		RET_VAL	:= MD 0,
	)
	__ASSERT==	MD 0, L#3628800
	
	CALL FC 1 (
		N	:= 11,
		RET_VAL	:= MD 0,
	)
	__ASSERT==	MD 0, L#39916800
	
	CALL FC 1 (
		N	:= 12,
		RET_VAL	:= MD 0,
	)
	__ASSERT==	MD 0, L#479001600
	
	
	CALL SFC 46 // STOP CPU
END_ORGANIZATION_BLOCK


FUNCTION FC 1 : DINT
	TITLE	= Calculate the factorial of #N
	
	VAR_INPUT
		N	: INT;
	END_VAR
	VAR_TEMP
		N_TMP	: INT;
		R_TMP	: DINT;
	END_VAR
BEGIN
	// If #N is 0 or 1, #RET_VAL is 1 and recursion ends.
	L	#N
	L	1
	T	#RET_VAL
	<=I
	BEB
	
	// Subtract 1 from #N
	-I
	T	#N_TMP
	
	// Recurse: Calculate (#N - 1)!
	CALL	FC 1 (
		N	:= #N_TMP,
		RET_VAL	:= #R_TMP,
	)
	
	// Multiply: (#N - 1)! * #N
	L	#R_TMP
	L	#N
	*D
	T	#RET_VAL
	BE
END_FUNCTION
bues.ch cgit interface