底辺私立医大を卒業した医者って頭悪いよね？ Part30

764 ：卵の名無しさん ：2024/05/05(日) 20:34:45.85 ID:94ULEsEqH.net

a=1/(14^^2024);
m=2024;
re={};
For[i=1,i<m,i++,(re=Append[re,Floor[a*14^i]]; a=a-(14^-i)*Floor[a*14^i];)];
f[x_] := If[x==0,"0",{"1","2","3","4","5","6","7","8","9","A","J","Q","K"}[[x]]]
StringJoin["0.",f /@ re]


0.0006 K6091387Q3007K4QA561AK
K6091387Q3007K4QA561AK
K6091387Q3007K4QA561AK
K6091387Q3007K4QA561AK
K6091387Q3007K4QA561AK
K6091387Q3007K4QA561AK
.....