[過去ﾛｸﾞ] 高校数学の質問スレ Part434 (1002ﾚｽ)
上下前次1-新

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

225: 2024/04/16(火)10:27 ID:zrlvndwL(2/6) AAS
登録すればテキストベースのWolframScriptが使えるので
ダウンロードしてインストール
Rに移植して遊ぶ

正整数 n を b 進法の数列にして出力するWolframの関数　IntegerDigits

Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.

In[1]:= IntegerDigits[2024,2]

Out[1]= {1, 1, 1, 1, 1, 1, 0, 1, 0, 0, 0}

IntegerDigitsをRにone-linerとして移植

IntegerDigits=\(n,b) (n%/% (b^(floor(log(n)/log(b)):0))) %% b
> IntegerDigits(2024,2)
[1] 1 1 1 1 1 1 0 1 0 0 0

再度、RからWolframにone-linerとして再移植

In[2]:= integerdigits[n_,b_] := Table[Mod[e,b],{e, Table[Quotient[n,d],{d,Table[b^c,{c,Reverse[Range[0,Floor[Log[n]/Log[b]]]]}]}] }]

In[3]:= integerdigits[2024,2]

Out[3]= {1, 1, 1, 1, 1, 1, 0, 1, 0, 0, 0}

---

上下前次1-新書関写板覧索設栞歴

---

あと 777 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.014s