- プログラミングのお題スレ Part6©2ch.net
788 ：デフォルトの名無しさん[sage]：2015/03/30(月) 01:26:13.82 ID:+lKo0XBW - >>754 Octave
function n = a2n(a)
n = polyval([a - 64], 26);
end
function a = n2a(n)
a = "";
while n > 0
a = [mod(n - 1, 26) + 65, a];
n = fix((n - 1) / 26);
end
end
> a2n("DBA")
ans = 2757
> n2a(125)
ans = DU
| - プログラミングのお題スレ Part6©2ch.net
789 ：デフォルトの名無しさん[sage]：2015/03/30(月) 17:27:10.65 ID:+lKo0XBW - >>754 Julia
function a2n(a)
n = 0
for i= 1:length(a)
n = n * 26 + int(a[i]) - 64
end
return n
end
function n2a(n)
a = ""
while n > 0
a = string(char((n - 1) % 26 + 65)) * a
n = div(n - 1, 26)
end
return a
end
julia> a2n("DAB")
2732
julia> n2a(125)
"DU"
| - プログラミングのお題スレ Part6©2ch.net
800 ：デフォルトの名無しさん[sage]：2015/03/30(月) 23:44:44.71 ID:+lKo0XBW - >>791 >>797 Julia
julia> for i=1000:9999 if i*3/4+1==i%1000*10+div(i,1000) println(i)end end
4324
|
|