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

**デフォルトの名無しさん** · 2019/07/28(日) 19:39:57.54

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

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

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

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

**デフォルトの名無しさん** · 2019/08/06(火) 14:56:22.80

お題＠閑話休題。
https://ja.wikipedia.org/wiki/AKS素数判定法
AKSの実装。Prime is in P.
自分は挫折しました。数学解らない。

残骸：https://ideone.com/9e7Tyn

**デフォルトの名無しさん** · 2019/08/06(火) 14:57:44.83

>>70
そういえば、ソートする必要ないね。
書いてるときは保証できなかったから思いつきもしなかった。

**デフォルトの名無しさん** · 2019/08/06(火) 18:46:19.50

お題: スターリンソートを実装せよ

**デフォルトの名無しさん** · 2019/08/06(火) 19:06:50.12

>>73
seq 300|sort -R | perl -ne ' if ($. == 1){print ; $hold = $_} elsif ($_ > $hold) { print ; $hold = $_}'
140
145
231
246
248
270
272
281
298
299
300

**デフォルトの名無しさん** · 2019/08/06(火) 20:18:34.06

>>73
要素粛清しながら見た目がそろっているというギャグかいな。

**デフォルトの名無しさん** · 2019/08/06(火) 20:54:47.97

https://ideone.com/hhy72i
C++。よく生き残った我が精鋭たちよ。
ところで・・・。

**デフォルトの名無しさん** · 2019/08/07(水) 15:33:52.56

**デフォルトの名無しさん** · 2019/08/08(木) 00:35:30.37

>>73
しばらくお題がないとおちつかないな
seq 300|sort -R | perl -ne ' if ($. == 1 or $_ > $hold) { print ; $hold = $_}'

**デフォルトの名無しさん** · 2019/08/08(木) 10:41:16.59

>>73

ss = -> a {a.reduce([]){|r, e| r.first.nil? ? [e] : r.last < e ? r + [e] : r}}

p ss[[3,1,4,1,5,9,26,53,58,97,93,238]] # =>
[3, 4, 5, 9, 26, 53, 58, 97, 238]

**デフォルトの名無しさん** · 2019/08/09(金) 00:37:57.26

>>73 Perl5

use List::Util 'max';
@a = qw{3 1 4 1 5 9 26 53 58 97 93 238};
@b = grep {$n < $_ and $n = max($n, $_)} @a;
print "@b\n";

実行結果
~ $ perl 15_73.pl
3 4 5 9 26 53 58 97 238

**蟻人間** ◆T6xkBnTXz7B0 · 2019/08/09(金) 00:53:52.15

お題: 太陽系の各天体の位置を物理シミュレーションし、64日後の地球の位置を求めよ。

**蟻人間** ◆T6xkBnTXz7B0 · 2019/08/09(金) 01:17:32.06

俺たちって計算能力でコペルニクスを超えられると思う？ NASAのデータがあるから昔よりも楽だと思うけど。

**デフォルトの名無しさん** · 2019/08/09(金) 01:27:37.54

>>73 Perl5、 >>80 よりこっちの方が若干スマート

$n = -inf;
@a = qw{0 3 1 4 1 5 9 26 53 58 97 93 238};
@b = grep {$n < $_ and ($n = $_), 1} @a;
print "@b\n";

実行結果
~ $ perl 15_73.pl
0 3 4 5 9 26 53 58 97 238

**デフォルトの名無しさん** · 2019/08/09(金) 04:16:04.61

>>83
ちょっとおもしろい

**デフォルトの名無しさん** · 2019/08/09(金) 08:43:53.16

>64

地球の位置といってもいろいろあります。
地球の赤道を天球上に投影した、「赤経、赤緯」、太陽の天球上の
通り道を天球上に投影した「黄経、黄緯」がありますし、それも、地球の中心を
原点とした、「地心赤経、赤緯」、「地心黄経、黄緯」および、観測地点を原点とした
「地表赤経、赤緯」、「地表黄経、黄緯」もありますので、どれにするかによって
計算式が違ってきます。
なお、JPLでは、太陽と月、および冥王星までの精密位置計算用のプログラムを
発表しています。
期間がながいものは、－4000（B.C.4001）～4000（A.D.）まで、計算できるものが
あります。
計算用のデータと、テスト用のFortranプログラムも附属しています。

