5 lines
140 B
Factor
5 lines
140 B
Factor
|
1 1 + ! 2
|
||
|
|
[ + 1 1 ] reverse call ! 2
|
||
|
|
{ 1 2 3 4 5 } [ sq ] map ! { 1 4 9 16 25 }
|
||
|
|
[ map [ sq ] { 1 2 3 4 5 } ] reverse call ! { 1 4 9 16 25 }
|