18 lines
412 B
Text
18 lines
412 B
Text
function placecoma(a as string) {
|
|
if len(a)<4 then =a :exit
|
|
k=StrRev$(a)
|
|
a=""
|
|
for i=4 to len(k) step 3
|
|
a+=mid$(k,i-3, 3)+","
|
|
next
|
|
a+=mid$(k, i-3)
|
|
a=strrev$(a)
|
|
if left$(a,1)="," then =mid$(a,2) else =a
|
|
}
|
|
|
|
a=bigInteger("2")
|
|
'method a, "intpower", biginteger("128") as a
|
|
method a, "intpower", biginteger("64") as a
|
|
method a, "multiply", a as a
|
|
with a,"tostring" as a.tostring
|
|
Print placecoma(a.tostring)
|