3 lines
68 B
Text
3 lines
68 B
Text
piMC=: monad define "0
|
|
4* y%~ +/ 1>: %: +/ *: <: +: (2,y) ?@$ 0
|
|
)
|
piMC=: monad define "0
|
|
4* y%~ +/ 1>: %: +/ *: <: +: (2,y) ?@$ 0
|
|
)
|