[過去ﾛｸﾞ] プログラミングのお題スレ Part20 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
1(5): 2021/06/19(土)00:02 ID:MQWrKSb7(1) AAS
プログラミングのお題スレです。
【出題と回答例】
1 名前：デフォルトの名無しさん
お題：お題本文
2 名前：デフォルトの名無しさん
>>1 使用言語
回答本文
結果がある場合はそれも
【ソースコードが長くなったら】 (オンラインでコードを実行できる)
外部ﾘﾝｸ:ideone.com
省11
983(7): 2022/11/12(土)01:53 ID:Y/i2pfZ3(1) AAS
お題
配列データと、同じ長さの確率の配列（合計値1）が与えられた時に、対応する確率で配列からデータを出力せよ
例
aa,bb,cc
0.4,0.5,0.1
→aa 40%, bb 50%, cc 10%で出力
984: 2022/11/12(土)08:50 ID:yCEPOpQl(1) AAS
>>983 Ruby
a = %w[aa bb cc]
p = [0.4, 0.5, 0.1]
f = -> (a, p) { r = rand; a[(0..a.size-2).find{ r < p[0.._1].sum } || a.size - 1] }
10.times{ print f[a, p] }
# => aabbccbbaaaaaabbbbbb
985: 2022/11/12(土)10:10 ID:g2vYgSbJ(1) AAS
>>983
Haskell
外部ﾘﾝｸ:ideone.com
import System.Random
import Data.List
randomDbls :: StdGen -> [ Double ]
randomDbls= randomRs (0,1)
chooseItem is ws r = let
folder a b = a : map ( + a ) b
selecter r ( i, ( f, t ) ) = f <= r && r < t
省7
986: 2022/11/12(土)10:19 ID:uOtU06vW(1) AAS
>>983 octave
外部ﾘﾝｸ:ideone.com
f = @(a, r) a(rand < cumsum(r))(1);
987: 2022/11/12(土)14:34 ID:Q9bJaddO(1) AAS
>>983 ocaml
外部ﾘﾝｸ:ideone.com
let (<<) f g x = f (g x)
let cumsum =
List.rev << fst << List.fold_left (fun (a, s) f -> s +. f :: a, s +. f) ([], 0.)
let f xs =
let r = Random.float 1. in
fst << List.find ((<) r << snd) << List.combine xs << cumsum
988: 2022/11/12(土)16:47 ID:We3Ba5Li(1) AAS
>>983
コレでよかった
Haskell
外部ﾘﾝｸ:ideone.com
import System.Random
randomDbls :: StdGen -> [ Double ]
randomDbls= randomRs (0,1)
chooseItem (i:is) (w:ws) r | r < w = i
chooseItem (i:is) (w:ws) r = chooseItem is ws ( r - w )
main = do
省2
989: 2022/11/12(土)17:19 ID:MirHjvCf(1/2) AAS
>>983
別名法とかいうアルゴリズム
外部ﾘﾝｸ:ideone.com
990: 2022/11/12(土)19:13 ID:MirHjvCf(2/2) AAS
外部ﾘﾝｸ:ideone.com
元からあったコードをちょっといじったんだけど変換ミスがあった
991: 2022/11/13(日)18:45 ID:zjrUNZaB(1) AAS
>>983
Kotlin
外部ﾘﾝｸ:paiza.io
992: 2022/11/13(日)19:01 ID:ZCYlhUwL(1) AAS
次スレ
プログラミングのお題スレ Part21
2chｽﾚ:tech
993: 2022/11/15(火)08:06 ID:XL64sJsG(1) AAS
うめ
994(1): 2022/11/15(火)09:22 ID:x0rg5fHd(1) AAS
お題：1辺がn文字の正四角形を表示せよ
1 <= n <= 8 とする
995: 2022/11/15(火)10:16 ID:V1sKjJZc(1) AAS
haskell
外部ﾘﾝｸ:ideone.com
sqStr n = ""
++ "\x250f" ++ r "\x2501" ++ "\x2513" ++ "\n"
++ r ( "\x2503" ++ r "\x2001" ++ "\x2503" ++ " \n" )
++ "\x2517" ++ r "\x2501" ++ "\x251b" ++ "\n"
where r = concat . replicate ( n-2 )
main = putStr $ sqStr 10
996: 2022/11/15(火)20:16 ID:r20LvnA2(1) AAS
>>994 octave
外部ﾘﾝｸ:ideone.com
function s = f(n)
s = repmat('#', n);
s(2:end-1, 2:end-1) = ' ';
end
997: 2022/11/17(木)21:39 ID:BbSHYj/y(1/3) AAS
うめ
998: 2022/11/17(木)21:40 ID:BbSHYj/y(2/3) AAS
うめ
999: 2022/11/17(木)21:40 ID:BbSHYj/y(3/3) AAS
うめ
1000: 2022/11/17(木)23:04 ID:W9+RkUIs(1) AAS
竹
1001(1): 1001 ID:Thread(1/2) AAS
このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 516日 23時間 1分 3秒
1002(1): 1002 ID:Thread(2/2) AAS
5ちゃんねるの運営はプレミアム会員の皆さまに支えられています。
運営にご協力お願いいたします。
───────────────────
《プレミアム会員の主な特典》
★ 5ちゃんねる専用ブラウザからの広告除去
★ 5ちゃんねるの過去ログを取得
★ 書き込み規制の緩和
───────────────────
会員登録には個人情報は一切必要ありません。
月300円から匿名でご購入いただけます。
省4
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.253s*