Rosetta Code

Apply a callback to an array: Difference between revisions

Page Discussion

Apply a callback to an array (view source)

Revision as of 02:32, 26 August 2023

69 bytes added ,  8 months ago
→‎{{header|COBOL}}: fixed to standard USAGEs
imported>Acediast
(→‎{{header|COBOL}}: fixed to standard USAGEs)
Line 797:
 
=={{header|COBOL}}==
{{Works with|COBOL 2002}}
 
Basic implementation of a map function:
<syntaxhighlight lang="cobol"> IDENTIFICATION DIVISION.
PROGRAM-ID. Mapmap.
 
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Table-Size CONSTANT 30.▼
 
LOCAL-STORAGE SECTION.
01 Ii USAGE UNSIGNED-INTIS INDEX.
▲ 01 Tabletable-Sizesize CONSTANT AS 30.
 
LINKAGE SECTION.
01 Tabletable-Paramparam.
03 Tabletable-Valuesvalues USAGE COMPIS FLOAT-2LONG OCCURS Tabletable-Sizesize TIMES.
01 Funcfunc-Idid PIC PICTURE IS X(30).▼
 
▲ 01 Func-Id PIC X(30).
 
PROCEDURE DIVISION USING TableBY REFERENCE table-Paramparam, Funcfunc-Idid.
PERFORM VARYING Ii FROM 1 BY 1 UNTIL Table-Sizei <GREATER ITHAN table-size
CALL Funcfunc-Idid USING BY REFERENCE Tabletable-Values values(Ii)
END-PERFORM
GOBACK.
 
END PROGRAM GOBACKmap.</syntaxhighlight>
.</syntaxhighlight>
 
=={{header|CoffeeScript}}==
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/348181"