プログラミングのお題スレ Part19

**デフォルトの名無しさん** · 2020/11/30(月) 00:04:05.21

プログラミングのお題スレです。

【出題と回答例】
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/

宿題は宿題スレがあるのでそちらへ。

※前スレ
プログラミングのお題スレ Part18
https://mevius.5ch.net/test/read.cgi/tech/1594702426/

**デフォルトの名無しさん** · 2021/01/02(土) 21:54:03.91

メモリが安くなったとはいえ
やはりメモリの制限は必要では?
無尽蔵にあるわけではないので

**蟻人間** ◆T6xkBnTXz7B0 · 2021/01/04(月) 22:40:39.15

お題: 四方に広がる無限のサイズの方眼紙があって、１マス１マスに一個のアラビア数字を一度だけ記入できる。
方眼紙に記録したデータの一部は「仮想画面」に出力できる。
マス(x, y)に数字dを記入することを「P(x, y, d)」と表すことにする(x, yは任意の整数)。
(a) 3桁の自然数が２つ与えられる。その足し算の筆算を実演するアルゴリズムを出力するプログラムを書け。
(b) 任意の自然数が２つ与えられる。(以下略)

**蟻人間** ◆T6xkBnTXz7B0 · 2021/01/04(月) 22:51:58.92

補記。

マス(x, y)にある数字を「P(x, y)」と表すことにする。マス(x, y)に数字がなければP(x, y)==0とする。

また、マス(x, y)に数字がなければE(x, y)==1とし、数字があればE(x, y)==0とする。

**デフォルトの名無しさん** · 2021/01/05(火) 22:28:39.68

お題: ランダムな数列を生成せよ
数列の長さは4 <= len <= 20とし、これもランダムとする

**デフォルトの名無しさん** · 2021/01/05(火) 22:36:13.47

>>163 Ruby 3.0

p Array.new(rand(17) + 4){rand * 1e32}

**デフォルトの名無しさん** · 2021/01/06(水) 10:45:40.05

>>163 js
const rand = (a, b) => Math.floor(Math.random() * (b - a + 1)) + a
const range = (n) => [...Array(n).keys()]
range(rand(4, 20)).map(Math.random)

**デフォルトの名無しさん** · 2021/01/06(水) 10:46:52.82

ruby 3 はどのくらい変わったの

**デフォルトの名無しさん** · 2021/01/06(水) 14:12:34.77

>>163
Kotlin または Kotlin script

以下は kotlinc コマンドで REPL で実行した時のコピー。
(先頭の >>> はプロンプト)

>>> (1..(4..20).random()).map { kotlin.random.Random.nextInt() }
res0: kotlin.collections.List<kotlin.Int> = [1712097059, 2034192723, -1232228362, 634194098, 1788814029, -1878195330, -2043751487, 933285281, 1116738696, -934057871, -1657983454, -1761832713, -1836302098, -902578867, -1306790359, 1824207694, 386095401, -389307033, 380242891, -2028767653]
>>>

実行結果は何処にも出力しようとしてしていないが REPL なので自動で出力されている。

**デフォルトの名無しさん** · 2021/01/06(水) 19:38:44.63

>>163 Ruby
# こんな意味だと解釈した
puts ( '%020b' % rand(1<<20) )[ 0, 4+rand(17) ] # ( 2進) '0000'-'00000000000000000000'..'1111'-'11111111111111111111'
puts ( '%020d' % rand(1e20) )[ 0, 4+rand(17) ] # (10進) '0000'-'00000000000000000000'..'9999'-'99999999999999999999'

**デフォルトの名無しさん** · 2021/01/06(水) 23:58:46.35

お題
アルファベットの開始の文字、アルファベットの終了の文字を
入力としてうけとり下記のように文字列を出力してください

入力: a,k
出力:
a
ab
abc
abcd
abcde
abcdef
abcdefg
abcdefgh
abcdefghi
abcdefghij
abcdefghijk

**デフォルトの名無しさん** · 2021/01/07(木) 00:11:25.06