**デフォルトの名無しさん** · 2019/08/09(金) 12:56:08.85

Perlって読みにくいんだな
｛とか＠とか＄とか使いまくる言語ってマジ苦手

**デフォルトの名無しさん** · 2019/08/09(金) 13:03:13.21

RubyとPHPにケンカ売ってんの？

**デフォルトの名無しさん** · 2019/08/09(金) 13:05:45.59

grep 内のboolian から最後の , 1 を取り除いたら
最初の0を拾わない
何というカオス

**デフォルトの名無しさん** · 2019/08/09(金) 13:27:04.59

@b = grep {$n < $_ and {$n = $_}} @a;
こうやりゃいいんだよ

**デフォルトの名無しさん** · 2019/08/09(金) 13:51:55.80

この方がいいだろ
@b = grep {$n < $_ and ($n = $_, 1)} @a;

**デフォルトの名無しさん** · 2019/08/10(土) 22:54:55.68

お題：
与えられた数列の要素の中で他と被っていない最小のものを求めよ
被っていない要素が存在しないときは-1を出力すること

例：
1,1,1,1,2,2,2,3,3,4 -> 4
1,2,3,4,5,5,4,3,2,1 -> -1
3,1,4,1,5,9,2,6,5,3,5 -> 2

**デフォルトの名無しさん** · 2019/08/11(日) 00:46:36.68

>>91　Perl5

use feature say;
use List::Util min;
for ([1,1,1,1,2,2,2,3,3,4], [1,2,3,4,5,5,4,3,2,1], [3,1,4,1,5,9,2,6,5,3,5]) {
　my %h;
　$h{$_}++ for @$_;
　@s = grep{1 == $h{$_}} keys %h;
　$" = ',';
　say "@$_ -> ", @s ? min @s : -1;
}

実行例
~ $ perl 15_91.pl
1,1,1,1,2,2,2,3,3,4 -> 4
1,2,3,4,5,5,4,3,2,1 -> -1
3,1,4,1,5,9,2,6,5,3,5 -> 2

**デフォルトの名無しさん** · 2019/08/11(日) 01:44:41.14

>>91
perl5
http://ideone.com/vj47th

**デフォルトの名無しさん** · 2019/08/11(日) 06:08:19.60

>>91 Ruby

f = -> a {a.sort.group_by{|e| a.count(e)}[1]&.min || -1}

[
[1,1,1,1,2,2,2,3,3,4],
[1,2,3,4,5,5,4,3,2,1],
[3,1,4,1,5,9,2,6,5,3,5]
].each{|a| puts '%p => %s' % [a, f[a]]} # =>
[1, 1, 1, 1, 2, 2, 2, 3, 3, 4] => 4
[1, 2, 3, 4, 5, 5, 4, 3, 2, 1] => -1
[3, 1, 4, 1, 5, 9, 2, 6, 5, 3, 5] => 2

**デフォルトの名無しさん** · 2019/08/11(日) 06:11:31.27

typo

f = -> a {a.uniq.group_by{|e| a.count(e)}[1]&.min || -1}

**デフォルトの名無しさん** · 2019/08/11(日) 12:01:23.99

>>91 ruby
[ [1,1,1,1,2,2,2,3,3,4], [1,2,3,4,5,5,4,3,2,1], [3,1,4,1,5,9,2,6,5,3,5] ].each{|ar|
print ar.join(','), " -> "
while (m = ar.min) && ar.count( m ) != 1
ar.delete( m )
end
puts m || -1
}

1,1,1,1,2,2,2,3,3,4 -> 4
1,2,3,4,5,5,4,3,2,1 -> -1
3,1,4,1,5,9,2,6,5,3,5 -> 2

**デフォルトの名無しさん** · 2019/08/11(日) 13:17:24.76

>>91 Perl5 >>92 よりもう少しシンプルに

use List::Util min;
for ('1,1,1,1,2,2,2,3,3,4', '1,2,3,4,5,5,4,3,2,1', '3,1,4,1,5,9,2,6,5,3,5') {
　my %h;
　$h{$_}++ for split ',';
　$s = min grep{1 == $h{$_}} keys %h;
　$s //= -1;
　print "$_ -> $s\n";
}

実行結果
~ $ perl 15_91.pl
1,1,1,1,2,2,2,3,3,4 -> 4
1,2,3,4,5,5,4,3,2,1 -> -1
3,1,4,1,5,9,2,6,5,3,5 -> 2

