aocla/examples/map.aocla

// This is a commented version of the implementation of 'map' inside
// the standard library.

[(l f) // list and function to apply
    $l len (e)  // Get list len in "e"
    0 (j)       // j is our current index
    []          // We will populate this empty list
    [$j $e <] [
        $l $j get@
        $f upeval
        swap ->
        $j 1 + (j)
    ] while
] 'map def

[1 2 3] [dup *] map
printnl