意味不明な途中省く
sh & perl5
echo "a,k" | perl -lane 'm/(\w),(\w)/; print ($1..$2)'
abcdefghijk

**デフォルトの名無しさん** · 2021/01/07(木) 00:20:29.22

省いちゃダメなの!

**デフォルトの名無しさん** · 2021/01/07(木) 00:29:54.66

>>169
Haskell

import Data.List

consecutiveAlph a z = tail $ inits $ [ a .. z ]
main = mapM_ putStrLn $ consecutiveAlph 'a' 'k'
----
a
ab
abc
abcd
abcde
abcdef
abcdefg
abcdefgh
abcdefghi
abcdefghij
abcdefghijk

**(u＿・y)** · 2021/01/07(木) 00:56:12.00

>>169
# Ruby3.0
x = ("a".."k")
x.inject{
p _1
_1 + _2
}

**デフォルトの名無しさん** · 2021/01/07(木) 02:01:24.63

>>169 Common Lisp
https://ideone.com/yWJWQf

参考:
CLHS: Section 13.1.6 Ordering of Characters
http://www.lispworks.com/documentation/HyperSpec/Body/13_af.htm

9 · 2021/01/07(木) 02:13:26.61

>>169 Perl5

@a = split',', <>;
print($a[0]..$_, "\n") for $a[0]..$a[1];

実行結果
~ $ echo 'a,k' | perl 19_169_a,k.pl
a
ab
abc
abcd
abcde
abcdef
abcdefg
abcdefgh
abcdefghi
abcdefghij
abcdefghijk

9 · 2021/01/07(木) 02:17:47.93

つか、これでよかったわ

@a = eval <>;
print($a[0]..$_, "\n") for $a[0]..$a[1];

**デフォルトの名無しさん** · 2021/01/07(木) 11:50:26.21

お題
オセロのようなルールでひっくり返しを行う処理を実装せよ

変数のイメージ
0 = 置かれてない場所
1 = 黒
2 = 白
3 = 今のターンで置いた黒

入力：01202113112120
出力：01202222222120

**デフォルトの名無しさん** · 2021/01/07(木) 11:52:33.15

ちょい訂正
3 = 今のターンで置いた白だった

**デフォルトの名無しさん** · 2021/01/07(木) 12:05:34.54

>>177
それやと1が置かれたのか2が置かれたのかわからないのでは？
0123120のとき
1が置かれたとして0111120になるのか
2が置かれたとして0122220になるのか
わからない

**デフォルトの名無しさん** · 2021/01/07(木) 12:06:14.88

あ、1=3=黒なのね
失礼しました

**デフォルトの名無しさん** · 2021/01/07(木) 12:32:35.52

>>177
haskell

