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