[過去ﾛｸﾞ] プログラミングのお題スレ Part20 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡
1(5): 2021/06/19(土)00:02 ID:MQWrKSb7(1) AAS
プログラミングのお題スレです。
【出題と回答例】
1 名前：デフォルトの名無しさん
お題：お題本文
2 名前：デフォルトの名無しさん
>>1 使用言語
回答本文
結果がある場合はそれも
【ソースコードが長くなったら】 (オンラインでコードを実行できる)
外部ﾘﾝｸ:ideone.com
外部ﾘﾝｸ:codepad.org
外部ﾘﾝｸ:compileonline.com
外部ﾘﾝｸ:rextester.com
外部ﾘﾝｸ:runnable.com
外部ﾘﾝｸ:code.hackerearth.com
外部ﾘﾝｸ:melpon.org
外部ﾘﾝｸ:paiza.io
宿題は宿題スレがあるのでそちらへ。
※前スレ
プログラミングのお題スレ Part19
2chｽﾚ:tech
973: 2022/11/10(木)20:50 ID:m98zu82a(1/2) AAS
input.replace(/[^A-Z]/g,"")
+ input.replace(/[^a-z]/g,"")
+ input.replace(/[^0-9]/g,"")
+ input.replace(/[A-Za-z0-9]/g,"")
974: 2022/11/10(木)20:51 ID:m98zu82a(2/2) AAS
[/[^A-Z]/g, /[^a-z]/g, /[^0-9]/g, /[A-Za-z0-9]/g]
.map(r => input.replace(r,"")).join("")
975: 971 2022/11/10(木)21:10 ID:V5vZiHvW(3/3) AAS
>>944オーバーフローせずにできた
外部ﾘﾝｸ:ideone.com
976: 2022/11/10(木)21:27 ID:p27a51fr(1) AAS
>>944
Haskell
外部ﾘﾝｸ:ideone.com
import Data.Ratio
hnn n = flip mod 10 $ truncate $ (* ( 10^n)) $ sum $ map recip [ 1%1..n%1 ]
main = print $ hnn 300
977(1): 2022/11/10(木)21:45 ID:KPTSzoDK(1) AAS
お題 小数点第n位を求めるプログラムを作成せよ
978(1): 2022/11/10(木)21:58 ID:JknzoKCK(1) AAS
>>977
何の？
979: 2022/11/11(金)12:27 ID:eQP0gwqb(1) AAS
ルート4の
980: 2022/11/11(金)13:33 ID:XogJxnoW(1) AAS
そんなむず過ぎるお題は過疎るのだ却下
981: 2022/11/11(金)18:36 ID:Jm4DMnci(1) AAS
>>978
入力された実数
982: 2022/11/11(金)20:10 ID:+Uq9lyYZ(1) AAS
(x*10**n)%10
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
ts = foldr folder [ ] ws
fs = 0 : ts
ifts = zip is $ zip fs ts
in fst $ head $ filter ( selecter r ) ifts
main = do
rds <- ( return . randomDbls ) =<< getStdGen
print $ map (chooseItem ['A'..'C' ] [0.4,0.5,0.1] ) $ take 100 rds
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
rds <- ( return . randomDbls ) =<< getStdGen
print $ map (chooseItem ['A'..'C' ] [0.4,0.5,0.1] ) $ take 100 rds
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円から匿名でご購入いただけます。
▼ プレミアム会員登録はこちら ▼
外部ﾘﾝｸ:premium.5ch.net
▼ 浪人ログインはこちら ▼
外部ﾘﾝｸ[php]:login.5ch.net
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ
ぬこの手 ぬこTOP 0.017s