暇つぶし2chat MATH - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト900:１３２人目の素数さん 24/05/06 06:10:23.25 xxhQy/YG.net R言語でプログラムを作ってWolfram言語の同等機能関数(paste0はStringJoinなど）を検索して移植すると ForやIfを含むコードになるなぁ。Table関数とかが操れるとWolframぽいのだが。 901:１３２人目の素数さん 24/05/06 06:43:25.09 xxhQy/YG.net >>868 検索していたらRealDigitsという関数あったので、これを使って ２行に短縮 f[x_] := If[x==0,"0",{"1","2","3","4","5","6","7","8","9","A","J","Q","K"}[[x]]]; StringJoin["0.",f /@ RealDigits[1/(14^^2024),14,2024][[1]]] 902:１３２人目の素数さん 24/05/06 06:54:21.98 xxhQy/YG.net 可読性を無視して無理やり１行に纏める。 StringJoin["0.",If[#==0,"0",{"1","2","3","4","5","6","7","8","9","A","J","Q","K"}[[#]]]& /@ RealDigits[1/(14^^2024),14,2024][[1]]] 出力結果の始めを抜粋 In[1]:= StringJoin["0.",If[#==0,"0",{"1","2","3","4","5","6","7","8","9","A","J","Q","K"}[[#]]]& /@ RealDigits[1/(14^^2024),14,2024][[1]]] Out[1]= 0.6K6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA56\ 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch