9 lines
168 B
Text
9 lines
168 B
Text
pimct=. (4 * +/ % #)@:(1 >: |)@:(? j. ?)@:($&0)"0
|
|
|
|
(,. pimct) 10 ^ 3 + i.6
|
|
1000 3.168
|
|
10000 3.122
|
|
100000 3.13596
|
|
1e6 3.1428
|
|
1e7 3.14158
|
|
1e8 3.14154
|