Apply a callback to an array: Difference between revisions
Content added Content deleted
Alextretyak (talk | contribs) m (→{{header|11l}}) |
|||
Line 2,773: | Line 2,773: | ||
return val * 2; |
return val * 2; |
||
});</lang> |
});</lang> |
||
=={{header|SQL PL}}== |
|||
{{works with|Db2 LUW}} version 9.7 or higher. |
|||
With SQL PL: |
|||
<lang sql pl> |
|||
--#SET TERMINATOR @ |
|||
SET SERVEROUTPUT ON @ |
|||
BEGIN |
|||
DECLARE TYPE NUMBERS AS SMALLINT ARRAY[5]; |
|||
DECLARE NUMBERS NUMBERS; |
|||
DECLARE I SMALLINT; |
|||
SET I = 1; |
|||
WHILE (I <= 5) DO |
|||
SET NUMBERS[I] = I; |
|||
SET I = I + 1; |
|||
END WHILE; |
|||
BEGIN |
|||
DECLARE PROCEDURE PRINT_SQUARE ( |
|||
IN VALUE SMALLINT |
|||
) |
|||
BEGIN |
|||
CALL DBMS_OUTPUT.PUT(VALUE * VALUE || ' '); |
|||
END; |
|||
SET I = 1; |
|||
WHILE (I <= 5) DO |
|||
CALL PRINT_SQUARE(NUMBERS[I]); |
|||
SET I = I + 1; |
|||
END WHILE; |
|||
CALL DBMS_OUTPUT.PUT_LINE(''); |
|||
END; |
|||
END @ |
|||
</lang> |
|||
Output: |
|||
<pre> |
|||
db2 -td@ |
|||
db2 => BEGIN |
|||
... |
|||
db2 (cont.) => END @ |
|||
DB20000I The SQL command completed successfully. |
|||
1 4 9 16 25 |
|||
</pre> |
|||
=={{header|Standard ML}}== |
=={{header|Standard ML}}== |