twosTurn x = let
( pre, ( '3' : post ) ) = span (/='3') x
revOne y = let
( pre02 , post02 ) = span ( == '1' ) $ y ++ "0"
twos = zipWith const ( repeat '2' ) pre02
in if ( head post02) == '0'
then y
else take ( length y ) ( twos ++ post02 )
revOne' = reverse . revOne . reverse
in ( revOne' pre ) ++ "2" ++ ( revOne post )

sample = "01202113112120"

main = print $ twosTurn sample

**デフォルトの名無しさん** · 2021/01/07(木) 12:50:45.25

>>177 Ruby
board = '01202113112120'
puts board
puts board.sub( /2(1*)3(1*)2/ ){ "2#{'2'* ($1.size)}2#{'2' * $2.size}2" }

**182** · 2021/01/07(木) 13:05:54.80

>>182 は間違いでした
board = '01202113112120'
puts board
puts board.sub( /2(1*)3/ ){ "2#{'2'* ($1.size)}3" }.sub( /3(1*)2/ ){ "3#{'2'* ($1.size)}2" }.tr( '3', '2' )

**デフォルトの名無しさん** · 2021/01/07(木) 20:21:05.95

仕様を出来るだけ簡潔にしたかったんだろうけどやり過ぎてモヤる
下位から
第1bit 駒有無
第2　　駒種別
第3　　now flag
として
0:駒無し
1:白, 3:黒
5:白now, 7:黒now

と置いてnowの結果を出力の方が良くね

**デフォルトの名無しさん** · 2021/01/07(木) 21:58:01.92

この問題の本命は、オセロを作るっていうお題にしたつもりじゃないからｗ
スレに居る人はオセロくらい作ったことある人しかいないと思っているし
ゲームのアルゴリズムの一端を文字列処理として見るのも可能っていう点な

**デフォルトの名無しさん** · 2021/01/08(金) 02:42:54.86

>>184
お前がそういうお題を新たに出せば良い。

**デフォルトの名無しさん** · 2021/01/08(金) 07:57:49.81

>>184 Ruby
board = [0b000,0b011,0b001,0b000,0b001,0b011,0b011,0b101,0b011,0b011,0b001,0b011,0b001,0b000].pack('C*')
if board["\x05"]
board = board.sub( /\01(\03*)\x05/ ){ "\01#{"\01"* ($1.size)}\x05" }.sub( /\x05(\x03*)\x01/ ){ "\x05#{"\x01"* ($1.size)}\x01" }.tr( "\x05", "\x01" )
else
board = board.sub( /\03(\01*)\x07/ ){ "\03#{"\03"* ($1.size)}\x07" }.sub( /\x07(\x01*)\x03/ ){ "\x07#{"\x03"* ($1.size)}\x03" }.tr( "\x07", "\x03" )
end
puts board.unpack('C*').map{|b| '0b%03b' % b.ord }.join(',')
#=>0b000,0b011,0b001,0b000,0b001,0b001,0b001,0b001,0b001,0b001,0b001,0b011,0b001,0b000

**デフォルトの名無しさん** · 2021/01/08(金) 21:29:33.72

>>169 octave
https://ideone.com/li5G9s
f = @(b, e) arrayfun(@(e) {b:e}, b:e);
f('a', 'k')

**デフォルトの名無しさん** · 2021/01/09(土) 02:47:05.51

>>169
Kotlin
https://paiza.io/projects/_TeqzWrnHegnQ0TTkyQQ9Q

**デフォルトの名無しさん** · 2021/01/09(土) 03:00:30.54

>>169
Perl5

コマンドラインからこんな風に入力して実行する。(実際に試した shell は bash)

perl -ne 'chomp;@d=split/,/;print join("\n", map { join("", $d[0]..$_) } $d[0]..$d[1])."\n";'

**デフォルトの名無しさん** · 2021/01/09(土) 03:18:08.87

>>140
Kotlin

https://paiza.io/projects/gkGJm8-S7pj5AVhPu5JWtA

できたことはできたが、なんか奇麗じゃないね。

**デフォルトの名無しさん** · 2021/01/09(土) 08:04:43.95

>>169 Ruby
def f(a,b)
(a..b).map{|c| [*a..c]*""}
end
puts f("a","k")

**デフォルトの名無しさん** · 2021/01/09(土) 20:59:35.76

>>163
Java
https://paiza.io/projects/7I9Xp20LlqAq-SbQPFmdTA

**デフォルトの名無しさん** · 2021/01/09(土) 21:04:47.77

>>143
Java
https://paiza.io/projects/86Fk6Eo8cM3VVl_FtgDLUw?language=java

**デフォルトの名無しさん** · 2021/01/09(土) 21:40:06.97

>>169
Bash
https://paiza.io/projects/HhXsE6Yq5nFJfmwJNniCCw?language=bash

**デフォルトの名無しさん** · 2021/01/09(土) 23:28:46.26

お題
N個の時系列データが与えられる。i番目のデータはa_iである
i=1～Nについて、以下の条件を満たすx_iを出力せよ
x_i : 直近c個でa_iが最大となるようなcのうち、最大のもの

[入力]
N
a_1 a_2 ... a_N

[出力]
x_1 x_2 ... x_N

(例1)
5
3 1 2 6 6
=> 1 1 2 4 5

3 = max(3)
1 = max(1) //今までの中で最小
2 = max(1, 2) //直近2個で最大
6 = max(3, 1, 2, 6) //直近4個で最大 (直近3個でも最大だが、cの値として最大のものを選ぶ)
6 = max(3, 1, 2, 6, 6) //直近5個で最大(最大タイ)

(例2)
3
100 10 1
=> 1 1 1

**デフォルトの名無しさん** · 2021/01/10(日) 03:36:08.11

上田隆一

シェル芸勉強会問題一覧
https://b.ueda.tech/?page=00684

色々な問題が掲載されている。
問題作りのヒントになるかも

**デフォルトの名無しさん** · 2021/01/10(日) 05:17:09.34

>>169 bat
@echo off &setlocal
set ALL=abcdefghijklmnopqrstuvwxyz
call :RANGE a,k
pause &exit /b

:RANGE
setlocal enabledelayedexpansion
if "%1" GTR "%2" echo ERROR: Invalid argument&exit /b
set STR=!ALL:*%1=%1!
if not "%2"=="z" call set STR=%%STR:!ALL:*%2=!=%%
:LENGTH
set /a n+=1
if not "!STR:~0,-%n%!"=="" goto :LENGTH
for /L %%n in (1,1,%n%) do echo !STR:~0,%%n!

**デフォルトの名無しさん** · 2021/01/10(日) 09:32:44.37

>>196
完全に全く意味がわからないお題を久々に見た

**デフォルトの名無しさん** · 2021/01/10(日) 09:35:06.95

あ、イヤわかった最小はタイポか

**デフォルトの名無しさん** · 2021/01/10(日) 09:41:46.50

>>163 octave
https://ideone.com/GX9hjP
f = @() rand(randi([4 20]), 1);

**デフォルトの名無しさん** · 2021/01/10(日) 09:45:08.12

>>196
haskell

import Data.List

c = id
. map length
. map (\x -> takeWhile ( <= ( last x ) ) . reverse $ x)
. tail
. inits

main = do
print $ c [ 3, 1, 2, 6, 6 ]
----
[1,1,2,4,5]

**デフォルトの名無しさん** · 2021/01/10(日) 13:04:37.47

>>196
Java
https://paiza.io/projects/P5uIlZBMLt_cFSzjdkHApQ

**デフォルトの名無しさん** · 2021/01/11(月) 00:16:30.88

196読めた奴すごいな

**158** · 2021/01/11(月) 02:25:11.67

>>143
Kotlin

>>194のJavaのやつを見て>>158のKotlinのやつを改造した。

https://paiza.io/projects/iNRMUv2Annc6YFqJjAO4wg

要するに >>158 を作っている時に String#codePoints() に気付いていなくて自作してしまったということだが、
Java 8 から追加されたメソッドのようなので、>>158は古い JVM ライブラリでも動くということではある。

**デフォルトの名無しさん** · 2021/01/11(月) 02:44:15.64

お題
>>196を小学生にも理解できるぐらいのやさしい日本語に翻訳せよ。

**デフォルトの名無しさん** · 2021/01/11(月) 03:09:40.17

無理です
チンパンカンプン

**デフォルトの名無しさん** · 2021/01/11(月) 03:11:51.27

このスレの住人なら日本語分からなくても例だけ見れば普通に理解できるだろ
IQテストみたいなもんだ

**デフォルトの名無しさん** · 2021/01/11(月) 03:26:31.03

>>206
こういう事じゃない？
入力値が遡って比較する最大個数と値を兼ねてるんでしょ
同値ならindex(1始まり)の大きい方

入力:3 1 2 6 6 4
3　[(3)] →1
1　[3 (1)] →1
2　[3 (1 2)] →2
6　[(3 1 2 6)] →4
6　[(3 1 2 6 6)] →5
4　[3 1 (2 6 6 4)] →3

**デフォルトの名無しさん** · 2021/01/11(月) 03:36:50.19

>>209
最後の4違うぞ
入力:3 1 2 6 6 4
3　[(3)] →1
1　[3 (1)] →1
2　[3 (1 2)] →2
6　[(3 1 2 6)] →4
6　[(3 1 2 6 6)] →5
4　[3 1 2 6 6 (4)] →1

x_iは要素数。上の例でいうと()の中の数が何個あるかってこと。で、(右から)直近の要素の中での最大値が一番右の数字になるのは最大でいくつかってこと。
一番下の4のケースでは次の6を含んでしまうとMAXが4にはならないので要素数1で打ち止め。

**デフォルトの名無しさん** · 2021/01/11(月) 12:34:34.25

現在地から前に遡って見ていって自分と同じか小さい要素が続く数を
最初から最後まで求めるだけ
もっと早く一発で求める方法があるかは分からないけど

**デフォルトの名無しさん** · 2021/01/11(月) 12:57:43.66

>>206
長さ N の整数列 A が与えられる
A の連続した部分列であって、各 i (1≦i≦N) について次の条件を満たすものをすべて求めなさい
・整数 j (1≦j≦i) を max(A_j, A_{j+1}, ..., A_i) = A_i を満たす最小の j とし i - j + 1 の値

**デフォルトの名無しさん** · 2021/01/11(月) 13:02:19.99

最高水準位アルゴリズムで
最高値更新したら発表？

**デフォルトの名無しさん** · 2021/01/11(月) 14:52:41.81

>>196 C++ O(N log N)
セグメント木を使うと区間 max の二分探索を O(log N) で行える
atcoder の aclib を使用
https://wandbox.org/permlink/8rm8MsauDMJhvpAf

**デフォルトの名無しさん** · 2021/01/11(月) 15:14:59.89

>>214
しゅんごい

**デフォルトの名無しさん** · 2021/01/14(木) 09:22:07.11

お題
将棋のルールで可能な最初の2手を全て求める。

**デフォルトの名無しさん** · 2021/01/14(木) 11:00:00.08

なるほど
(∞,0)のみからなるリストから始めて(-値、インデックス)についての辞書式順序(ただしインデックスは降順)でリストに追加していくと考えればいいのか
i番目の要素(v,i)が来た時(u,h)<(w,j)の間に入るならvより大きい最大のインデックスはjだからi番目の出力はi-jになるのか

◆QZaw55cn4c · 2021/01/14(木) 18:33:59.62

>>216
すてきなお題ですね！

**デフォルトの名無しさん** · 2021/01/14(木) 19:35:36.96

>>216
先手後手ともに可能性が３０通りあるのでそれらを単純に組み合わせて出力すれば良い

**デフォルトの名無しさん** · 2021/01/14(木) 19:43:46.53

3手なら面白いけど2手ならつまらんな

**デフォルトの名無しさん** · 2021/01/16(土) 10:11:02.80

最初の初期状態の配置ならつまらんね
途中経過のどの状態からでもすべての2手(3手でもいいよ！）を出力とかなら
本格的な将棋プログラム組まないと導き出せない

**デフォルトの名無しさん** · 2021/01/16(土) 19:29:58.68

投了も一手ですか

**デフォルトの名無しさん** · 2021/01/19(火) 19:16:59.47

iZ-Cでサンプルログラムを書き始めました見てね
https://sunasunax.hatenablog.com

**デフォルトの名無しさん** · 2021/01/22(金) 23:33:42.04

お題：sortしてreverseしてforeachせよ
https://ideone.com/35HTkC
List(7, 8, 3, 6, 4).sorted.reverse.foreach(print)

**224** · 2021/01/22(金) 23:35:12.02

>>224 rust
https://ideone.com/SY2DMY
fn main() {
let mut v = [7, 8, 3, 6, 4];
v.sort();
v.reverse();
v.iter().for_each(|x| println!("{}", x));
}
>>224 dart
https://ideone.com/w26D8S
void main() {
var a = [7, 8, 3, 6, 4];
a.sort();
a.reversed.forEach(print);
}

**224** · 2021/01/22(金) 23:37:05.96

>>224 ocaml
https://ideone.com/bitFC6
List.iter print_int (List.rev (List.sort Pervasives.compare [7; 8; 3; 6; 4]))

>>224 ruby
https://ideone.com/K14REi
[7, 8, 3, 6, 4].sort.reverse.each(&method(:p))

>>224 octave
https://ideone.com/E2DoUr
arrayfun(@disp, flip(sort([7 8 3 6 4])))

**デフォルトの名無しさん** · 2021/01/23(土) 01:20:49.53

>>224 C++
for (auto i : multiset<int, greater<int>>({ 7, 8, 3, 6, 4 })) cout << i << endl;

9 · 2021/01/23(土) 02:47:09.23

>>224 Perl5

print reverse sort qw(7 8 3 6 4);

実行結果
$ perl 19_224.pl
87643

9 · 2021/01/23(土) 02:50:17.66

>>224 Perl5、foreach も要るんやったね…

print foreach reverse sort qw(7 8 3 6 4);

実行結果
$ perl 19_224.pl
87643

**デフォルトの名無しさん** · 2021/01/23(土) 08:37:55.12

>>224 Bash
cat <<EOS | sort -r | while read v; do echo ${v}; done
7
8
3
6
4
EOS

>>224 Ruby
[7, 8, 3, 6, 4].sort_by(&:-@).each{p _1}

**デフォルトの名無しさん** · 2021/01/23(土) 09:17:41.00

>>229
> print foreach reverse sort

perlってこんな気持ちいい書き方できる言語やったんけ
正直恐れ入った

**デフォルトの名無しさん** · 2021/01/23(土) 19:28:56.89

お題: 俺のチ〇コの長さ分だけfor文でカウントしてカウント変数を出力せよ

**デフォルトの名無しさん** · 2021/01/23(土) 19:32:36.06

print "9"

**デフォルトの名無しさん** · 2021/01/23(土) 20:01:06.10

>>232
perl

for ($i = 0; $i < 1; $i += 0.1) { print "$i\n" }

**蟻人間** ◆T6xkBnTXz7B0 · 2021/01/23(土) 21:37:12.62

お題: 日付をYYYYMMDD形式で表したとき、それを表す整数が今日より後に素数になる日付を求めなさい。

**デフォルトの名無しさん** · 2021/01/23(土) 23:19:53.94

それを表す整数とは？

**デフォルトの名無しさん** · 2021/01/24(日) 22:28:15.93

>>224
Kotlin script

kotlinc コマンドで REPL にして直接入力して実行した時のコピー。(>>> はプロンプト)
出力は println() を使って1つづつ改行させた。

>>> listOf(7, 8, 3, 6, 4).sorted().reversed().forEach { println(it) }
8
7
6
4
3
>>>

**デフォルトの名無しさん** · 2021/01/25(月) 14:58:49.27

お題:
整数 N が与えられます
長さ N の正整数列 A_1, ..., A_N であって以下の条件を満たす lcm(A_1, ..., A_N) が最小のものを求めなさい
・gcd(A_1, A_2) * gcd(A_2, A_3) * ... * gcd(A_{N-1}, A_N) * gcd(A_N, A_1) = lcm(A_1, ..., A_N)

制約:
3≦N≦4000

例:
入力: 5
出力: 6 15 35 77 22

**デフォルトの名無しさん** · 2021/01/25(月) 16:12:04.01

逆じゃね

**デフォルトの名無しさん** · 2021/01/25(月) 17:27:32.13

>>238 perl
print join ' ', (1) x $ARGV[0];

**デフォルトの名無しさん** · 2021/01/25(月) 17:53:44.58

A の全ては互いに異なる
を入れ忘れた

**デフォルトの名無しさん** · 2021/01/25(月) 17:58:02.52

Aiの制約で....

Aiが異なる正整数なら
　N=5 [1,2,4,8,64] ->lcm=64

Ai>=3 なら
　N=5 [5,7,14,6,15] -> lcm=210(=1*2*3*5*7)
　　　(同じlcmで数列は複数作れる)

※あの例はどういう条件だろう

**デフォルトの名無しさん** · 2021/01/25(月) 18:08:39.30

>>238
gcd とか lcm って何?

**デフォルトの名無しさん** · 2021/01/25(月) 18:09:29.39

すいません...
素数を小さい順に組み合わせて 2*3, 3*5, 5*7, 7*11, 11*2
とすると綺麗に数列が作れていいなーと思って投稿したのですが、最小ではなかったようです...
このお題は無かったことに

**デフォルトの名無しさん** · 2021/01/25(月) 18:10:17.78

あ、わかった。ググったら一発で出た。

**デフォルトの名無しさん** · 2021/01/25(月) 18:11:02.14

分かった途端に終了、か・・・

**デフォルトの名無しさん** · 2021/01/25(月) 18:14:04.63

没入感

**デフォルトの名無しさん** · 2021/01/25(月) 19:20:16.85

お題、灘中入試っぽい問題

開始点S から、終点G まで、最短距離9 で移動する方法は、何通りあるか？

移動は右か下へ、1ずつ移動できるが、* は通れない所である。
数字は通れる所で、単に分かりやすくするために座標を書いただけで、移動コストではない

S23456
12*456
1234*6
123456
12345G

**デフォルトの名無しさん** · 2021/01/25(月) 19:34:10.13

プログラムなら実際に駒動かしてかぞえるの？

なんか、足し算引き算で出来そうだよね、

**デフォルトの名無しさん** · 2021/01/25(月) 20:22:00.10

別名おねえさん問題

**デフォルトの名無しさん** · 2021/01/25(月) 20:24:55.52

∴>>250
その心は？

**デフォルトの名無しさん** · 2021/01/25(月) 21:25:54.70

>>248 sh
echo 48

#やっぱ計算しなきゃダメ？

**248** · 2021/01/25(月) 21:35:28.96

お姉さん問題なら、

Ruby で、そのライブラリを使って解いてみて

**248** · 2021/01/25(月) 21:48:23.33

超高速グラフ列挙アルゴリズム〈フカシギの数え方〉おねえさん問題

BDD/ZDD の湊真一が、北大から京大大学院の教授へと出世してる

**デフォルトの名無しさん** · 2021/01/25(月) 21:53:57.03

https://ideone.com/b2CQ5a
48ってなったからあってるのかな適当に作ったけど

**デフォルトの名無しさん** · 2021/01/26(火) 00:35:19.40

お題：
これ出題してみるか。

黒板に1～nの自然数が一つずつ書かれている。
二人でかわりばんこに次のルールで黒板に書かれた自然数を消していくゲームをする：
・自分の番のとき、黒板に残っている数から一つ選び、
　その数及びその数の約数をすべて消す。
・自分の番で黒板の数をすべて消し去ったとき勝者となる。

実はこのゲームはnによらず先攻必勝であるが、初手をどう打つかを判断するのは簡単でない。
1～30のすべての自然数nについて、後攻を勝たせないために初手で先攻が選ぶことができる数をプログラム中で5秒以内に計算し、すべて列挙せよ。

**デフォルトの名無しさん** · 2021/01/26(火) 00:44:35.83

1～30ならデータベース化してしまえばなんとかなるな

**デフォルトの名無しさん** · 2021/01/26(火) 01:03:48.09

>>255
簡単にするとこんな感じ？
https://ideone.com/UlFSdj

**デフォルトの名無しさん** · 2021/01/26(火) 05:34:51.12

>>248
9C4 - 3C1 * 6C3 - 6C2 * 3C1 + 3C1 * 3C1 * 3C1 = 48

**デフォルトの名無しさん** · 2021/01/26(火) 12:22:51.81

>>248
お受験風にdpで数え上げる

Haskell

test1 = ""
++ "┏┳━┳┳┓\n"
++ "┣┫ ┣┻┫\n"
++ "┣╋┳┫ ┃\n"
++ "┣╋╋╋┳┫\n"
++ "┗┻┻┻┻┛\n"

to01 = let
parseC c = if c == '\x2001' then 0 else 1
parseL = map ( parseC )
in map parseL . lines
cntRoots posCrs = let
z y x = zipWith ( * ) y $ zipWith ( + ) x $ ( 0 : ) $ z y x
rs = id
$ ( ( 1 : ( repeat 0 ) ) : )
$ zipWith z posCrs rs
in rs
nRoots = last . last . cntRoots

main = print $ nRoots $ to01 test1
----
48