6 lines
156 B
Factor
6 lines
156 B
Factor
USING: kernel math monads prettyprint ;
|
|
FROM: monads => do ;
|
|
|
|
{ 3 4 5 }
|
|
>>= [ 1 + array-monad return ] swap call
|
|
>>= [ 2 * array-monad return ] swap call .
|