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

**デフォルトの名無しさん** · 2019/05/18(土) 17:33:29.45

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

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

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

※前スレ
https://mevius.5ch.net/test/read.cgi/tech/1549160513/

**デフォルトの名無しさん** · 2019/06/22(土) 12:27:47.34

お題：プログラミングのお題が与えられるので、それに対する解答を回答するプログラ厶を作りなさい。

**デフォルトの名無しさん** · 2019/06/22(土) 12:42:30.81

>>512 Perl5

%h = ('プログラミングのお題' => 'それに対する解答');
while (<>) {
　chomp;
　$a = $h{$_};
　print $a ? "$a\n" : "しらんがな…(´･ω･`)ｼｮﾎﾞｰﾝ\n";
}

実行例
$ echo プログラミングのお題 | perl 14_512.pl
それに対する解答
~ $ echo たわけ | perl 14_512.pl
しらんがな…(´･ω･`)ｼｮﾎﾞｰﾝ
~ $ echo たいがいにせいよ | perl 14_512.pl
しらんがな…(´･ω･`)ｼｮﾎﾞｰﾝ
~ $

**デフォルトの名無しさん** · 2019/06/22(土) 13:03:59.60

（出題者側、回答者側のいずれに問題があるにせよ）
題意が汲み取れずくだらないお題だと思うのなら
回答せずにスルーすればいいやんというのがここのルール

回答した以上は特に題意を汲み取っていない的外れな回答の場合、
相応の批判にさらされることはある程度覚悟しないと

**デフォルトの名無しさん** · 2019/06/22(土) 13:06:05.30

