プログラミングのお題スレ 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/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秒