sasami19 wrote:

定義 (足される数)+(足す数)を求める
コスチュームを (足される数)にする
(足す数) 回繰り返す
次のコスチュームにする
end
[答え v] を (コスチューム #) にする

((((a) の[e^ v]::operators) * ((b) の[e^ v]::operators)) の[ln v]::operators)

((((2) * (((a) の[cos v]::operators) * ((b) の[cos v]::operators))) - (((a) - (b)::operators) の[cos v]::operators)) の[acos v]::operators)

Wikipedia wrote:

パスカルの三角形の最も単純な性質として、以下のようなものがある。

頂上から右下・左下の方向へ並ぶ数字はすべて1である。
2段目の 1 から右下・左下の方向（すべて1の方向を除く。以下同じ）には自然数の列が現れる。
3段目の 1 から右下・左下の方向には三角数の列が現れる。
4段目の 1 から右下・左下の方向には三角錐数の列が現れる。
5段目の 1 から右下・左下の方向には五胞体数の列が現れる。
一般的に n 段目の 1 から右下・左下の方向には n − 1 次元単体数が現れる。

sasami19 wrote:

#2762
そうですが、それを言ってしまえばkouryou118103さんの投稿も同じです。
あくまで「自然数の足し算ならこんなものもあるよ」と言っただけです。

sasami19 wrote:

#2754
スプライトを用意して、無限個のコスチュームを用意します（）
（略）

xiangyeng wrote:

問題です。

(() + ())

を使わずに、以下の続きにスクリプトをつけたして、足し算が出来るようなスクリプトにしてください。

定義 (足される数)+(足す数)を求める

(想定解は何個もありますので、もうこの問題が答えられていても、頭をひねって考えてみてください!)

(() から () までの乱数)

((any v) 番目（ [list v] ） :: list)

[どこか v] へ行く

定義 [最小値]から[最大値]までの乱数を変数nに代入

定義 乱数 (最小値) (最大値)
[乱数 v] を (((48271) * (乱数)) を (2147483647) で割った余り) にする
[n v] を ((最小値) + ((乱数) を (((最大値) - (最小値)) + (1)) で割った余り)) にする

定義 乱数 (最小値) (最大値)
[n v] を (0) にする
[i v] を (0) にする
(((((最大値) - (最小値)) + (1)) の [log v]::operators) の [切り上げ v]::operators) 回繰り返す
[乱数さい(20面ダイス)を振り、その出目を入力してください] と聞いて待つ
[n v] を ((答え) * ((i) の [10^ v]::operators)) ずつ変える
[i v] を (1) ずつ変える
end
[n v] を ((n) を (((最大値) - (最小値)) + (1)) で割った余り) にする
[n v] を (最小値) ずつ変える

定義 [最小値]から[最大値]までの乱数を変数nに代入
[n v] を (((最小値) + (((最大値) - (最小値)) * (((タイマー) * [100]) を (1) で割った余り))) を四捨五入) にする

(((min) + (((max) - (min)) * ((((13) の [10 ^ v]) * ((タイマー)を (1) で割った余り)) を (1) で割った余り))) を四捨五入)

dj-YakoChite wrote:

ぱっと見 規則性は見えず，相加平均は約49305.73で (最大+最小)/2 ぐらいだったので，成功と言えるでしょう．

dj-YakoChite wrote:

#2776の指摘を受けて#2775のプログラムを試行してみた結果，
0 ~ 100 の乱数を生成しようとしたところ，一の位がすべて0になっていました．

そのため，下のように修正をしました．

(中略)

最小値を0，最大値を100000とし，3000回実行して(3000回キーボードを連打しました．疲れた)リストに記録したところ，
ぱっと見 規則性は見えず，相加平均は約49305.73で (最大+最小)/2 ぐらいだったので，成功と言えるでしょう．

私 wrote:

3000回実行して(3000回キーボードを連打しました．疲れた)