|
FUNCTION nondecreasing (lr : LIST [0:?] OF REAL) : BOOLEAN; IF NOT EXISTS ( lr ) THEN RETURN ( FALSE ) ; END_IF ; REPEAT j := 2 TO SIZEOF ( lr ) ; IF lr [ j ] < lr [ j - 1 ] THEN RETURN ( FALSE ) ; END_IF ; END_REPEAT ; RETURN ( TRUE ) ; END_FUNCTION; -- nondecreasing |
|
public class FNondecreasing public static Value run(SdaiContext _context, Value lr) |