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

**デフォルトの名無しさん** · 2019/02/03(日) 11:21:53.20

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

【出題と回答例】
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.2ch.net/test/read.cgi/tech/1538096947/

**デフォルトの名無しさん** · 2019/02/13(水) 11:31:27.70

>>164
わかりにくくてごめんね

**デフォルトの名無しさん** · 2019/02/13(水) 11:36:53.06

>>156 Lua
print(a)
実行結果
nil

**デフォルトの名無しさん** · 2019/02/13(水) 11:59:11.28

言語とか使えるライブラリとか制限しないと
意味が無くなっている希ガス
言語指定した場合でも特定の文法を使っては
ならないとか制限加えると面白いものが
出来るような,,,

**デフォルトの名無しさん** · 2019/02/13(水) 12:32:49.57

>>165
お前の場合、わかりにくいんじゃなくてわかりえないの
日本語もおかしいし

**デフォルトの名無しさん** · 2019/02/13(水) 12:36:48.35

>>168
俺の文が不親切すぎたよな
ごめんねごめんねー

**デフォルトの名無しさん** · 2019/02/13(水) 13:30:26.24

>>167 制限なんかしなくてよいよ。　ライブラリが嫌いならあまりライブラリが使えそうにないお題を出せばよいだけだし。
例えば正規表現ライブラリなんて装備されていない言語は殆どないだろうし、標準装備している言語とそうでない言語で不公平になるし。
使えるものはすべて駆使して解けばよいだろ。

**デフォルトの名無しさん** · 2019/02/13(水) 15:40:07.94

>>113 python
if A: B=A

結果
Aが True の時　B(結果)＝ True
Aが False の時　B(結果)＝ None　(変わらず)
Aが False の時　B(結果)＝ False　(変わらず)
Aが False の時　B(結果)＝ True　(変わらず)

**デフォルトの名無しさん** · 2019/02/13(水) 18:13:27.57

>>113 Lua
functio naraba(A, B)
if A == B then
return true
else
return B
end
end

**デフォルトの名無しさん** · 2019/02/13(水) 18:26:24.24

>>172 それちゃうよ。
A が False の時 B がFalseに限定される

**デフォルトの名無しさん** · 2019/02/13(水) 18:27:28.53

と言うか何を返してるんだろ。

**デフォルトの名無しさん** · 2019/02/13(水) 19:13:38.60

>>156
C言語のようなコンパイルする言語だとだいたいはコンパイル時にエラーになって実行不能だろうなあ(そうでない言語もあるかも知れないが)。
更に print がない言語もある。少なくともCの標準的なライブラリにはない。printf()やputs()のようなものはある。
なので変数宣言すればコンパイルは通るが今度はリンクで関数が見つからなくてエラーになりこれまた実行不能。

まあでも言語や環境で起こることは違って来るので答えは沢山出てくるかも知れない。(またはほとんど相手にされないかだ)。

**デフォルトの名無しさん** · 2019/02/13(水) 21:01:39.06

お題
長方形のサイズが指定された時、その長方形に敷きつめられるパターン全て列挙
回転もおkかは好きに定めていい
例: 2 3
#

###

#
#

###
###

**デフォルトの名無しさん** · 2019/02/13(水) 21:10:56.19

回転もOKの場合は↓も入るってことかの？

##
#

**デフォルトの名無しさん** · 2019/02/14(木) 00:46:56.24

>>176 なんか図が良くわからないな。

2 x 3 なら、そのパーツは, / は空きだとすると