**蟻人間** ◆T6xkBnTXz7B0 · 2019/08/11(日) 13:23:49.66

お題: 数独を素早く解くプログラム(ソルバー)。

**デフォルトの名無しさん** · 2019/08/11(日) 16:53:20.83

昔々Cで数独解くやつ普通に作ったことあるけど普通に作っても人間の感覚では一瞬にして答えが出ちゃうんだよな。ほとんどEnterキー押したらすぐ出る感じ。
そしてこれといって他にアルゴリズムは思い浮かばない。(誰もが思い付くであろう再起でマスに入れられる数を順番に入れてく方式ね)。

これ以上に「素早く」やる方法なんてあるんだろうか？

**デフォルトの名無しさん** · 2019/08/11(日) 16:59:48.87

>>91
https://ideone.com/1JCuiv
C++。一応例題は解けたが妖しい処理になった。

**デフォルトの名無しさん** · 2019/08/11(日) 17:06:50.80

>>91
https://ideone.com/oSQNZM
C++。これでどうじゃ。
バケットソートでいいじゃないか。プンプン。

**デフォルトの名無しさん** · 2019/08/11(日) 17:17:47.99

#include <map>
template<class Container>
std::int64_t MakeHoge(const Container& D) {
std::map < Container::value_type, std::uint64_t> M;

for (auto& o : D) {
M[o]++;
}
for (auto& o : M) {
if (o.second == 1) {
return o.first;
}
}
return -1;
}

詰めまくってみた。C++。

**デフォルトの名無しさん** · 2019/08/11(日) 17:20:29.72

#include <map>
template<class Container>
std::intmax_t MakeHoge3(const Container& D) {
std::map < Container::value_type, std::uintmax_t> M;

for (auto& o : D) {
M[o]++;
}
for (auto& o : M) {
if (o.second == 1) {
return o.first;
}
}
return -1;
}
しつこいけど、これ以上は無理ってくらい詰めた。

**デフォルトの名無しさん** · 2019/08/11(日) 17:25:40.33

どうでもいいのですけど、MITライセンス。知ってますね。

**蟻人間** ◆T6xkBnTXz7B0 · 2019/08/11(日) 17:33:34.70

名無しにライセンス

**デフォルトの名無しさん** · 2019/08/11(日) 17:43:12.84

https://ideone.com/Cu9Dix
C++。大オチ。
駄文書きすぎた。

**デフォルトの名無しさん** · 2019/08/11(日) 18:40:15.26

prologのコード見せてよ

**蟻人間** ◆T6xkBnTXz7B0 · 2019/08/11(日) 18:56:28.74

お題: 論文「数独パズルの難易度判定」(大阪工業大学)を読んで、数独の難易度を判定するプログラムを作れ。

◆QZaw55cn4c · 2019/08/11(日) 19:37:12.10

>>108
吸う毒難易度判定
初期値の与えられているマスが22以下：難問
22以上：簡単

**蟻人間** ◆T6xkBnTXz7B0 · 2019/08/11(日) 19:48:53.81

論文無視かよ

**デフォルトの名無しさん** · 2019/08/11(日) 19:52:40.36

お題出す前にその論文を簡約してよ

**デフォルトの名無しさん** · 2019/08/12(月) 00:58:03.04

>>91 Pharo/Squeak Smalltalk

| fn |
fn := [:arr | (arr asBag sortedElements detect: [:kv | kv value = 1] ifNone: [-1 -> 0]) key].

fn value: #(1 1 1 1 2 2 2 3 3 4). "=> 4 "
fn value: #(1 2 3 4 5 5 4 3 2 1). "=> -1 "
fn value: #(3 1 4 1 5 9 2 6 5 3 5). "=> 2 "

**デフォルトの名無しさん** · 2019/08/12(月) 05:25:28.42

>>91
Kotlin
https://paiza.io/projects/7gZ5wu2acBho-erGVG_X6Q

**デフォルトの名無しさん** · 2019/08/12(月) 21:41:34.96

>>91 Perl5 >>97 もう少しスマートに

