プログラミングのお題スレ 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/11/14(木) 22:21:25.20

配列をキャッシュに乗せるだけで早くなる
配列にするだけで早くなる

**デフォルトの名無しさん** · 2019/11/14(木) 23:43:50.36

>>970
>>941の最も近い値を求める処理(Aと呼ぶ)だけを複数回連続して行う場合はそうだが、
間に別の処理(Bと呼ぶ)がたくさん入る場合はキャッシュから外れるかも知れないし、
AよりもBの方で相対的にだいぶ長い時間がかかっているならば、Aを高速化する
意味はない。

Aを簡単に書き終え、Bを書き進めてプログラム全体を完成させ、各部分の実行時間を
デバッガで分析し、Aを高速化する必要があるか判定するのが効率的な開発方法。
必要なときだけAを書き直してみて、元のAと実行時間を比較し、顕著に速い場合だけ
採用する。あまり変わらない場合は元の簡単な方に戻す。

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

>>969
なぜ
一番簡単
だと思ったのか

**デフォルトの名無しさん** · 2019/11/15(金) 06:11:01.44

中途半端に最適化するくらいなら
意味通りをそのまま記述した方が良いよ

トリッキーなマクロとか使わないで普通にループでいいし

**デフォルトの名無しさん** · 2019/11/15(金) 07:24:03.38

>>941 J

f =: 4 : 0
{. x /: | x - y
)

a =: 98 100 198 200 250 298
a f 199
198

**デフォルトの名無しさん** · 2019/11/15(金) 08:39:52.88

>>491 python
整数の範囲を 1000000000 にして、リストのサイズをその1/10の　100000000 にしてやった物

https://ideone.com/JL4ZtG

**デフォルトの名無しさん** · 2019/11/15(金) 08:46:57.30

お題はどれ？

**デフォルトの名無しさん** · 2019/11/15(金) 10:34:11.71

>>975 は、>>941 のお題の間違い。

**デフォルトの名無しさん** · 2019/11/15(金) 10:34:39.11

>>972
もっと簡単なのがあると言うなら提示すりゃいいだけ

**デフォルトの名無しさん** · 2019/11/15(金) 10:37:36.49

そんなら一番簡単なんて言ったもん勝ちやんアホクサ

**デフォルトの名無しさん** · 2019/11/15(金) 11:19:40.93

>>979
どういうこと？

**デフォルトの名無しさん** · 2019/11/15(金) 13:20:35.16

発言者に証明責任がある
当たり前

**デフォルトの名無しさん** · 2019/11/15(金) 13:22:00.36

簡単じゃない部分は書いたけどね

**デフォルトの名無しさん** · 2019/11/15(金) 13:25:38.61

本当に一番簡単だと思ってるなら
非常に頭が弱い
というしかない

**デフォルトの名無しさん** · 2019/11/15(金) 16:04:20.43

証明責任が

**デフォルトの名無しさん** · 2019/11/15(金) 18:45:17.65

>>941 Ruby

def f(a,x)
a.min_by{|v|(v-x).abs}
end

**デフォルトの名無しさん** · 2019/11/15(金) 22:18:10.52

>>982
ひょっとして>>973か？
頓珍漢な指摘でドヤられても困るw

**デフォルトの名無しさん** · 2019/11/16(土) 07:59:12.18

お前ちょっとしつこいよ
二人ともどっか行ってくれ

**デフォルトの名無しさん** · 2019/11/16(土) 09:38:56.12

お題: 標準入力から読み取った文字列に対して変換候補の単語を表示するスクリプトを作れ
変換候補は https://www.cs.cmu.edu/~rgs/alice-table.html のテキストを元にし、英文のみの対応とする

例:
in < on
out > ['on', 'once', 'one', 'only']
in < we
out > ['well', 'went', 'were']

**デフォルトの名無しさん** · 2019/11/16(土) 09:39:44.99

>>988
URL訂正: https://www.cs.cmu.edu/~rgs/alice-I.html

**10-11** · 2019/11/16(土) 11:43:03.30

Mathematica
ビットテーブル使ったからいまいち

f[x_]:=Round[Exp[x*49/2^9]*10]+Mod[BitShiftRight[8518656,x],2]

f[Range[0,23]]
{10,11,12,13,15,16,18,20,22,24,27,30,33,36,39,43,47,51,56,62,68,75,82,91}

**デフォルトの名無しさん** · 2019/11/16(土) 13:01:44.00

>>988-989 PowerShell
$Words = ([RegEx]"\w+").Matches((Invoke-WebRequest 'https://www.cs.cmu.edu/~rgs/alice-I.html').Content) | Select-Object -ExpandProperty 'Value' | Sort-Object -Unique
'on', 'we' | %{ "'$_' => ['$($Words -cmatch "^$_.*$" -join ''', ''')']" }
--
'on' => ['on', 'once', 'one', 'only']
'we' => ['well', 'went', 'were']

**蟻人間** ◆T6xkBnTXz7B0 · 2019/11/16(土) 14:12:37.63

そろそろ次スレ

**デフォルトの名無しさん** · 2019/11/16(土) 20:00:42.94

>>987
誤解がないように一応言っておくが、同一人物なのは943, 952, 958, 969, 971, 993だけで、
978や986は別人ね。

**デフォルトの名無しさん** · 2019/11/16(土) 20:11:13.21

どうでもいい
匿名掲示板

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

>>988
@Mathematica

https://ideone.com/3Ad2Nv

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

次スレ

プログラミングのお題スレ Part16
http://mevius.5ch.net/test/read.cgi/tech/1573948822/

**990** · 2019/11/17(日) 15:37:45.58

BitGet使うんだった(Mathematicaに慣れてないのばればれ)
(* 49/2^9 = 0.095703125 *)
f[x_]:=Round[Exp[x*0.095703125]*10]+BitGet[8518656,x]

もう少し頑張っても16ビット以内にビットテーブルは縮小出来ず…。
(* 785/2^13 = 0.0958251953125 *)
f[x_]:=Round[Exp[x*0.0958251953125]*10]+BitGet[130048,x]

**デフォルトの名無しさん** · 2019/11/21(木) 12:06:42.30

>>941 julia
a=[98,100,198,200,250,298]
f(a,x)=a[argmin(map(abs ,a.-x))]
f(a,50)

**デフォルトの名無しさん** · 2019/11/21(木) 17:12:54.10

>>988-989 Squeak Smalltalk。関数で。

| contents words fn |
contents := (HTTPClient httpGet: 'https://www.cs.cmu.edu/~rgs/alice-I.html') contents.
words := (contents replaceAll: Character lf with: Character space; asTextFromHtml) asString subStrings: ' !"''()*,-.:;?`'.
words := words asSet asSortedArray.

fn := [:in | words select: [:word | word beginsWith: in]].
fn value: 'on'. "=> #('on' 'once' 'one' 'only') "
fn value: 'we'. "=> #('well' 'went' 'were') "

"for Pharo => http://ws.stfx.eu/DK48GF5ZH8SF "

**蟻人間** ◆T6xkBnTXz7B0 · 2019/11/21(木) 20:01:07.49

はかい
こうせん
せんもんがっこう

**1001** · Over 1000

このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 116日 0時間 21分 10秒