[過去ﾛｸﾞ]
プログラミングのお題スレ Part20 (1002ﾚｽ)
プログラミングのお題スレ Part20 http://mevius.5ch.net/test/read.cgi/tech/1624028577/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
1: デフォルトの名無しさん [sage] 2021/06/19(土) 00:02:57.84 ID:MQWrKSb7 プログラミングのお題スレです。 【出題と回答例】 1 名前：デフォルトの名無しさん お題：お題本文 2 名前：デフォルトの名無しさん >>1 使用言語 回答本文 結果がある場合はそれも 【ソースコードが長くなったら】 (オンラインでコードを実行できる) https://ideone.com/ http://codepad.org/ http://compileonline.com/ http://rextester.com/runcode https://runnable.com/ https://code.hackerearth.com/ http://melpon.org/wandbox https://paiza.io/ 宿題は宿題スレがあるのでそちらへ。 ※前スレ プログラミングのお題スレ Part19 https://mevius.5ch.net/test/read.cgi/tech/1606662245/ http://mevius.5ch.net/test/read.cgi/tech/1624028577/1
973: デフォルトの名無しさん [] 2022/11/10(木) 20:50:26.16 ID:m98zu82a input.replace(/[^A-Z]/g,"") + input.replace(/[^a-z]/g,"") + input.replace(/[^0-9]/g,"") + input.replace(/[A-Za-z0-9]/g,"") http://mevius.5ch.net/test/read.cgi/tech/1624028577/973
974: デフォルトの名無しさん [] 2022/11/10(木) 20:51:12.57 ID:m98zu82a [/[^A-Z]/g, /[^a-z]/g, /[^0-9]/g, /[A-Za-z0-9]/g] .map(r => input.replace(r,"")).join("") http://mevius.5ch.net/test/read.cgi/tech/1624028577/974
975: 971 [] 2022/11/10(木) 21:10:50.60 ID:V5vZiHvW >>944オーバーフローせずにできた https://ideone.com/EzCu8k http://mevius.5ch.net/test/read.cgi/tech/1624028577/975
976: デフォルトの名無しさん [sage] 2022/11/10(木) 21:27:26.89 ID:p27a51fr >>944 Haskell https://ideone.com/2tUIFo import Data.Ratio hnn n = flip mod 10 $ truncate $ (* ( 10^n)) $ sum $ map recip [ 1%1..n%1 ] main = print $ hnn 300 http://mevius.5ch.net/test/read.cgi/tech/1624028577/976
977: デフォルトの名無しさん [] 2022/11/10(木) 21:45:52.91 ID:KPTSzoDK お題 小数点第n位を求めるプログラムを作成せよ http://mevius.5ch.net/test/read.cgi/tech/1624028577/977
978: デフォルトの名無しさん [sage] 2022/11/10(木) 21:58:11.94 ID:JknzoKCK >>977 何の？ http://mevius.5ch.net/test/read.cgi/tech/1624028577/978
979: デフォルトの名無しさん [sage] 2022/11/11(金) 12:27:18.79 ID:eQP0gwqb ルート4の http://mevius.5ch.net/test/read.cgi/tech/1624028577/979
980: デフォルトの名無しさん [sage] 2022/11/11(金) 13:33:07.98 ID:XogJxnoW そんなむず過ぎるお題は過疎るのだ却下 http://mevius.5ch.net/test/read.cgi/tech/1624028577/980
981: デフォルトの名無しさん [] 2022/11/11(金) 18:36:58.77 ID:Jm4DMnci >>978 入力された実数 http://mevius.5ch.net/test/read.cgi/tech/1624028577/981
982: デフォルトの名無しさん [] 2022/11/11(金) 20:10:51.65 ID:+Uq9lyYZ (x*10**n)%10 http://mevius.5ch.net/test/read.cgi/tech/1624028577/982
983: デフォルトの名無しさん [] 2022/11/12(土) 01:53:40.01 ID:Y/i2pfZ3 お題 配列データと、同じ長さの確率の配列（合計値1）が与えられた時に、対応する確率で配列からデータを出力せよ 例 aa,bb,cc 0.4,0.5,0.1 →aa 40%, bb 50%, cc 10%で出力 http://mevius.5ch.net/test/read.cgi/tech/1624028577/983
984: デフォルトの名無しさん [sage] 2022/11/12(土) 08:50:36.22 ID:yCEPOpQl >>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 http://mevius.5ch.net/test/read.cgi/tech/1624028577/984
985: デフォルトの名無しさん [sage] 2022/11/12(土) 10:10:20.03 ID:g2vYgSbJ >>983 Haskell https://ideone.com/UErkR7 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 http://mevius.5ch.net/test/read.cgi/tech/1624028577/985
986: デフォルトの名無しさん [sage] 2022/11/12(土) 10:19:35.32 ID:uOtU06vW >>983 octave https://ideone.com/mIKDyu f = @(a, r) a(rand < cumsum(r))(1); http://mevius.5ch.net/test/read.cgi/tech/1624028577/986
987: デフォルトの名無しさん [sage] 2022/11/12(土) 14:34:06.57 ID:Q9bJaddO >>983 ocaml https://ideone.com/aDR0Do 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 http://mevius.5ch.net/test/read.cgi/tech/1624028577/987
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
989: デフォルトの名無しさん [sage] 2022/11/12(土) 17:19:40.29 ID:MirHjvCf >>983 別名法とかいうアルゴリズム https://ideone.com/J0p12R http://mevius.5ch.net/test/read.cgi/tech/1624028577/989
990: デフォルトの名無しさん [sage] 2022/11/12(土) 19:13:20.80 ID:MirHjvCf https://ideone.com/8utmEg 元からあったコードをちょっといじったんだけど変換ミスがあった http://mevius.5ch.net/test/read.cgi/tech/1624028577/990
991: デフォルトの名無しさん [] 2022/11/13(日) 18:45:40.25 ID:zjrUNZaB >>983 Kotlin https://paiza.io/projects/dh1A84MN5OxLQkw7r2yL7Q http://mevius.5ch.net/test/read.cgi/tech/1624028577/991
992: デフォルトの名無しさん [sage] 2022/11/13(日) 19:01:26.14 ID:ZCYlhUwL 次スレ プログラミングのお題スレ Part21 https://mevius.5ch.net/test/read.cgi/tech/1668333636/ http://mevius.5ch.net/test/read.cgi/tech/1624028577/992
993: デフォルトの名無しさん [] 2022/11/15(火) 08:06:01.58 ID:XL64sJsG うめ http://mevius.5ch.net/test/read.cgi/tech/1624028577/993
994: デフォルトの名無しさん [sage] 2022/11/15(火) 09:22:13.74 ID:x0rg5fHd お題：1辺がn文字の正四角形を表示せよ 1 <= n <= 8 とする http://mevius.5ch.net/test/read.cgi/tech/1624028577/994
995: デフォルトの名無しさん [sage] 2022/11/15(火) 10:16:55.01 ID:V1sKjJZc haskell https://ideone.com/4Kd3el 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 http://mevius.5ch.net/test/read.cgi/tech/1624028577/995
996: デフォルトの名無しさん [sage] 2022/11/15(火) 20:16:12.10 ID:r20LvnA2 >>994 octave https://ideone.com/k9cAWw function s = f(n) s = repmat('#', n); s(2:end-1, 2:end-1) = ' '; end http://mevius.5ch.net/test/read.cgi/tech/1624028577/996
997: デフォルトの名無しさん [] 2022/11/17(木) 21:39:57.15 ID:BbSHYj/y うめ http://mevius.5ch.net/test/read.cgi/tech/1624028577/997
998: デフォルトの名無しさん [] 2022/11/17(木) 21:40:03.49 ID:BbSHYj/y うめ http://mevius.5ch.net/test/read.cgi/tech/1624028577/998
999: デフォルトの名無しさん [] 2022/11/17(木) 21:40:08.22 ID:BbSHYj/y うめ http://mevius.5ch.net/test/read.cgi/tech/1624028577/999
1000: デフォルトの名無しさん [] 2022/11/17(木) 23:04:00.66 ID:W9+RkUIs 竹 http://mevius.5ch.net/test/read.cgi/tech/1624028577/1000
1001: 1001 [] ID:Thread このスレッドは１０００を超えました。 新しいスレッドを立ててください。 life time: 516日 23時間 1分 3秒 http://mevius.5ch.net/test/read.cgi/tech/1624028577/1001
1002: 1002 [] ID:Thread 5ちゃんねるの運営はプレミアム会員の皆さまに支えられています。 運営にご協力お願いいたします。 ─────────────────── 《プレミアム会員の主な特典》 ★ 5ちゃんねる専用ブラウザからの広告除去 ★ 5ちゃんねるの過去ログを取得 ★ 書き込み規制の緩和 ─────────────────── 会員登録には個人情報は一切必要ありません。 月300円から匿名でご購入いただけます。 ▼ プレミアム会員登録はこちら ▼ https://premium.5ch.net/ ▼ 浪人ログインはこちら ▼ https://login.5ch.net/login.php http://mevius.5ch.net/test/read.cgi/tech/1624028577/1002
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.012s