for ('1,1,1,1,2,2,2,3,3,4', '1,2,3,4,5,5,4,3,2,1', '3,1,4,1,5,9,2,6,5,3,5') {
　my %h;
　$h{$_}++ for eval;
　($s) = sort grep{1 == $h{$_}} keys %h;
　$s //= -1;
　print "$_ -> $s\n";
}

実行結果
~ $ perl 15_91_3.pl
1,1,1,1,2,2,2,3,3,4 -> 4
1,2,3,4,5,5,4,3,2,1 -> -1
3,1,4,1,5,9,2,6,5,3,5 -> 2

**デフォルトの名無しさん** · 2019/08/13(火) 07:30:43.99

>>91
Ruby で

# 数字の配列の配列。改行は削除
nums = <<"EOT".lines( chomp: true ).map{ |str| str.split( "," ).map( &:to_i ) }
1,1,1,1,2,2,2,3,3,4
1,2,3,4,5,5,4,3,2,1
3,1,4,1,5,9,2,6,5,3,5
EOT

results = nums.each_with_object( [ ] ) do |ary, results|
uniq_ary = ary.uniq # 重複排除
uniq_ary.sort! # ソート

res = -1
uniq_ary.each do |num|
if ary.count( num ) == 1
res = num; break
end
end
results.push res
end

p results #=> [4, -1, 2]

**デフォルトの名無しさん** · 2019/08/14(水) 01:39:36.14

>>91
VB
https://paiza.io/projects/DJNbrsQFWtBDXhtNjmJ9xQ

**デフォルトの名無しさん** · 2019/08/14(水) 01:45:59.79

>>116
うわぁ…山中俊次かよ

**115** · 2019/08/14(水) 03:01:09.16

>>91
Ruby で、>>115 を修正した

# 数字の配列の配列。改行は削除
nums = <<"EOT".lines( chomp: true ).map{ |str| str.split( "," ).map( &:to_i ) }
1,1,1,1,2,2,2,3,3,4
1,2,3,4,5,5,4,3,2,1
3,1,4,1,5,9,2,6,5,3,5
EOT

def resolve( ary )
# 数字の出現回数を数える。Hash の初期値は、0
hash = ary.each_with_object( Hash.new( 0 ) ) {
|num, hash| hash[ num ] += 1 }

hash_2 = hash.select { |key, val| val == 1 } # 1回のもの
# キーでソートして、最小の数字を返す
number = Hash[ hash_2.sort ].keys.first
number = -1 if number == nil
number
end

p nums.map { |ary| resolve ary } #=> [4, -1, 2]

**115** · 2019/08/15(木) 05:28:22.88

>>118
の、resolve 関数を修正

# キーでソートして、最小の数字を返す
>number = Hash[ hash_2.sort ].keys.first
pair = Hash[ hash_2.sort ].first # [ key, value ]

keys を使うと、ハッシュのキー配列が作られるため、処理が多くなるので、修正します

def resolve( ary )
# 各数字の出現回数を数える。Hash の初期値は、0
hash = ary.each_with_object( Hash.new( 0 ) ) {
|num, hash| hash[ num ] += 1 }

hash_2 = hash.select { |key, val| val == 1 } # 1回のもの
# キーでソートして、最小の数字を返す
pair = Hash[ hash_2.sort ].first # [ key, value ]
if pair == nil
number = -1
else
number = pair[ 0 ] # key
end
number
end

**デフォルトの名無しさん** · 2019/08/16(金) 00:38:41.91

お題: 任意の2桁の自然数の各桁を、1桁になるまで掛け算する回数の最大回数とその数を示せ

15なら1x5=5と1回
93なら9x3=27, 2x7=14, 1x4=3と3回

**デフォルトの名無しさん** · 2019/08/16(金) 01:31:17.83

>>120
最後1x4=3じゃなくて1x4=4だった

**デフォルトの名無しさん** · 2019/08/16(金) 04:22:25.57

>>120
common lisp
https://pastebin.com/dAXgwYYX

出力
15=>(5 1)
93=>(4 3)
66=>(8 3)
51=>(5 1)
52=>(0 2)
61=>(6 1)
11=>(1 1)

**デフォルトの名無しさん** · 2019/08/16(金) 04:32:18.49

>>120 Ruby 1桁以上に拡張してみた
def colmul( val )
n = 0
while val >= 10
ans = 1
begin
val, c = val.divmod( 10 )
ans *= c
n += 1
end while val >= 10
val *= ans
end
[n, val]
end

