4 lines
106 B
Text
4 lines
106 B
Text
|
sbase =: %:@(2p1&%) * %&1x1 ^ ]
|
||
|
|
scorr =: 1 1r12 1r288 _139r51840 _571r2488320&p.@%
|
||
|
|
stirlg=: sbase * scorr
|