blob: 695366297dc5ce9f70496ae96a78374de987a7d9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
OVERLOAD FUNCTION Score(X : INTEGER) RETURNS INTEGER
RETURN 3 * X + 1
ENDFUNCTION
OVERLOAD FUNCTION Score(X : REAL) RETURNS BOOLEAN
RETURN X < 0.0
ENDFUNCTION
OVERLOAD FUNCTION Score(Text : STRING) RETURNS INTEGER
RETURN LENGTH(Text) + 100
ENDFUNCTION
OVERLOAD FUNCTION Score(X : INTEGER, Y : INTEGER) RETURNS INTEGER
RETURN 17 * X + Y
ENDFUNCTION
OVERLOAD PROCEDURE Score(BYREF Value : INTEGER, BYVAL Delta : INTEGER, Repetitions : INTEGER)
Value <- Value + Delta * Repetitions
ENDPROCEDURE
|