[15,93, 77, 123].each{|n|
puts "%5d %3d %d" % [n, *colmul( n )]
}
実行結果
15 1 5
93 3 4
77 4 8
123 2 6

**デフォルトの名無しさん** · 2019/08/16(金) 07:11:52.40

>>120 Squeak Smalltalk （Pharo では若干の修正が必要）

| fn ans |

fn := [:n |
| count digits |
count := 0.
[(digits := n asString asArray collect: #digitValue) size > 1]
whileTrue: [n := digits reduce: #*. count := count + 1].
count
].

ans := Set with: nil->0.

fn value: 15. "=> 1 "
fn value: 93. "=> 3 "
fn value: 277777788888899. "=> 11 "

(1 to: 9) do: [:i |
(i to: 9) do: [:j |
| kv m |
kv := (m := i * 10 + j) -> (fn value: m).
kv value = ans anyOne value ifTrue: [ans add: kv].
kv value > ans anyOne value ifTrue: [ans removeAll; add: kv]
]
].

^ans asArray "=> {77->4} "

**デフォルトの名無しさん** · 2019/08/16(金) 09:55:22.61

>>120 python
from operator import mul
def kake(n, ls):
＿＿m = reduce(mul, map(lambda x:int(x), list(str(n)) ) )
＿＿ls.append(m)
＿＿if len(str(m)) == 1:
＿＿＿＿return
＿＿kake(m, ls)

test = [0, 1, 9, 11, 15, 51, 52, 61, 66, 77, 93, 123, 277777788888899]
for n in test:
＿＿ls = []
＿＿kake(n, ls)
＿＿print "n="+str(n)+", "+"list="+str(ls)+", "+"len="+str(len(ls))+", "+"last="+str(ls[-1])

実行結果
n=0, list=[0], len=1, last=0
n=1, list=[1], len=1, last=1
n=9, list=[9], len=1, last=9
n=11, list=[1], len=1, last=1
n=15, list=[5], len=1, last=5
n=51, list=[5], len=1, last=5
n=52, list=[10, 0], len=2, last=0
n=61, list=[6], len=1, last=6
n=66, list=[36, 18, 8], len=3, last=8
n=77, list=[49, 36, 18, 8], len=4, last=8
n=93, list=[27, 14, 4], len=3, last=4
n=123, list=[6], len=1, last=6
n=277777788888899, list=[4996238671872L, 438939648, 4478976, 338688, 27648, 2688, 768, 336, 54, 20, 0], len=11, last=0

**デフォルトの名無しさん** · 2019/08/16(金) 10:19:15.90

>>120 Ruby

f = -> n {[(1..).find{10 > n = n.divmod(10).reduce(:*)}, n]}

(10..99).group_by{|i| f[i]}.max.tap{|m| m.last.each{|v| puts '%dは%d回で%dになる.' % [v, *m.first]}}

# => 77は4回で8になる.

**デフォルトの名無しさん** · 2019/08/16(金) 11:35:03.96

>>120 Perl5

use List::Util reduce;
for (qw{15 93 123 277777788888899}) {
　($n, $i) = ($_, 0);
　while (1 < length $n) {
　　$n = reduce {$a * $b} split '', $n;
　　$i++;
　}
　print "$_ -> $i回で $nになる\n";
}

実行結果
~ $ perl 15_120.pl
15 -> 1回で 5になる
93 -> 3回で 4になる
123 -> 1回で 6になる
277777788888899 -> 11回で 0になる

**デフォルトの名無しさん** · 2019/08/16(金) 11:40:17.74

実用上、意味のないことは寝言という。

**デフォルトの名無しさん** · 2019/08/16(金) 11:52:49.37

グッスリお休み。

**デフォルトの名無しさん** · 2019/08/16(金) 17:08:53.11

>>120
https://ideone.com/uOlN2E
C++. 暇だったので基数いじれるようにした。
ただし、デバッグはしてない。

**デフォルトの名無しさん** · 2019/08/16(金) 19:41:08.88

2x7x7x7x7x7x7x8x8x8x8x8x8x9x9=4996238671872
この段階で、掛け算14回じゃなくて1回になるの？

**デフォルトの名無しさん** · 2019/08/16(金) 21:11:10.70

元のお題は2桁の自然数なのでそれよりも桁が多いならその場合のルールも決めないとダメだろうな。

**デフォルトの名無しさん** · 2019/08/16(金) 22:49:37.86

> 2x7x7x7x7x7x7x8x8x8x8x8x8x9x9=4996238671872
を１回としても14回としても解き方はたいして変わらんからどっちでもいいと思う
とりあえず回答例見たら１回としてるみたいだから１回の方でいいんじゃね

**デフォルトの名無しさん** · 2019/08/17(土) 05:49:01.88

>>120
common lisp
https://pastebin.com/ZcaYiA3N
任意の自然数に拡張した

split-num を実装してて思った
perl の数字と文字を自由に行き来できる cool型マジcool

**デフォルトの名無しさん** · 2019/08/17(土) 05:57:53.54

15=>(5 1)
93=>(4 3)
198=>(4 3)
468=>(8 3)
738=>(6 4)
793=>(4 4)
1748=>(6 3)

**デフォルトの名無しさん** · 2019/08/17(土) 15:01:05.32

>>120 Perl5

use feature current_sub;
use List::Util reduce;
for (qw{15 93 123 277777788888899}) {
　$i = 0;
　$n = sub {
　　return shift if 1 == @_;
　　$i++, __SUB__->(split'', reduce {$a * $b } @_);
　}->(split'');
　print "$_ -> $i回で $nになる\n";
}

実行結果
~ $ perl 15_120_2.pl
15 -> 1回で 5になる
93 -> 3回で 4になる
123 -> 1回で 6になる
277777788888899 -> 11回で 0になる

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/08/17(土) 15:58:34.13

お題: オカダンゴムシには進行中に壁にぶつかると左へ、次は右へ（あるいは右へ、次は左へ）と交互に曲がっていく習性がある。この行動は「交替性転向反応」といい、左右に交互に曲がる事で天敵から逃げられる確率を高めているといわれている(ウィキペディアより引用)。

何もない整数平面上にスタート地点(S)とゴール地点(G)が与えられる。仮想ダンゴムシ(@)の周辺に壁(#)をいくつか作って、スタート地点からゴール地点まで誘導せよ。
ただし、ダンゴムシは最初は右向きを向いていて、最初にぶつかったら左に曲がるものとする。
90度曲がって目の前にすぐに壁がある場合は同じ方へもう90度曲がるものとする。壁はいくつ作ってもよい。

例) S=(0, 0), G=(5, 2)
→#={(6, 0)}.
例) S=(1, 2), G=(-1, 1)
→#={(2, 2), (1, 3), (0, 2), (1, 0)}.

**デフォルトの名無しさん** · 2019/08/17(土) 16:18:33.55

>>137
ダンゴムシは初手でどこに向いてるの？北？Y+？X+？

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/08/17(土) 16:19:06.00

ヒント: 最初、スタートとゴールを囲むように壁を仮設する。ぶつからない壁は要らない。

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/08/17(土) 16:20:08.58

ダンゴムシはx軸方向です。y軸は数学と同じ上向きを仮定してます。

**デフォルトの名無しさん** · 2019/08/17(土) 17:21:32.91

Y+がビジュアライズして上になるかはビジュアライザーの挙動次第なのでいいのだけど。
最初はX+向いてるのね。承知。

**デフォルトの名無しさん** · 2019/08/17(土) 17:25:39.14

あ、もう一つあるんだ。
最初にダンゴムシが壁にぶつかったときは右と左どっち優先？

////
＃
＠＃
////
の時。
方向がX+の時に左へターンしたら無限ループする。
逆に、方向がY+の時右にターンしたら無限ループする。

どや？

**デフォルトの名無しさん** · 2019/08/17(土) 17:28:20.45

> ただし、ダンゴムシは最初は右向きを向いていて、最初にぶつかったら左に曲がるものとする。

**デフォルトの名無しさん** · 2019/08/17(土) 17:29:33.02

>>142
>90度曲がって目の前にすぐに壁がある場合は同じ方へもう90度曲がるものとする。

**デフォルトの名無しさん** · 2019/08/17(土) 17:29:46.66

すみません。見落としていました。
大変申し訳ありません。

**デフォルトの名無しさん** · 2019/08/17(土) 19:06:19.57

クソコテの相手すんなよ

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/08/17(土) 20:39:30.65

世界はクソにあふれている！何てこった！この状況を！この状況を変えるためには、クソをせずに生きれる仕組みを！皆様と一緒にクソをせずに生きれる仕組みを、実現して！行きましょう！

**デフォルトの名無しさん** · 2019/08/17(土) 23:18:56.65

そこでファナモの出番なわけですよ

**デフォルトの名無しさん** · 2019/08/17(土) 23:52:46.77

それよりも交替性転換反応とやらが本当に生存確率を高めるのか
右にばかり曲がりたがる逃亡犯と左にしか曲がれない共産党員を例に
シミュレーションを繰り返すプログラムを書いて？(ﾟ∀ﾟ)

**デフォルトの名無しさん** · 2019/08/18(日) 00:30:12.24

FPSのレレレ撃ちでしょ
ゲームで実験結果がでているからYoutubeにGo

**デフォルトの名無しさん** · 2019/08/18(日) 01:00:00.23

あなた達は、実は自分で思っているほど
ソフトウエアの開発が得意ではないということに
まだ気がついてすら至っていない

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/08/18(日) 01:50:38.18

>>151
そうだよね。ソフトクリーム作るのって大変だね。ちなみに英語ではジェラートだからね。

**デフォルトの名無しさん** · 2019/08/18(日) 02:07:00.19

>>151
君は、実は自分で思っているほど日本語が得意ではないということにまだ気づいていない。

**デフォルトの名無しさん** · 2019/08/18(日) 02:25:43.87

そう来ると思っていました。

**デフォルトの名無しさん** · 2019/08/18(日) 16:17:40.63

>>137
https://ideone.com/6yBcTi
C++。多分できた。
O(1)かも。

**デフォルトの名無しさん** · 2019/08/18(日) 16:41:42.29

一番だよ～。ほめてほめて～～！！

**デフォルトの名無しさん** · 2019/08/18(日) 17:02:53.87

乙。

**デフォルトの名無しさん** · 2019/08/18(日) 17:05:38.20

O(1)だよ

**デフォルトの名無しさん** · 2019/08/18(日) 17:21:04.50

やっほーい。

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/08/18(日) 17:59:15.27

スタート地点に壁を作ってるみたい。アルゴリズムの詰めが甘いようだ。

**デフォルトの名無しさん** · 2019/08/18(日) 18:37:31.03

>>160
表示の問題です。では済まないかい？
場所は保持してるよ？

**デフォルトの名無しさん** · 2019/08/18(日) 18:38:29.32

>>137 Java
https://ideone.com/oytRaT

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/08/18(日) 19:10:36.63

>>162
正解。

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/08/18(日) 19:33:02.90

お題: 壁で囲まれた何もない有限の部屋(面積5m^3前後)の中に、四方向に距離センサーが付いた、丸い形のお掃除ロボット(直径20cm)がある。
各距離センサーは、ロボットからその方向にある障害物までの距離を常に教えてくれる。
ロボットはその場で右または左に5度単位で自転するか、もしくは前方向に5cm単位で前進できる。
部屋全体のおおよその形がわかるまで、ロボットを動かしなさい。

例) 正方形の部屋
例) 正三角形の部屋
例) 凹の形の部屋

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/08/18(日) 19:46:24.23

直径20cmが入り込めない隙間は無視、もしくは壁と見なす。
スクリーンショットか動画を作れたら、30点加点する。

**デフォルトの名無しさん** · 2019/08/18(日) 19:59:22.35

面積なのに^3とはこれ如何に

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/08/18(日) 20:17:13.38

>>164 >>166
訂正。m^2です。

参考資料：直線と線分の当たり判定
https://spphire9.wordpress.com/2013/01/14/直線と線分の当たり判定/

**デフォルトの名無しさん** · 2019/08/19(月) 11:34:00.91

>>164
部屋の壁の構成が凹を基本としたヒルベルト曲線だったら「おおよその形」はそのロボットのAIは何と答えればいいの？
ttps://cdn-ak.f.st-hatena.com/images/fotolife/o/obelisk2/20161224/20161224022849.png

**デフォルトの名無しさん** · 2019/08/19(月) 11:46:10.65

もしくは、「壁」とは何か

**デフォルトの名無しさん** · 2019/08/19(月) 12:00:44.91

>>160
一晩かんがえてみたんだけどね、ゆる～くね。
スタートに壁作るなとは書いてないよね？？