プログラミングのお題スレ Part16

[516 デフォルトの名無しさん 2019/12/31(火) 12:24:58.82 ID:5aZymNkm]

>>515
Rは整数が32ビットまでで桁あふれするから、Juliaで書く。

F = Int64[1 1; 1 0]
n = (F ^ 80)[1, 2]

P = Int64[1 0; 0 1]
R = F
while n > 0
　　global r = n % 2
　　global n = div(n, 2)
　　if r > 0
　　　　global P = P * R .% 100000000
　　end
　　global R = R * R .% 100000000
end
println(P[1, 2])

-- 実行結果 --
21055810