プログラミングのお題スレ Part22 (858ﾚｽ)
プログラミングのお題スレ Part22 http://mevius.5ch.net/test/read.cgi/tech/1691038333/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
179: デフォルトの名無しさん [] 2023/12/13(水) 09:27:48.18 ID:NbIWTS6w お題 ビールの空きビンをN本集めると新品のビール1本と交換してもらえる あなたが新品のビールをP本持っている そのとき、あなたが飲めるビールはR本である N, Pを引数としてRを返す関数を定義してください http://mevius.5ch.net/test/read.cgi/tech/1691038333/179
180: 17 [] 2023/12/13(水) 15:17:15.28 ID:WwinWAeQ >>179 Kotlin または Kotlin script fun beer(n: Int, p: Int) = p + p / n http://mevius.5ch.net/test/read.cgi/tech/1691038333/180
182: 17 [] 2023/12/13(水) 15:47:32.26 ID:WwinWAeQ >>179 Kotlin https://paiza.io/projects/1gGtpt6dxb6-vzoATj_Qkg 作り直した。 もっと簡略化できそうな感じもしたがやってない。何か画期的な計算方法やアルゴリズムに気付いたらまた作る。 http://mevius.5ch.net/test/read.cgi/tech/1691038333/182
183: デフォルトの名無しさん [sage] 2023/12/13(水) 18:37:32.11 ID:8Qa5an+7 >>179 Ruby def solution( n, m ) b = r = n while (k = b.div( m )) != 0 b += k - k * m r += k end r end solution( 5, 3 ) #=> 7 http://mevius.5ch.net/test/read.cgi/tech/1691038333/183
184: デフォルトの名無しさん [sage] 2023/12/14(木) 00:01:58.90 ID:WyfgSj4g >>179 https://ideone.com/tvmy6F let f n p = let rec aux r p q = if p = 0 then r else aux (r + p) ((p + q) / n) ((p + q) mod n) in aux 0 p 0 let () = print_int @@ f 3 5 ↓ 7 http://mevius.5ch.net/test/read.cgi/tech/1691038333/184
185: デフォルトの名無しさん [] 2023/12/14(木) 00:03:09.36 ID:uNhVrYF2 >>179 R R <- function(N, P) ((P - 1) * N) %/% (N - 1) + 1 http://mevius.5ch.net/test/read.cgi/tech/1691038333/185
186: 17 [] 2023/12/19(火) 15:39:00.18 ID:S/sB6wJe >>179 Kotin https://paiza.io/projects/yPf1W7SClD8GIOV1WD_5LQ 再帰にすればとても簡単だったことに、さっき気付いた。 http://mevius.5ch.net/test/read.cgi/tech/1691038333/186
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.042s