板 1- 前 次 新 ﾚｽ
吐露スレ１３
[676]名無しさん(ザコ)：2007/09/10(月) 23:16:53 ID:GaN6OEUI0
if (Len(Args(1) + Len(Args(2)) < 15 then
return (Args(1) * Args(2))
endif
if Len(Args(1)) > 7 then
num[1,1] = Right(Args(1),7)
num[1,2] = Left(Args(1),(Len(Args(1)) - 7))
else
num[1,1] = Args(1)
endif
if Len(Args(2)) > 7 then
num[2,1] = Right(Args(2),7)
num[2,2] = Left(Args(2),(Len(Args(2)) - 7))
else
num[2,1] = Args(2)
endif
ans[1] = num[1,1] * num[2,1]
if ans[1] > (10 ^ 7) then
ans[2] = ans[1] \ (10 ^ 7)
endif
incr ans[2] (num[1,2] * num[2,1] + num[1,1] * num[2,2])
if ans[2] > (10 ^ 7) then
ans[3] = ans[2] \ (10 ^ 7)
endif
incr ans[3] (num[1,2] * num[2,2])
if ans[3] > 0 then
return "$(ans[3])$(Right(ans[2],7))$(Right(ans[1],7))"
else
return "$(ans[2])$(Right(ans[1],7))"
endif
確実に何箇所か処理が抜けてるけどもう飽きた、と吐露
前 次
0ch BBS 2005-06-05