しらんがな…(´･ω･`)ｼｮﾎﾞｰﾝ

**蟻人間** ◆T6xkBnTXz7B0 · 2019/06/22(土) 13:23:12.78

お題: パソコンの中で猫をひげダンスさせよ。

**デフォルトの名無しさん** · 2019/06/22(土) 14:37:40.61

>>514 出題者が質問に答えずに、出題の意味も説明できずに罵声を浴びせるだけと言う態度は問題だと思うけどな。

**デフォルトの名無しさん** · 2019/06/22(土) 15:24:12.28

出題者かどうかわからんのが問題だしトリでもつけとけばいいんちゃう

**デフォルトの名無しさん** · 2019/06/22(土) 16:06:50.97

>>516
「ひげダンス」と聞いて調べずすぐにわかる人がここに何人いるかなあ・・・

**デフォルトの名無しさん** · 2019/06/22(土) 16:19:18.36

>>507>>508
「このはし渡るべからず」を見た時の一休さんの気持ちが少しわかった。

◆QZaw55cn4c · 2019/06/22(土) 16:47:52.80

お題と回答
>>5 : 6 10 32 36 44
>>9 : 15 34 35 79
>>11 : 48 (78) 138-139 (140) 142 146 151 154
>>19 :
>>50, https://mevius.5ch.net/test/read.cgi/tech/1549160513/920 : 4 85 89
https://mevius.5ch.net/test/read.cgi/tech/1549160513/988 == >>164 : 59 61 167 169 189 192 201 202
>>90 : 95 96
>>99 :
>>200 : 214 219
>>215 : 227
>>220 : 232 240 248 256 268
>>235 : 236 237 238 239 247 249 259 342 353
>>320 : 321 323 327 330 340
>>322 : 325 328 329 331 332 339 341 358 359
>>362 : 367 369 370 371 374 379 380 382 414

◆QZaw55cn4c · 2019/06/22(土) 16:48:10.29

>>368 : 390
>>388 : 487 (488)
>>400 : 401
>>408 :
>>417 : 418 419 421 426 432 433 436 438 442 446 451 452 456 471 474 480 482 489 492 495 498
>>479 :

**デフォルトの名無しさん** · 2019/06/22(土) 22:52:07.59

>>417
#pragma INTERRUPT int00

static int i = 0;
void int00(void)
{
if( i <= 100 ){

printf("%d\n", i++ );

}

}

あとは割り込みのテーブルに登録するだけ

**デフォルトの名無しさん** · 2019/06/23(日) 01:15:49.60

>>514
> 回答せずにスルーすればいいやんというのがここのルール

勝手にルールを作るな。

**デフォルトの名無しさん** · 2019/06/23(日) 01:37:51.82

>>524
別にいいやんか

**デフォルトの名無しさん** · 2019/06/23(日) 03:01:37.82

>>524
基本的なルールも知らん新参者はしばらくロムってろとｗ

**デフォルトの名無しさん** · 2019/06/23(日) 05:03:48.13

part6くらいからこのスレ見てるけどそんな不文律知らんぞ

**デフォルトの名無しさん** · 2019/06/23(日) 07:40:02.44

>>417
数値に(+1)の代わりに次の値を求めるsuccに変えるだけじゃインクリメントと同じになるので、
文字列でインクリメント相当の処理を実現してみた。
(succ 1 = 2, succ 'a' = 'b', succ False = True)

リストが全部'9'か見るのにand関数使った方が行数減らせるが、
and関数も再帰と見做せるので使わなかった。
('9'と同じ数だけ'0'を用意する処理も、リスト内包表記やlength関数が再帰やループに当たる)

Haskell

main = f "1"

f = fa f
― f n = fa f n を部分適用で見掛け上の変数を減らした

fa _ "101" = return ()
fa fb "9" = putStrLn "9" >> fb "10"
fa fb "99" = putStrLn "99" >> fb "100"
fa fb "100" = putStrLn "100" >> fb "101"
fa fb [x,'9'] = putStrLn [x,'9'] >> fb [succ x,'0']
fa fb [x,y] = putStrLn [x,y] >> fb [x,succ y]
fa fb [y] = putStrLn [y] >> fb [succ y]

**デフォルトの名無しさん** · 2019/06/23(日) 09:44:39.54

>>527
でまかせ

**デフォルトの名無しさん** · 2019/06/23(日) 09:54:46.04

>>417
bb=1;echo $bb >/tmp/gg; watch -n 0.5 "bb=\`cat /tmp/gg\`; echo \$bb; if [ \$bb -eq 100 ]; then exit; fi; bb=\$((bb+1)); echo \$bb >/tmp/gg; "

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

>>527
では君はいままで自分がわからない問題が出題されたときは
問題にケチをつけてたのかね？そういうのやめてくれないかね
ちなみに僕はPart0のころからいるいわばこのスレの主だ

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

>>531 自分で無視しろと言っておいて人の投稿に難癖つけるのも同じだろ。無視してろよ。

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

>>532
同じじゃないよ
何でもかんでも一緒にするんじゃない
ケツを出せお尻ペンペンだ！

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

議論を整理しよう

主の意見
・問題がわからなかったら問題が悪いと言うんじゃなくて無視しよう

木偶の坊の回答者の意見
・問題がわからなかったら問題に文句言うんだ <= これがダメ

**デフォルトの名無しさん** · 2019/06/23(日) 12:00:12.53

>>530
ループやな

**デフォルトの名無しさん** · 2019/06/23(日) 12:03:05.58

>>531
桃白白改めミスターポポ改めピラフ改めピッコロさん、いい加減にしろ

**デフォルトの名無しさん** · 2019/06/23(日) 12:03:58.87

>>535
あからさまではないからええんやで

**デフォルトの名無しさん** · 2019/06/23(日) 12:05:40.43

いいや、あからさまや

**デフォルトの名無しさん** · 2019/06/23(日) 12:07:42.20

>>534 問題が解らなければ出題者に聞くのがまず第一だろ。そして出題者は質問に答える義務がある。

**デフォルトの名無しさん** · 2019/06/23(日) 12:25:37.87

>>537
じゃあこれはあからさま？
var n=1,t=setInterval(()=>{if(n<=100){console.log(n);n++;}else{clearInterval(t);}},0);

**デフォルトの名無しさん** · 2019/06/23(日) 12:31:57.22

>>540 どうでもいいんじゃない？自分がこれで良いと思えば良いんだよ。

誰にもあからさまと言う基準は作れない。プログラムの中のループと言えばそうなるけどな。
ただ、サンプルの中でもイベントを使う方法は載ってたからOK なんじゃないのかな。

もうどうでも良いよ。

**デフォルトの名無しさん** · 2019/06/23(日) 12:41:42.98

>>538
あからさまではないんや！！

>>540
それもあからさまにループしてない良いコードと言えます

**デフォルトの名無しさん** · 2019/06/23(日) 12:42:42.10

>>539
義務なんてない
会話の裁量はケースバイケースや

**デフォルトの名無しさん** · 2019/06/23(日) 12:46:10.20

>>542 何で出題者でもないお前が仕切ってるんだよ。
それともお前が出題者？

**デフォルトの名無しさん** · 2019/06/23(日) 12:49:22.24

>>544
我スレの神なり

**デフォルトの名無しさん** · 2019/06/23(日) 12:50:21.23

議長として議論を執行する

**デフォルトの名無しさん** · 2019/06/23(日) 12:53:58.33

>>540
あらかさまじゃねーけど>>523の二番煎じはつまらない

**デフォルトの名無しさん** · 2019/06/23(日) 13:07:52.17

>>547
>>540は>>480を書き換えたコード、オリジナルは>>451、>>523の方が後なんだけど

**デフォルトの名無しさん** · 2019/06/23(日) 13:37:18.23

全部のコードをいちいち見てないし、二番煎じということを指摘するには十分だろ

**デフォルトの名無しさん** · 2019/06/23(日) 13:40:05.34

>>545
桃白白改めミスターポポ改めピラフ改めピッコロさん、いい加減にしろ

**デフォルトの名無しさん** · 2019/06/23(日) 14:01:14.90

ID:PuD19qMM は多分クソみたいな出題してボロカスに叩かれたことがあるんでしょ
叩かれたこと無いって多分レスすると思うけど、きっとあるんでしょ

**デフォルトの名無しさん** · 2019/06/23(日) 14:06:35.85

はい、この議論今日まで～

◆QZaw55cn4c · 2019/06/23(日) 16:57:08.99

>>388,397,409
https://mevius.5ch.net/test/read.cgi/tech/1434079972/59
出題者想定の試算プログラムを公開します。

>>487
とっても早いですね…

**デフォルトの名無しさん** · 2019/06/23(日) 17:32:48.34

>>531

> ちなみに僕はPart0のころからいるいわばこのスレの主だ

明記しとけ
つかスレの主ちがうじゃん

**蟻人間** ◆T6xkBnTXz7B0 · 2019/06/23(日) 17:37:50.61

お題: サインカーブを描画せよ。

**デフォルトの名無しさん** · 2019/06/23(日) 20:48:49.59

>>555
VB
https://paiza.io/projects/b6D3kpi6vjqOzZl1KAH-Pw

◆QZaw55cn4c · 2019/06/23(日) 21:25:20.51

お題
1) √2 を小数点以下 1000 桁算出せよ
2) n ∈Z, 1 <= n <= 100 を与えたとき√n を小数点以下1000 桁算出せよ

**デフォルトの名無しさん** · 2019/06/23(日) 21:28:12.22

>>555 Squeak Smalltalk

(PolygonMorph
shapeFromPen: [:pen |
| factor |
factor := Float pi / 100.
pen place: 0@0.
0 to: 200 do: [:x | pen goto: x @ ((x * factor) sin / factor)]]
color: Color transparent
borderWidth: 2
borderColor: Color red) makeOpen; position: Display center; openInWorld

**487** · 2019/06/23(日) 22:07:30.94

>>388 Java
https://ideone.com/9d18x4

>>553
分割荒くしたらもっと早くなったよ
x=13194120658951(=2097151^3-2097150^3)以下に6通り見つからなかったが

**デフォルトの名無しさん** · 2019/06/23(日) 22:46:35.00

>>557 Pharo/Squeak Smalltalk

| sqrt |
sqrt := [:n :m |
| a b nDigits intDigits str |
a := 5 * n. b := 5.
nDigits := m + (intDigits := (n sqrt log + 1) asInteger )+ 1.
[:exit | [
a >= b ifTrue: [a := a - b. b := b + 10] ifFalse: [
b log > nDigits ifTrue: [exit value] ifFalse: [
a := a * 100. b := b // 10 * 100 + (b \\ 10)
]
]
] repeat] valueWithExit.
((str := b asString) first: intDigits), '.', ((str allButFirst: intDigits) first: m)
].

((1 to: 100) collect: [:n | n -> ((sqrt value: n value: 1000) contractTo: 30)]) asStringWithCr

"=> 1->'1.000000000000...0000000000000'
2->'1.414213562373...8229518488472'
3->'1.732050807568...8363954959381'
4->'2.000000000000...0000000000000'
5->'2.236067977499...0407072278724'
6->'2.449489742783...7009535324726'
7->'2.645751311064...4698120004300'
<snip>
97->'9.848857801796...5854929396030'
98->'9.899494936611...7606629419304'
99->'9.949874371066...6373124778344'
100->'10.00000000000...0000000000000' "

**デフォルトの名無しさん** · 2019/06/24(月) 01:26:06.66

>>553 あのさ、何か言いたいのはわかるけど、リンクくらいまともに貼ろうよ、
カンマで区切られたスレなんて俺のブラウザでは辿れないし、リンク先のページもどれがなんなのかわからないし、自分が勝手に思ってても人には伝わらないよ。
よくそんなのでプログラムの世界で生きてるね。クビにならないことを祈るよ。

**デフォルトの名無しさん** · 2019/06/24(月) 01:56:20.12

>>557
bc

scale=1000
sqrt(2)
for (n = 1; n <= 100; n++) sqrt(n)

**デフォルトの名無しさん** · 2019/06/24(月) 06:28:51.10

>>555 Lua
prrint("∿")

**デフォルトの名無しさん** · 2019/06/24(月) 14:09:18.13

>>555 Python sympy

from sympy import Symbol, sin , plot

x = Symbol('x')
plot(sin(x),(x,0,10))

**デフォルトの名無しさん** · 2019/06/24(月) 14:11:03.35

＞＞555　Python numpy , matplotlib

import numpy as np
import matplotlib.pyplot as plt

x = np.linspace(0, 10, 100)
y = np.sin(x)
plt.plot(x, y)

**デフォルトの名無しさん** · 2019/06/24(月) 16:09:05.86

>>564 出力画像
https://imgur.com/D5WDUTF

**デフォルトの名無しさん** · 2019/06/24(月) 16:10:01.37

こっちの方が良いね
https://i.imgur.com/D5WDUTF.jpg

**デフォルトの名無しさん** · 2019/06/24(月) 17:22:50.00

https://light.dotup.org/uploda/light.dotup.org596741.png
>>555
C++で書いてみたよ。
画像生成は自作コード。
面クラス作ってwindows　bitmap　用に書き込みした。
趣味で色キチにしてある。

**デフォルトの名無しさん** · 2019/06/24(月) 17:48:28.72

>>555
ChromeのURLバーに叩き込む
javascript:document.innerHTML='<svg><path d="M0 50 C 40 10 60 10 100 50 C 140 90 160 90 200 50 Z">'

スクショ
https://i.imgur.com/4jf1NdV.png

**蟻人間** ◆T6xkBnTXz7B0 · 2019/06/24(月) 17:52:22.52

だんだん難しくなるよ。

お題: 8の字曲線を描画せよ。

**デフォルトの名無しさん** · 2019/06/24(月) 18:22:01.03

>>570 そんな似たような問題飽きるよ。

**デフォルトの名無しさん** · 2019/06/24(月) 18:24:31.37

console.log('8')

**蟻人間** ◆T6xkBnTXz7B0 · 2019/06/24(月) 18:33:31.05

お題: ベルトコンベヤで左から右へチーズケーキが不定期に断続的に供給される。Aさん、Bさん、Cさんは右から順番にチーズケーキを食べる。
ただし、AさんはBさんより食べる速度が早い。BさんはCさんより食べる速度が早い。お腹一杯になるとしばらく食べられない。
これをマルチスレッドで再現せよ。

**デフォルトの名無しさん** · 2019/06/24(月) 18:40:26.97

>>570 Squeak Smalltalk

(PolygonMorph
shapeFromPen: [:pen |
| lemniscate factor |
lemniscate := [:θ | θ cos / (1 + θ sin squared) @ (θ sin * θ cos / (1 + θ sin squared))].
factor := 100.
pen up.
0 to: 360 do: [:deg | pen goto: (lemniscate value: deg degreesToRadians) * factor; down]]
color: Color transparent
borderWidth: 2
borderColor: Color red) position: Display center; openInWorld

"=> https://i.imgur.com/CiUeI8I.png "

**蟻人間** ◆T6xkBnTXz7B0 · 2019/06/24(月) 19:18:23.37

お題: あなたは宇宙時代の靴屋さんだ。宇宙人の足底の形状データが二次元多角形ベクトルデータとして与えられる。多角形が円に収まるように円形の靴の底を設計せよ。

◆QZaw55cn4c · 2019/06/24(月) 19:34:41.44

>>561
＞自分が勝手に思ってても人には伝わらないよ。

ほう、私の記述が不十分というわけですか？
しかし、

＞カンマで区切られたスレなんて俺のブラウザでは辿れないし

これは特に「アンカー」というのですよ。「アンカー」、この単語をご存知なかったのですか？

＞カンマで区切られたスレなんて俺のブラウザでは辿れないし

私の専用ブラウザでは十分にたどれますよ、おま環でしょう、おま環、おま環（爆笑）

＞リンク先のページもどれがなんなのかわからないし、

QZ 専用スレのことですか
そもそも専用スレを持っているということ自体が特筆に値するでしょう
あなたも専用スレを作ってみたらいい、一発で削除されますよ

それに、そこでは私は、私が何を目的に何を書いたのか一目瞭然ですね
必要にして十分とはまさにこのことでしょう
過去ログはお布施をすれば自由に取り込めます、おま環、おま環（爆笑）

＞よくそんなのでプログラムの世界で生きてるね。クビにならないことを祈るよ。

あなたが5ch で不自由な制約のもとにあるのはよくわかりました、ひとことでいってお布施が足りない、まずはお布施をすることですね
私は職業プログラマでないので、すでにプログラムの世界ではクビになっています、ついでに現在の職業もクビになりそうです…いや、ラプラス変換の部分分数展開の計算が合わなくて苦労しているのですよ
部分分数展開については、近いうちにこのスレのお題にしますよ、乞うご期待！

**デフォルトの名無しさん** · 2019/06/24(月) 19:35:12.92

>>570 Python sympy

from sympy import symbols , sin
from sympy.plotting import plot_parametric

t = symbols('t')
x=sin(t); y=sin(2*t)

p = plot_parametric(x, y, autoscale=True, title='8 Graph', show=False)
p.show()

https://i.imgur.com/ACefMnx.jpg

**蟻人間** ◆T6xkBnTXz7B0 · 2019/06/24(月) 19:35:53.46

ヒント: まずはど真ん中を求めよう。

**蟻人間** ◆T6xkBnTXz7B0 · 2019/06/24(月) 19:53:04.45

お題: 辞書のように頭文字を何文字か入力すると該当する単語の意味を調べられるようなシステムのことを「辞書型エキスパートシステム」と言います。
あなたの得意分野に関する辞書型エキスパートシステムを作りなさい。
例) HTML辞書システム

**デフォルトの名無しさん** · 2019/06/24(月) 19:55:50.31

し、式がわからねー。算数の限界。。。　グフッ。

**デフォルトの名無しさん** · 2019/06/24(月) 20:04:50.44

>>577
お？リサージュ使ったのか、やるなお主。

**蟻人間** ◆T6xkBnTXz7B0 · 2019/06/24(月) 20:10:50.04

面白いシューティングゲーム作るなら、数式とグラフの知識は必須だからな。
x→yという対応によるx-yグラフがあれば、
時刻t→(x, y)という対応によるグラフもある。多分高校で習うから安心しろ。

**デフォルトの名無しさん** · 2019/06/24(月) 20:13:33.00

>>576 やはり思った通りの人物像だったな。　自分の勝手な思い込みで人に伝わると思ってる。
そりゃどんな所に勤めても長続きしないだろうな。　相手の事を思いながら会話しないとダメなんだよ。

自分は何も悪くない、悪いのは相手だと言うのが最大の欠点。　多分病気だと思うから一度病院に行ってみたら？

ラプラス変換なんて持ち出せば相手は黙るだろうとか思ってる馬鹿さ加減。
あんな簡単な物で躓いてるのは多分高校の数学で落ちこぼれてたんだろうな。　いや中学の算数が解っていないのかも。
計算を楽にするためにラプラス変換があるのに。

**デフォルトの名無しさん** · 2019/06/24(月) 20:19:29.47

トリップ付けてる人にまともな人なんているわけがないじゃないか

◆QZaw55cn4c · 2019/06/24(月) 20:37:30.25

>>583
＞多分病気だと思うから一度病院に行ってみたら？
すでにして飲んでるお薬は
https://en.wikipedia.org/wiki/Chlorpromazine#/media/File:Thorazine_advert.jpg

＞計算を楽にするためにラプラス変換があるのに。

浅はかな理解ですね、計算のためにラプラス変換？
馬鹿もここまでくると気の毒に思えてきます
そんな人のために次のページが構築されつつあります、誰が書いてるのかは私はしらないけど
https://ja.wikibooks.org/wiki/%E5%88%B6%E5%BE%A1%E3%81%A8%E6%8C%AF%E5%8B%95%E3%81%AE%E6%95%B0%E5%AD%A6/%E7%AC%AC%E4%B8%80%E9%A1%9E

**デフォルトの名無しさん** · 2019/06/24(月) 20:40:31.12

https://light.dotup.org/uploda/light.dotup.org596781.png
ギリギリ8？これ、屁理屈だわー。

**蟻人間** ◆T6xkBnTXz7B0 · 2019/06/24(月) 20:43:09.60

>>586
創意工夫はあってよし。一応合格。

**デフォルトの名無しさん** · 2019/06/24(月) 20:55:10.85

うえーい。

**デフォルトの名無しさん** · 2019/06/24(月) 21:01:05.67

あ、どっとうｐ死んだ。。。

**デフォルトの名無しさん** · 2019/06/24(月) 21:57:47.94

>>585　悪かった、本物とはさすがに思わなかった。　お大事に。
むしろこんな所にも出入りしない方が良いと思うけどな。

所で今　5ch サーバーがおかしいね。

◆QZaw55cn4c · 2019/06/24(月) 22:04:21.59

>>590
浅はかな理解ですね、そもそもここに出入りしている時点で重大な問題を孕んでいることに気がつかないとでもいうのですか？

**デフォルトの名無しさん** · 2019/06/24(月) 22:30:59.92

あーQZはまともに相手しないで放置すればいいよ
こいつ複素解析も知らない癖に留数定理がどうのこうのとか騙ってて
突っ込まれると「全然知りません」と開き直るような奴だからな
それに日本人じゃないらしい

**デフォルトの名無しさん** · 2019/06/24(月) 22:32:09.63

おそらくこいつはラプラス変換も知らない馬鹿だ

**デフォルトの名無しさん** · 2019/06/24(月) 22:53:08.06

>>592
懐かしいな
以前、複素数にまで拡張された指数関数が一般に多価関数になるということが解らなくて
わざわざ他の板まで行って醜態を晒してたなこいつ

◆QZaw55cn4c · 2019/06/24(月) 23:24:54.85

>>592
それは記憶違いでは？
当時「計算練習として複素関数論をやればいいのでは？」という意見に対して「留数定理は忘れた」と発言しただけですよ、実際もう忘れましたし、それにしても昔のことをよく覚えていますよね、この執念はいったいなんなんでしょうか？

>>594
このスレのお題「e^z = -1 たる z ∈C を求めよ」にてずいぶんと勉強させていただきましたが、それもこのスレだけの話で、わざわざ他のスレや他の板に行った覚えはありませんね、証拠を出せますか？

>>593
ラプラス変換の教科書に当時メモ書きした式変形ですら、もう自分でも理解できなくなっているのは認めましょう…

**デフォルトの名無しさん** · 2019/06/24(月) 23:29:01.25

>>595
確か数学板で聞いてただろお前
そのリンクをこのスレに貼ってたはずだから気になるなら自分で調べろ

◆QZaw55cn4c · 2019/06/24(月) 23:46:51.79

>>596
数学板でまともに質問したのは「頂を踏む」の一節
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q13170327928
だけですよ、数学板に書かないわけではありませんけれどもね

**デフォルトの名無しさん** · 2019/06/24(月) 23:54:27.14

知恵袋やってて草
後で通報しとくわ

**デフォルトの名無しさん** · 2019/06/25(火) 00:17:49.29

>>555
echo '～'

**デフォルトの名無しさん** · 2019/06/25(火) 12:16:33.88

お題
7月中の、3人の空いている日のリストがあります。
3人の内、2人以上が空いている日と、名前を求めよ

A
2019/07/05
2019/07/10
2019/07/15
2019/07/20

B
2019/07/08
2019/07/10
2019/07/20

C
2019/07/15
2019/07/20
2019/07/25

**デフォルトの名無しさん** · 2019/06/25(火) 12:21:21.76

日付と名前の区別ってどうすんの？

**600** · 2019/06/25(火) 13:41:11.08

書式は、どうでも良い。
こんな感じで

2019/07/10 A B
2019/07/10, A, B

**デフォルトの名無しさん** · 2019/06/25(火) 15:28:07.62

Hash使うとすごく簡単にできると思うが、Hashへの値のセットをプログラム中に書こうとすると、それがそのまま答えになってしまいそうな予感w

**デフォルトの名無しさん** · 2019/06/25(火) 16:12:29.73

>>573 Python3.6 ideonのpython は3.5で動かないが、下の方に出力サンプルを張り付けてあるからそれを見てください。
https://ideone.com/JqcYMA

出力サンプルを少しだけここに張り付け
開店時間＝ 0.0
Aの取皿開始　speed=0.7 kosu=0 時刻は 0.0
Bの取皿開始　speed=1.0 kosu=0 時刻は 0.01
Cの取皿開始　speed=1.4 kosu=0 時刻は 0.02
★★マグロが出来た時刻=0.03 作成間隔 t=0.30
Cがマグロを食った作成時刻＝0.03
★★カッパが出来た時刻=0.33 作成間隔 t=0.10
Aがカッパを食った作成時刻＝0.33
★★ウニが出来た時刻=0.43 作成間隔 t=0.10
★★上トロが出来た時刻=0.53 作成間隔 t=0.10
Cがウニを食った作成時刻＝0.43
Cが満腹休むよ　時刻＝0.63
Aが上トロを食った作成時刻＝0.53
★★エンガワが出来た時刻=0.64 作成間隔 t=0.10
★★マグロが出来た時刻=0.74 作成間隔 t=0.10
Bがエンガワを食った作成時刻＝0.64
Bがマグロを食った作成時刻＝0.74
★★マグロが出来た時刻=0.74 作成間隔 t=0.10
Bがエンガワを食った作成時刻＝0.64Bがマグロを食った作成時刻＝0.74
★★カッパが出来た時刻=0.84 作成間隔 t=0.10
★★ウニが出来た時刻=0.94 作成間隔 t=0.10
★★上トロが出来た時刻=1.04 作成間隔 t=0.10
Aの取皿開始　speed=0.7 kosu=1 時刻は 1.11
Aがカッパを食った作成時刻＝0.84

★★エンガワ

**デフォルトの名無しさん** · 2019/06/25(火) 16:57:19.63

>>600 Pharo/Squeak Smalltalk

| data dic |

data := {
#A -> #('2019/07/05' '2019/07/10' '2019/07/15' '2019/07/20').
#B -> #('2019/07/08' '2019/07/10' '2019/07/20').
#C -> #('2019/07/15' '2019/07/20' '2019/07/25')
}.

dic := Dictionary new.
data do: [:assoc |
assoc value do: [:date | (dic at: date ifAbsentPut: [OrderedCollection new]) add: assoc key].
].
dic associations sort
select: [:assoc | assoc value size >= 2]
thenCollect: [:assoc | assoc value: assoc value asArray]

"=> {'2019/07/10'->#(#A #B) . '2019/07/15'->#(#A #C) . '2019/07/20'->#(#A #B #C)} "

**蟻人間** ◆T6xkBnTXz7B0 · 2019/06/25(火) 17:04:02.93

>>575
テストデータ(各自で用意すること): 長方形、星形、ハート形

**デフォルトの名無しさん** · 2019/06/25(火) 17:27:11.68

#!/usr/bin/env perl
use List::MoreUtils;
@A = qw( 2019/07/05 2019/07/10 2019/07/15 2019/07/20);
%A = map {$_, 1} @A;

@B = qw( 2019/07/08 2019/07/10 2019/07/20);
%B = map {$_, 1} @B;

@C = qw( 2019/07/15 2019/07/20 2019/07/25);
%C = map {$_, 1} @C;

SEARCH:
for ( List::MoreUtils::uniq (@A, @B, @C) ){
if ($A{$_} && $B{$_} && $C{$_}){
print "everyone is free at $_\n";
next SEARCH;
}
if ($A{$_} && $B{$_} ){
print "A and B is free at $_\n";
}
if ($B{$_} && $C{$_}){
print "B and C is free at $_\n";
}
if ($A{$_} && $C{$_}){
print "A and C is free at $_\n";
}
}

**デフォルトの名無しさん** · 2019/06/25(火) 17:29:23.86

>>605
やはり辞書型がくみこまれてる言語は綺麗だね
数が増えたときでも問題ないかんじ

**デフォルトの名無しさん** · 2019/06/25(火) 17:30:16.52

ハート型って多角形だったのかー
こらノーベル賞ものの発見だな!

**デフォルトの名無しさん** · 2019/06/25(火) 17:30:27.94

タイポ
辞書型ではなく集合型だ

**デフォルトの名無しさん** · 2019/06/25(火) 18:13:23.94

>>600
>607はあまりにも酷かったので、修正
#!/usr/bin/env perl
use List::MoreUtils;
@A = qw( 2019/07/05 2019/07/10 2019/07/15 2019/07/20 );
%A = map {$_, A} @A;

@B = qw( 2019/07/08 2019/07/10 2019/07/20 );
%B = map {$_, B} @B;

@C = qw( 2019/07/15 2019/07/20 2019/07/25 );
%C = map {$_, C} @C;

for $date ( List::MoreUtils::uniq (@A, @B, @C) ){
for $someone_is_free_at (\%A, \%B, \%C){
push(@free_men, $$someone_is_free_at{$date}) if $$someone_is_free_at{$date};
}
print "@free_men are free at $date\n" if (@free_men > 1);
@free_men = ();
}

出力
A B are free at 2019/07/10
A C are free at 2019/07/15
A B C are free at 2019/07/20