mirror of
https://github.com/antirez/aocla
synced 2024-12-26 09:58:42 +01:00
17 lines
405 B
Text
17 lines
405 B
Text
// 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
|