*//
***
と
/**
――-
*//
*//
と
/**
/**
―――
*//
**/
と
/**
//*
――
***
***
――-
みたいな感じかな。パーツの回転を許す許さないは自由という事。
3 x 3 の時は斜めのパーツも許すんだろうね。
*//
/*/
//*
これが一つのパーツ？

**デフォルトの名無しさん** · 2019/02/14(木) 00:50:00.40

>>178 斜めのパーツは現実的には作れないし、組み合わせが膨大になるから、許さない方が良いのかも。
縦、横に繋がっていないパーツは除外かな。

**デフォルトの名無しさん** · 2019/02/14(木) 01:06:21.81

これはかなり難しいお題になるんじゃないの。
パーツを少なくするためには、穴開きパーツも許さない方が良さそうだし。

パーツは、空白は 0 基本図形は 1として表した方が良いのかな。 2 x 3 なら

100
110
と
011
001
とか

**デフォルトの名無しさん** · 2019/02/14(木) 01:48:31.30

>>178
同じ形のパーツだけで指定の長方形に敷き詰められる物を探すんじゃろ

**一尾圭吾** · 2019/02/14(木) 02:36:27.51

プログラミング超初心者です
自動で2ちゃんにコピペを書き込むようになりたいんですがそれってかなりレベル高いスキルですかね？

**一尾圭吾** · 2019/02/14(木) 02:39:09.40

>>10うわぁww眉毛剃っとるwwwwww
流石やな....ヤクザやんw

**デフォルトの名無しさん** · 2019/02/14(木) 05:27:21.29

>>150
三値論理

**デフォルトの名無しさん** · 2019/02/14(木) 06:52:51.05

論理プログラムのスレはありませんか？

**デフォルトの名無しさん** · 2019/02/14(木) 08:13:17.60

>>176
回転なしなら縦の長さの因数と横の長さの因数それぞれの組み合わせの四角を列挙すればええんよな？
回転ありだとどうすればええんじゃろ

**デフォルトの名無しさん** · 2019/02/14(木) 08:52:55.94

>>176 必要なパーツの種類と個数を出せば良いんだろう。
回転させて使おうがどうしようが自由。

**デフォルトの名無しさん** · 2019/02/14(木) 09:41:08.57

>>178
パターン全てって書いてあるから単に 2^ドット数だと思ってたんだが、人間が見た時に何らかの意味がありそうなパターンって事なの？
しかし何に意味がありそうと感じるかは主観の問題だからここでのお題としては適切ではないよね。

**デフォルトの名無しさん** · 2019/02/14(木) 10:37:38.67

>>188
アホかお前

**デフォルトの名無しさん** · 2019/02/14(木) 11:47:38.28

>>156 R
cat(a)

Error in cat(a) : object 'a' not found
Execution halted

**デフォルトの名無しさん** · 2019/02/14(木) 11:52:48.67

パーツの対称性を見るくらいしかなさそうだけどなぁ

90度回転で不変ならパーツ自体が正方形の場合しか充填し得ないし180度回転で不変なら長方形しかない
問題は対称性なしの場合で, 回転で得られる4通りの図形の組み合わせで少なくとも適当な長方形が作れる必要がある。

**デフォルトの名無しさん** · 2019/02/14(木) 12:23:18.44

出題者です、同じ1種類のパーツのみで敷き詰めるのを意図してた
回転なしは因数でおk、有りは一応解法は浮かんだが証明詰めきれなかったので好きに定めて良いって書いた

**デフォルトの名無しさん** · 2019/02/14(木) 12:26:41.67

>>189
じゃあどう解釈すれば良いのか？

**デフォルトの名無しさん** · 2019/02/14(木) 12:30:54.48

>>192
相変わらず問題がよくわからんよ。

**デフォルトの名無しさん** · 2019/02/14(木) 12:50:46.70

>>192 2x3 の時は、1種類のパーツのみで埋めるとすると

111
111
の時は 111 x2個
1,1,1
1,1,1
の時は 1,1(2段) x3個

11,1
1,11
の時は 110,100(2段) 2個とするのか
11 が 2個と 1 が2個は2種類のパーツだからダメ？

**デフォルトの名無しさん** · 2019/02/14(木) 13:04:00.12

>>195 90度回転を認めると、11が、3個で良いね。

回転なしなら、111 2個と 1が6個
1
1
2段のパーツが3個
の3種類が解？

**デフォルトの名無しさん** · 2019/02/14(木) 13:09:44.77

上でもう出てんだろ
回転なしなら辺の約数の組み合わせで全部だっつーの

**デフォルトの名無しさん** · 2019/02/14(木) 13:44:03.89

ヤング図形考えて終わりじゃねえのコレ

**デフォルトの名無しさん** · 2019/02/14(木) 13:56:13.92

abcd
badc

abab
cdcd

aaba
babb

abbb
aaab

同じパターンで埋めるのって色々できそうだけどこういうの全部いいの？

**デフォルトの名無しさん** · 2019/02/14(木) 18:55:26.99

>>199 それ何種類も使ってるじゃん。
最低何れかの縦横が連続していないとダメだろ。パズソーのピースじゃないの？
先ずは2x3で1種類のパーツのみで探せという問題の回答を決めてほしい。

**デフォルトの名無しさん** · 2019/02/14(木) 19:04:40.56

いや全部一種類だよ
マスがくっついてないだけで
連続してるとは書かれてなかったし

**デフォルトの名無しさん** · 2019/02/14(木) 19:56:54.06

お題を正しく理解できてない模様　>>176をもう1度確認
1つ目の#は6個、2つ目の###は2個、
3つ目の#　　　4つ目の###
　　　#は3個、　　　###は1個で2行3列が全て埋まります

**デフォルトの名無しさん** · 2019/02/14(木) 20:35:35.28

>>210
例えば、最初の基本バーツは何？どうしてこれが1種類なのかな？

abcd
badc

-----|

**デフォルトの名無しさん** · 2019/02/14(木) 20:45:00.72

>>202 全く理解できない。
>>176 はどうして一つ目が6個なのかな？ 1個しかないじゃん？
一つ目って何？二つ目って何？

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

自分が今見てるのは、iPhone BB2C

**デフォルトの名無しさん** · 2019/02/14(木) 20:54:16.99

回答の良し悪しだけじゃない、良問悪問ってあるよね…

**デフォルトの名無しさん** · 2019/02/14(木) 21:20:53.44

>>204

1つ目の # は6個で2行3列が全て埋まります

###
###

2つ目の ### は2個で2行3列が全て埋まります

###
###

3つ目の #
　　　 # は3個で2行3列が全て埋まります

###
###

4つ目の ###
　　　 ### は1個で2行3列が全て埋まります

###
###

**デフォルトの名無しさん** · 2019/02/15(金) 01:14:00.78

>>203
回転を許す立場なら
@_
_@
って言うパーツ一種類だけからできてんじゃん
頭大丈夫か？

**デフォルトの名無しさん** · 2019/02/15(金) 01:38:17.60

>>207 b と d が同じに見えるそっちこそ頭大丈夫か？

abcd
badc

これのどこが、
--@
@―

なんだよ。

**デフォルトの名無しさん** · 2019/02/15(金) 02:40:42.39

90度回転ありなら
# 　 # 　 # 　 #
# と # と # と #
で敷きつめられる(＝全て埋まる)という意味だろうけど
>>179に抵触するので、これは無しでしょ

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

>>208
回転を許すっつってんだろ氏ねよ糞無能が
@_
_@
を90度回転させたら
_@
@_
だろうが
市ね糞野郎

**デフォルトの名無しさん** · 2019/02/15(金) 08:54:29.71

>>209 ようやくわかった。
a_
_a
_b
b_
などと並んでるものは、全て同じパーツとみなすという意味か。

>>176 のお題をよく見ると、2 x 3 の正解の回答が書かれてる。斜めは許していないからダメだろ。
また、回転も許していない。
回転を許すなら
■
■ ■
というパーツも入るがそれは除外されてるから、回転も無しだ。

**デフォルトの名無しさん** · 2019/02/15(金) 10:38:13.03

>>199のような飛び飛びのパターンまで含めると5x5くらいのサイズなら解けそうでも
10x10くらいの大きさになるとほぼ解けなくなるか？

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

...
d0<-a
a->b
b->c
c->d
c'<-d
b'<-c'
a<-b'
d->a2
d<-a2
a2->b2
....
に対して
任意の英数字から初めて右向きの矢印をnこ進んだ英数字を一瞬で割り出す簡単な計算方法を教えろ
左向きの矢印のときも答えろ
ここで英数字には好きな整数の値を対応させろ

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

自己解決しました
この問題には答えなくていいです

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

新問題
...
g0<-a
a->b
b->c
c->d
c'<-d
b'<-c'
a<-b'
d->e
e->f
f->g
f'<-g
e'<-f'
g->a1
g<-a1
a1->b1
....
に対して
任意の英数字から初めて右向きの矢印をnこ進んだ英数字を一瞬で割り出す簡単な計算方法を教えろ
左向きの矢印のときも教えろ
ここで英数字には好きな整数の値を対応させろ

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

訂正
d<-e'
追加で

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

日本語で書けや

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

自己解決しました
この問題には答えなくていいです
>>217
これからは英語で書くので許して下さい

**デフォルトの名無しさん** · 2019/02/15(金) 12:34:22.87

自己解決ってどういうこと？
宿題貼ってるの？

**デフォルトの名無しさん** · 2019/02/15(金) 12:41:19.85

俺はキチガイだから相手にしないほうが良い

**デフォルトの名無しさん** · 2019/02/15(金) 12:43:47.27

わけのわからん問題が続くなあ・・・

**デフォルトの名無しさん** · 2019/02/15(金) 17:27:20.42

>>211
> 回転もおkかは好きに定めていい

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

しかしこの問題は回転を考えないと、曲がったパーツは不可能だね。
かなり単純化される。

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

なんかスレが新しくなってから湧いてきたPythonのクソみたいなコード連投してる日本語がめちゃくちゃのやつうざい

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

前スレから居るんですよそいつね

**デフォルトの名無しさん** · 2019/02/16(土) 02:35:08.75

2行3列で回転無しなら以下の4つが答え

#

###

#
#

###
###

回転ありなら更に以下の2つも

##
#

#
##

**デフォルトの名無しさん** · 2019/02/16(土) 07:00:03.49

>>226
> ##
> #
>
> #
> ##
この二つは90度回転した同じものやが

**デフォルトの名無しさん** · 2019/02/16(土) 09:56:41.50

煽りではなく本当に発達障害またはそれに準ずる知的ボーダーを疑うレベルで頭悪いな

**デフォルトの名無しさん** · 2019/02/16(土) 10:48:56.77

>>228 煽りじゃん。プログラムを出してくれた方が良い。

**デフォルトの名無しさん** · 2019/02/16(土) 12:54:53.60

お題：バブルソートを実装せよ

**デフォルトの名無しさん** · 2019/02/16(土) 15:04:36.49

>>230 Perl5
use feature qw{current_sub say};

sub bblsort {
for (0..@_) {
sub {
if (@_ >= 2) {
__SUB__->(@_[1..$#_]);
($_[1], $_[0]) = ($_[0], $_[1])
if $_[0] > $_[1]
}
}->(@_[$_..$#_]);
}
}

use List::Util shuffle;
@a = shuffle 1..20;
say "1) @a";
bblsort @a;
say "2) @a";

実行結果
~ $ perl 13_230_bblsort.pl
1) 13 6 18 7 15 1 11 8 20 16 14 4 9 10 12 17 2 19 5 3
2) 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

**デフォルトの名無しさん** · 2019/02/16(土) 16:42:44.41

お題：数値Xを4つの方法で整数に丸めよ
(1) 0に向かう
(2) 0から遠ざかる
(3) 正の無限大に向かう
(4) 負の無限大に向かう

X = 0.5
=> 0 1 1 0

X = -1.1
=> -1 -2 -1 -2

X = 3
=> 3 3 3 3

**デフォルトの名無しさん** · 2019/02/16(土) 16:47:26.55

ふたたび、円の内部の整数点を求めるやつ。個数ごとその最小半径を求める。
41個、47個とかが難し目だった気が。

**デフォルトの名無しさん** · 2019/02/16(土) 17:07:10.46

内部じゃなくて円周上のやろ

**デフォルトの名無しさん** · 2019/02/16(土) 17:07:42.16

>>230

**デフォルトの名無しさん** · 2019/02/16(土) 17:27:32.65

>>232 組み込み使っていいんだよね? (面倒になるけど、使わなくても書けるけどｻ…)
Perl5

use POSIX qw(floor ceil);
for (0.5, -1.1, 3) {
@a = ("$_ => ",
sprintf('%d', $_), #int($_),
($_ > 0 ? ceil($_) : ceil($_-1)),
ceil($_),
floor($_)
);
print "@a\n";
}

実行結果
~ $ perl 13_232_round.pl
0.5 => 0 1 1 0
-1.1 => -1 -2 -1 -2
3 => 3 3 3 3

**デフォルトの名無しさん** · 2019/02/16(土) 17:33:21.11

>>230 Ruby
def bs(ary)
　　ary.tap do |a|
　　　　(a.size**2).times do
　　　　　　(a.size - 1).times do |i|
　　　　　　　　a[i + 1], a[i] = a[i, 2] if a[i] > a[i + 1]
　　　　　　end
　　　　end
　　end
end
p bs([3, 1, 4, 15, 92]) # => [1, 3, 4, 15, 92]

>>232
sgn = -> n {n <=> 0}
r4 = -> n {n.floor}
r3 = -> n {-r4[-n]}
r2 = -> n {sgn[n] * r3[n.abs]}
r1 = -> n {sgn[n] * r4[n.abs]}

[0.5, -1.1, 3].each{|i| puts 'x = %p => %p %p %p %p' % [i, r1[i], r2[i], r3[i], r4[i]]}
# =>
x = 0.5 => 0 1 1 0
x = -1.1 => -1 -2 -1 -2
x = 3 => 3 3 3 3

**デフォルトの名無しさん** · 2019/02/16(土) 17:34:37.44

>>236　これだと
入力が０のとき
>(2) 0から遠ざかる
が-1になっちゃう。

($_ > 0 ? ceil($_) : ceil($_-1)),

↓を

($_ >= 0 ? ceil($_) : ceil($_-1)),

とすべきでしょうね。ｽﾏｿ

**デフォルトの名無しさん** · 2019/02/16(土) 18:34:59.76

>>234
円周上が正解

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

>>262 J
f =: (**<.@|),(**>.@|),<.,>.
f 0.5
0 1 1 0

f _1.1
_1 _2 _1 _2

f 3
3 3 3 3

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

>>262に期待。

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

>>240
間違えました
262ではなく>>232でした

**デフォルトの名無しさん** · 2019/02/16(土) 23:30:26.24

>>232 octave
https://ideone.com/7nvSr1

◆QZaw55cn4c · 2019/02/17(日) 00:20:40.59

>>232 をやろうとおもって、IEEE754 の float/double を直接触る方法を探しているのですが、なにかいい方法はないでしょうか…

**デフォルトの名無しさん** · 2019/02/17(日) 00:24:40.58

言語も言わずに(ry
https://qiita.com/nia_tn1012/items/d26f0fc993895a09b30b

◆QZaw55cn4c · 2019/02/17(日) 00:30:56.20

>>245
thx a lot !!

**デフォルトの名無しさん** · 2019/02/17(日) 01:04:30.52

>>244
あった

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

>>233
これ

「Nに対し平面上の円で、その円周上の整数点がちょうどN個となる円の最小半径を求めよ」

例)
x^2 + y^2 = 1の整数点は4つだが、最小半径ではない。
(x-0.5)^2 + (y-0.5)^2 = 0.5の方が小さい。

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

>>248
網羅的は、きりがなく一つの予想をたてた。
一つ半径を求めたら、次のような操作で半径を縮めたものと、真の最小半径が一致する予想。

半径rの整数点がNだとして。　rを整数比で縮小して中心をずらす。

たとえば上の例だと、r=1で、r →　2/4 r で、
(2x -1)^2 + (2y -1)^2 = 2r
両辺4倍して中心ずらした式

**デフォルトの名無しさん** · 2019/02/17(日) 14:03:58.61

整数比かけるので有理数半径ならすべて作り出せるから当たり前か
無駄なく高速に半径縮められる手法が大事か

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

あと半径は間違いで、半径でなく右辺、半径^2　だった

**デフォルトの名無しさん** · 2019/02/17(日) 19:56:30.00

お題
パンケーキソートを実装する

**デフォルトの名無しさん** · 2019/02/18(月) 22:45:57.31

>>252 Perl5 (効率の良いｱﾙｺﾞﾘｽﾞﾑではないけれど、まずは…)

use List::Util shuffle;

@a = shuffle 1..20;
print "shuffled) @a\n";

sub flip {
($m, $n) = @_;
@a[0..$m] = reverse @a[0..$m];
@a[0..$n] = reverse @a[0..$n];
}

for $i (reverse 1..$#a) {
　$k = undef;
　for (0..$i) {
　　$k = $_ if (!defined($k) or $a[$k] < $a[$_])
　}
　flip($k, $i) if $k < $i;
}

print "sorted　) @a\n";

実行例
~ $ perl 13_252_clumsy_pancake_sort.pl
shuffled) 18 6 2 13 16 1 12 15 10 4 17 20 9 7 19 14 5 11 3 8
sorted ) 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

**デフォルトの名無しさん** · 2019/02/19(火) 22:19:54.18

; Common Lisp

(defun flip (seq n)
　(concatenate (type-of seq) (nreverse (subseq seq 0 (1+ n))) (subseq seq (1+ n))))

(defun pancake-sort (seq predicate)
　(loop for s = seq
　　　then (if j (flip (flip (flip (flip s (1- j)) (1- i)) i) j) s)
　　　for i from 1 to (1- (length seq))
　　　for j = (position (elt s i) s :end i :test predicate)
　　　finally (return s)))

**デフォルトの名無しさん** · 2019/02/19(火) 22:25:14.24

お題:1から8までのカードを混ぜ、2枚そこから引いた時1枚目*10+2枚目が素数になる確率を求める。
ただし、
1. 小数第3位で四捨五入した後に回答すること。
2. 数学的な証明は禁止。
3. 各カードは9-その数字の数だけ存在する。 (例:1ならば8枚存在する)
4. 各カードが出る確率はまだ引かれていないカードの枚数に比例する。

**デフォルトの名無しさん** · 2019/02/20(水) 00:45:46.98

python
print(0.31)

**デフォルトの名無しさん** · 2019/02/20(水) 00:55:56.83

>>255 Perl5
$R = 0.0;
@s = map{($_) x (9-$_)} 1..8; #say "@s";
$t = @s; #say $t;
for (qw{11 13 17 23 31 37 41 43 47 53 61 67 71 73 83}) {
　@o = split'';
　my %h;
　$h{$_}++ for @s;
　my $r = $h{$o[0]}-- / $t;
　$r *= $h{$o[1]}-- / ($t - 1);
　$R += $r;
}
printf "%3.2f\n", $R;

実行結果
~ $ perl 13_255.pl
0.31

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/02/20(水) 00:58:27.33

お題: URLで場所を指定された、インターネット上のテキストファイルをダウンロードするプログラム。

**デフォルトの名無しさん** · 2019/02/20(水) 01:16:40.92

>>258 Perl5
require LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->agent('Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.2; Win64; x64; Trident/6.0)');
use HTTP::Cookies;
$ua->cookie_jar(HTTP::Cookies->new(file => 'lwp-cookies.txt', autosave => 1));
$url = 'http://ftp.iij.ad.jp/pub/linux/centos/7.6.1810/isos/x86_64/0_README.txt';
$file = './0_README.txt';
$res = $ua->mirror($url, $file);
print $res->status_line, "\n";

実行例
~ $ perl 13_258.pl
200 OK

（※こういうのは、別に今急に考えたわけじゃなく、日常的に作って使っているのですぐ投稿できました）

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/02/20(水) 01:37:18.13

WSHでダウンロードできるヤツ、おる？

**デフォルトの名無しさん** · 2019/02/20(水) 01:40:03.52

>>260
wget.exe か curl 使えば？

**デフォルトの名無しさん** · 2019/02/20(水) 02:05:29.76

>>260 download.js
var xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");
xmlhttp.Open("GET", "http://ftp.iij.ad.jp/pub/linux/centos/7.6.1810/isos/x86_64/0_README.txt";, false);
xmlhttp.Send();
var stream = new ActiveXObject("Adodb.Stream");
stream.Type = 1;
stream.Open();
stream.Write(xmlhttp.responseBody);
stream.SaveToFile("0_README.txt", 2);

**デフォルトの名無しさん** · 2019/02/20(水) 02:28:54.15

pythonista stash 反則？

$ wget http://ftp.iij.ad.jp/pub/linux/centos/7.6.1810/isos/x86_64/0_README.txt

$ ls -la *.txt
0_README.txt (2.4K) 2019-02-20 02:21:45

**デフォルトの名無しさん** · 2019/02/20(水) 02:51:47.69

>>255
;; Common Lisp

(let ((prime (list 2)))
　(defun primep (n)
　　(loop for i from (1+ (car prime)) upto n
　　　　　 unless (find-if (lambda (j) (zerop (mod i j))) prime :from-end t)
　　　　　 do (push i prime))
　　(find n prime)))

(defun nearest (i j)
　(/ (floor (+ (* i (expt 10 j)) 0.5)) (expt 10 j)))

(loop with cards = (loop for i from 1 to 8 nconc (make-list (- 9 i) :initial-element i))
　　　 and n = 0 and p = 0
　　　 for one in cards
　　　 do (loop for two in (remove one cards :count 1)
　　　　　　　　do (incf n)
　　　　　　　　if (primep (+ (* 10 one) two)) do (incf p))
　　　 finally (format t "~,3F~%" (nearest (* (/ p n)) 3)))