Plain text C C# C++ Go Haskell HTML Java JavaScript Jinja2 JSX Markdown Perl PHP PostgreSQL Python 3 Raku Rust Sh SQL SQLite TypeScript TypeScript-JSX Share (delete after 24 hours) Share array[10] integer array_t; procedure main () array_t arr; integer i; { call naturals(arr); call map(lambda (integer val x) -> integer { return x * x; }, arr, arr); call for_each(lambda (integer val x) { write x; write " "; }, arr); writeln ""; } procedure naturals (array_t arr) integer i; { while i < 10 do arr[i] <- i; i <- i + 1; od } procedure for_each (procedure (integer val x) consumer, array_t arr) integer i; { while i < 10 do call consumer(arr[i]); i <- i + 1; od } procedure map (procedure (integer val x) -> integer unary_op, array_t in, array_t out) integer i; integer x; { while i < 10 do out[i] <- unary_op(in[i]); i <- i + 1; od }