[過去ログ]
プログラミングのお題スレ Part20 (1002レス)
プログラミングのお題スレ Part20 http://mevius.5ch.net/test/read.cgi/tech/1624028577/
上
下
前次
1-
新
通常表示
512バイト分割
レス栞
抽出解除
必死チェッカー(本家)
(べ)
自ID
レス栞
あぼーん
このスレッドは過去ログ倉庫に格納されています。
次スレ検索
歴削→次スレ
栞削→次スレ
過去ログメニュー
988: デフォルトの名無しさん [sage] 2022/11/12(土) 16:47:04.36 ID:We3Ba5Li >>983 コレでよかった Haskell https://ideone.com/WtPXzw 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 rds <- ( return . randomDbls ) =<< getStdGen print $ map (chooseItem ['A'..'C' ] [0.4,0.5,0.1] ) $ take 100 rds http://mevius.5ch.net/test/read.cgi/tech/1624028577/988
メモ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.818s*