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

[過去ﾛｸﾞ] プログラミングのお題スレ Part17 (1002ﾚｽ)
上下前次 1-新

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索歴削→次ｽﾚ栞削→次ｽﾚ過去ﾛｸﾞﾒﾆｭｰ

32(1): 2020/03/19(木)18:08 ID:SIWc9klw(2/2) AAS
>>31
かなり杜撰な問題だと思うけどそもそも自分でちゃんと解いたのか？

33: 2020/03/19(木)18:18 ID:WnokI830(3/3) AAS
>>32
いいえ

34: 2020/03/19(木)18:21 ID:sZ6Ndc8g(1) AAS
テキトーすぎる
コテ関係なく質がひどすぎるお題なんて触れなくておｋ

35: 2020/03/19(木)20:14 ID:WsP7BoFG(1) AAS
おまえらやる気なさすぎワロタw

36: 2020/03/19(木)20:33 ID:I3A3yd/j(1) AAS
奇形のデブス前にしてチンコ勃てろと言ってるようなもの。
それでEDと罵られても困る。

37: 2020/03/20(金)06:22 ID:Edy1QoAW(1) AAS
>>29
球なのに平らであると

38: 2020/03/20(金)08:51 ID:WvSQRAtR(1) AAS
リーマン球面は複素平面である。
故に球面は平面である。
Q.E.D.

39: 2020/03/20(金)09:12 ID:xr3G6R5C(1) AAS
お題：Gとなるノノグラムデータを作って下さい。

40: 2020/03/20(金)09:29 ID:tkx4ScZk(1) AAS
Gとなる、というのは解がGの文字の字形になるということか？
Gの文字の字形に定義はあるの？

41: 2020/03/20(金)09:49 ID:iazeZlcv(1) AAS
リーマン球面は複素平面である...？？？

42(4): 2020/03/21(土)19:49 ID:I6z+mtmQ(1/2) AAS
お題: ＲＧＢを独自定義の色定数に変換せよ
関数convに引数r, g, bが渡される。それぞれの引数は0~255の範囲の値を持つRGBカラーの値である
このRGB値を以下の色定数に変換し、戻り値として返却せよ

111 ... BLACK
112 ... BLUE
121 ... GREEN
122 ... CYAN
211 ... RED
212 ... MAGENTA
221 ... YELLOW
省2

43: 2020/03/21(土)20:01 ID:I6z+mtmQ(2/2) AAS
>>42
訂正: MAGENTA -> PURPLE

44: 2020/03/21(土)21:38 ID:H1X3lIOS(1) AAS
>>42
Java
外部ﾘﾝｸ:paiza.io

45: 2020/03/21(土)22:23 ID:vYB/WqOU(1) AAS
int conv(int r, int g, int b){
return (r&0x80?200:100) + (g&0x80?20:10) + (b&0x80?2:1);
}

46: 2020/03/22(日)00:11 ID:3eM1H9mL(1) AAS
>>3
Java
外部ﾘﾝｸ:paiza.io

47: 2020/03/22(日)03:48 ID:INd1TwL5(1) AAS
>>42 Ruby
def conv( *rgb ) rgb.map{|v| v >> 7 & 1 }.inject(0){|r,i| 10*r + i + 1 } end

conv( 0x80, 0, 0 ) #=> 211

48(3): 2020/03/22(日)10:39 ID:q38LxNo0(1) AAS
>>42 Pharo/Squeak Smalltalk

"すでに機能として組み込まれている"
Color r: 0 g: 0 b: 0. "=> Color black "
Color r: 0 g: 0 b: 1. "=> Color blue "
Color r: 0 g: 1 b: 0. "=> Color green "
Color r: 0 g: 1 b: 1. "=> Color cyan "
Color r: 1 g: 0 b: 0. "=> Color red "
Color r: 1 g: 0 b: 1. "=> Color magenta "
Color r: 1 g: 1 b: 0. "=> Color yellow "
Color r: 1 g: 1 b: 1. "=> Color white "
省3

49: 2020/03/22(日)12:47 ID:EPda6hnZ(1) AAS
>>48
さしがsmalltalkさん

50: 2020/03/22(日)23:23 ID:Bu0KMZaA(1) AAS
>>48
恐ろしい子・・・

51: 2020/03/23(月)00:59 ID:ryqQXgQk(1) AAS
>>48
さすスモ

52(7): 2020/03/27(金)23:49 ID:7AzyN3tE(1) AAS
お題:安価をレス番リストに変換せよ

例:
"1" -> [1]
"1-3" -> [1,2,3]
"1,3" -> [1,3]
"1,3-5" -> [1,3,4,5]

53(1): 2020/03/28(土)00:46 ID:xGS8Imsw(1) AAS
>>52 Ruby
def anka(str)
nums=[]
str.split(“,”).each do |s|
x,y=s.split(“-“)
if y
nums+=(x.to_i .. y.to_i).to_a
else
nums<<x.to_i
end
省5

54(1): 2020/03/28(土)01:05 ID:ngUeRIaE(1/2) AAS
お題:>>52

例:
>>52に追加で
"1,1" -> [1]
"1-3,2" -> [1,2,3]
"1-4,2-3" -> [1,2,3,4]
"1-4,3-5" -> [1,2,3,4,5]

55: 2020/03/28(土)01:08 ID:ngUeRIaE(2/2) AAS
やっぱやめた。
よく考えたら>>53のコードに重複削除追加するだけだった

56: 2020/03/28(土)09:55 ID:YBto5Ud7(1) AAS
>>52 Ruby

%w[1 1-3 1,3 1,3-5].each{|e| p eval "[#{e.gsub(/(\d+)-/, '*\1..')}]"}

# => [1]
[1, 2, 3]
[1, 3]
[1, 3, 4, 5]

57: ◆QZaw55cn4c 2020/03/28(土)10:17 ID:WJROMx30(1) AAS
>>52 >>54
既出
= 2chｽﾚ:tech
2chｽﾚ:tech

58(1): 2020/03/28(土)11:14 ID:VFdWLa/U(1/2) AAS
>>52 Perl5

$"=',';
for $a (<DATA>) {
　$a =~ s/-/.../;
　@s = eval $a;
　print "[@s]\n";
}
__DATA__
1
1-3
省8

59(1): 2020/03/28(土)11:21 ID:VFdWLa/U(2/2) AAS
>>58 Perl5 ちょっと修正

$"=',';
for $a (<DATA>) {
　$a =~ s/-/.../g;
　@s = sort{$a<=>$b} eval $a;
　print "[@s]\n";
}
__DATA__
1
1-3
省8

60: 2020/03/28(土)18:22 ID:ssy5u0i6(1/2) AAS
>>52
Java
外部ﾘﾝｸ:paiza.io

61(3): 2020/03/28(土)18:24 ID:ssy5u0i6(2/2) AAS
お題:レス番リストを安価に変換せよ

例:
[1] -> "1"
[1,2,3] -> "1-3"
[1,3] -> "1,3"
[1,3,4,5] -> "1,3-5"

62: 2020/03/28(土)19:38 ID:RLgHfGbj(1) AAS
前者は2ch browserで使えるけど後者はそうじゃないね

63: 2020/03/28(土)23:41 ID:X4tW2giy(1) AAS
まーたやらな言い訳かー
やる気ねーなw

64: 2020/03/29(日)10:50 ID:ACisvDeP(1) AAS
>>61 js

let レス番リスト=[1,3,4,5];
let 先頭レス番=レス番リスト[0];
let 安価="";
for(let イ=0;イ<レス番リスト.length-1;イ++){
if(レス番リスト[イ]+1!=レス番リスト[イ+1]){
安価+=レス番リスト[イ]==先頭レス番?先頭レス番+",":先頭レス番+"-"+レス番リスト[イ]+",";
先頭レス番=レス番リスト[イ+1];
}
}
省3

65(1): 2020/03/29(日)14:05 ID:kU1QBoxf(1) AAS
>>61 Perl5 (もう少しｽﾏｰﾄな書き方はあるかもしれないが…)

for (qw{[1] [2,3] [1,2,3] [1,3] [1,3,4,5]}) {
　@a = /(\d+)/g;
　%h = map{$_ => $_} @a;
　@b = map{$h{$_}//','} 1..1000;
　$"=','; $b = "@b";
　$b =~ s/^,*(.+?),*$/$1/;
　@c = split /,,+/, $b;
　@d = map{[eval]} @c;
　@e = map{@$_ > 2 ? "$$_[0]-$$_[-1]" : "@$_"} @d;
省9

66: 2020/03/29(日)18:03 ID:5iH4CTSz(1/2) AAS
なにやってるのか全くわからんw

67: 2020/03/29(日)18:46 ID:CipzEZQ7(1) AAS
@a = /(\d+)/g; … 文字列から数値だけを抽出しリスト変数@aに格納、たとえば文字列が"[1,3,4,5]" の場合@aは(1, 3, 4, 5)

%h = map{$_ => $_} @a; … 変数@aのリスト例えば(1, 3, 4, 5)を入力として値対値ハッシュ {1=>1 3=>3 4=>4 5=>5}を作り変数%hとする

@b = map{$h{$_}//','} 1..1000; … 1〜1000までの数値に対しハッシュ%hを参照し値があればその値、無ければ','文字のリストを生成して変数@bに格納、上記{1=>1 3=>3 4=>4 5=>5}の場合はこんな感じ
#　 1 2 3 4 5 6 7 8 9 … 1000
@b: 1 , 3 4 5 , , , , … ,

$"=','; $b = "@b"; … 上記リスト@bを元に要素を区切り文字','で繋いだ文字列を作り変数$bに設定
上記@b: 1 , 3 4 5 , , , … ,
の場合 $b = "1,,,3,4,5,,,,,,,…,,"
2や6以降は無いので,となっている

$b =~ s/^,*(.+?),*$/$1/; … 文字列$bの先頭と末尾に','があれば除去
省13

68: 2020/03/29(日)19:07 ID:5iH4CTSz(2/2) AAS
なるほど、そうやって並んだ部分でグループ化するのか

69(1): 2020/03/30(月)22:44 ID:xSpiMCgD(1) AAS
>>65 Perl5 少しｽﾏｰﾄに書けた(文字列ﾏｯﾁﾝｸ処理ﾞ主体になっちまったけれど…)

$"=',';
for (qw{[1] [2,3] [1,2,3] [1,3] [1,3,4,5]}) {
　@a = /(\d+)/g;
　%h = map{$_ => $_} @a;
　@b = map{$h{$_}//' '} 1..20;
　$b = "@b";
　@c = $b =~ /(\d(?:,\d)*)/g;
　s/(,\d+)+,/-/ for @c;
　print "@c\n";
省8

70: 2020/03/30(月)22:45 ID:q7KIsR+X(1) AAS
>>69 テスト時のcodeが残ってた…orz
×　@b = map{$h{$_}//' '} 1..20;
○　@b = map{$h{$_}//' '} 1..1000;

71: 2020/03/31(火)23:56 ID:9DwI/QO9(1) AAS
>>59
めったに使えない evalが入てて楽しい

72(16): 2020/04/03(金)19:14 ID:tv+k2Xei(1/2) AAS
お題

文字列の先頭から続く、0 は、8進数と解釈されるため、バグります！
なので、それらを除去して、10進数と解釈できる文字列にして下さい。
以下は、すべて文字列です

090 → 90
0080 → 80

123 → 123

0 → 0
000 → 0
省1

73: 2020/04/03(金)19:53 ID:MoLJYTUl(1) AAS
>>72 マルチポスト＆スレチ
2chｽﾚ:tech

74: 72 2020/04/03(金)20:02 ID:tv+k2Xei(2/2) AAS
向こうのスレから移動したので、このスレで続けて下さい！

75: 2020/04/03(金)20:06 ID:etO49JcP(1) AAS
粘着者湧いてるじゃん

76: 2020/04/03(金)20:13 ID:D8CnMwXH(1/2) AAS
>>72
js

result=input==""?"":Number(input)

77: 2020/04/03(金)20:17 ID:Ea8es11U(1) AAS
>>72
perl5
外部ﾘﾝｸ:pastebin.com

78: 2020/04/03(金)20:17 ID:D8CnMwXH(2/2) AAS
すまん、よく読んでなかったわ

79(1): 2020/04/04(土)00:40 ID:oi+wB/l2(1) AAS
>>72 Perl5

for $a (qw{090 0080 123 0 000}) {
　($b = $a) =~ s/^0*([\d])/$1/;
　print "$a → $b\n"
}

実行結果
~ $ perl 17_72_0dec.pl
090 → 90
0080 → 80
123 → 123
省2

80(1): 2020/04/04(土)00:43 ID:7bsK3hPl(1) AAS
>>79 いや、([\d])は(\d)で十分だた…

for $a (qw{090 0080 123 0 000}) {
　($b = $a) =~ s/^0*(\d)/$1/;
　print "$a → $b\n"
}

81(1): 2020/04/04(土)01:02 ID:PfYZfNM0(1) AAS
>>80
r オプションつかうと括弧省ける
$b = $a =~ s/^0*(\d)/$1/r;

82: 2020/04/04(土)01:49 ID:jL2VaRwC(1) AAS
>>81
そっか、今度から置換代入にはr使ってみる。

も少し書き換えたら、こうなった

for (qw{090 0080 123 0 000}) {
/^0*(\d+)/;
print "$_ → $1\n"
}

~ $ perl 17_72_0dec.pl
090 → 90
0080 → 80
省3

83: 72 2020/04/04(土)12:46 ID:1ehA2Rbs(1) AAS
>>72
Ruby で

def delete_successive_zero( str )
return "" if str == ""

str.to_i.to_s # 10進数
end

ary = %w(090 0080 123 0 000)
ary.push ""

p ary.map { |str| delete_successive_zero( str ) }
省2

84: 2020/04/04(土)13:37 ID:tmNSQTrZ(1) AAS
AA省

85(2): 2020/04/04(土)13:48 ID:qnbQjwAi(1) AAS
>>72 Python

def strip(s):
　　s = s.lstrip('0')
　　if not len(s):
　　　　return '0'
　　return s

86: 2020/04/04(土)14:34 ID:VszBH+2q(1) AAS
>>72
Java
外部ﾘﾝｸ:paiza.io

87: 2020/04/04(土)23:52 ID:sokSr0we(1) AAS
>>85
""が0になりませんか

88: 2020/04/05(日)01:07 ID:14D27qM5(1/3) AAS
>>72
>>85修正
外部ﾘﾝｸ:ideone.com

89(1): 2020/04/05(日)05:36 ID:sZO7YFrq(1/2) AAS
>>72
Perl5

ある意味手抜きなプログラムである。

外部ﾘﾝｸ:paiza.io

オマケ機能としてマイナスの時に -00009 みたいなやつも -9 になるようにした。
更に、整数の数でない場合(文字列の場合)はダブルクォーテーションで括って出すようにした。

90: 2020/04/05(日)05:42 ID:sZO7YFrq(2/2) AAS
>>72
Kotlin
外部ﾘﾝｸ:paiza.io

>>89よりも更にもっと手抜きである。びっくりするほど何もやってない。仕様は同じ。

91: 2020/04/05(日)06:46 ID:14D27qM5(2/3) AAS
あ〜マイナス値は考慮してなかったな〜

92: 2020/04/05(日)06:56 ID:RExqiO2w(1) AAS
教えて君の質問に馬鹿正直に答えてやるなよ

93: 2020/04/05(日)07:43 ID:14D27qM5(3/3) AAS
>>72 Python
外部ﾘﾝｸ:ideone.com

PerlとKotlinの人のに比べると長くなってしまったのが心残り

94: 2020/04/05(日)12:55 ID:SfC0ZJYK(1/5) AAS
粘着君の意に反して回答わっさわっさ来ててワロタ

95: 2020/04/05(日)12:56 ID:yw9/uuhJ(1/2) AAS
粘着君ってなんやねん
スレチだって言われてんだろ

96: 2020/04/05(日)13:01 ID:SfC0ZJYK(2/5) AAS
えw それ言ってるのが粘着君じゃないの？w
どの辺がスレチなのか知らんけど君の意見なんか誰も同調しないかのように回答わさわさなのを見てどんな気持ち？？？w

97: 2020/04/05(日)13:06 ID:yw9/uuhJ(2/2) AAS
あほくさ

98: 2020/04/05(日)13:06 ID:liJZihU7(1) AAS
>>72 GNU Smalltalk

| fn |
fn := [:str | str isEmpty ifTrue: [str] ifFalse: [str asNumber]].

(#('090' '0080' '123' '0' '000' '') collect: fn) display.

=> (90 80 123 0 0 '' )

外部ﾘﾝｸ:ideone.com

99: 2020/04/05(日)13:07 ID:SfC0ZJYK(3/5) AAS
わざわざ他スレから出張してまで粘着するも自分の思い通りにならず涙目敗北草不可避w

100: 2020/04/05(日)13:08 ID:5b4pXRMu(1) AAS
ID:SfC0ZJYKは有名な荒しだよ
スルーしな

101: 2020/04/05(日)13:10 ID:SfC0ZJYK(4/5) AAS
そのように言っている自分自身の策略書き込みがスルーされているという悲劇ww

102: 2020/04/05(日)13:13 ID:QyCQlkmw(1) AAS
共有NG入ってて草
>>72が自力で解けない時点で脳みそに障害あるだろコイツ

103: 2020/04/05(日)13:15 ID:SfC0ZJYK(5/5) AAS
ブツブツと負け惜しみを垂れ流しているその姿はまさに哀愁満点 w

104: 2020/04/07(火)16:39 ID:WiIyPE7p(1) AAS
>>72
部分解なら lisp で
(loop for i in (list 090 0080 123 0 000 ) do (format t "~d~%" i))
90
80
123
0
0

105: 2020/04/07(火)19:00 ID:i9ABTPYd(1) AAS
であればもうこれで十分って感じがしてきた^^;

>>72 GNU Smalltalk

#(090 0080 123 0 000 '') display.

=> (90 80 123 0 0 '' )

外部ﾘﾝｸ:ideone.com

106(8): 2020/04/08(水)07:58 ID:5CDGaVzP(1) AAS
お題: レスの被アンカー数をレスごとにカウントし、降順に整列して出力せよ
入力は1レス1行で入力され、1行のフォーマットは「レス番:レス内容」でコロンで区切ってある
レスの入力がすべて終わった段階でレスごとに被アンカー数を計算し、「レス番:カウント数」のフォーマットで出力せよ

入力と出力例: 外部ﾘﾝｸ:ideone.com

107: 2020/04/08(水)16:25 ID:gvYQZ6Pp(1/2) AAS
こんな感じで作ったな
select_word_and_anchor.pl
外部ﾘﾝｸ:ideone.com

cat ~/.w3m/keymap
# vim: set nowrap
keymap a EXEC_SHELL "w3m -cols 200 $( echo $W3M_URL| sed 's/[-l][0-9]\+//' ) | /home/web/extract_body_of_2ch.sh | /home/bin/select_word_and_anchor.pl|less"

108: 2020/04/08(水)16:30 ID:gvYQZ6Pp(2/2) AAS
動作はこんな感じ例にあるような常用2chアンカー機能する
画像ﾘﾝｸ[png]:i.imgur.com

109: 2020/04/08(水)23:06 ID:jh8IMM/7(1) AAS
>>106 Perl5

for (<>) {
　($r, @a) = /([-\d]+)/g;
　push @s, $r;
　for (@a) {
　　@b = /(\d+)/g;
　　$h{$_}++ for $b[0]..$b[-1]
　}
}
printf "%d: %d\n", $_, $h{$_}//0 for @s;
省2

110(2): 2020/04/09(木)00:05 ID:VEjEdiDF(1) AAS
>>106 Perl5、ｺﾞﾒﾝ「降順に整列」が抜けてた…orz、やり直し

for (<>) {
　($r, @a) = /([-\d]+)/g;
　push @s, $r;
　for (@a) {
　　@b = /(\d+)/g;
　　$h{$_}++ for $b[0]..$b[-1]
　}
}
@t = sort{$h{$b} <=> $h{$a}} @s;
省3

111: 2020/04/09(木)10:38 ID:Sx5ouxFp(1) AAS
>>106
話題そらそうと粘着君が必死だねｗｗｗ負け組だっさｗｗｗ

112: 2020/04/09(木)12:42 ID:5swiwcjH(1) AAS
？

113(2): 2020/04/09(木)15:48 ID:pqMoXxyo(1) AAS
荒らしは必ず、2回書き込む。
「そうだよね」とか、同意するレスを付けて、人数が多いように見せる

くだすれPython(超初心者用) その47【Ruby禁止】

Ruby禁止とか、色々なスレのタイトルを勝手に変える

工学部というコテハンだろ。
ソースコードを書かないし、プログラマーじゃないから相手をしないように！

114: 2020/04/09(木)16:48 ID:G208HopB(1) AAS
>>113
そのスレは別のスレであり話題としてスレ違い。
そもそもそれらのスレでRuby禁止と付けられる原因を作っているお前が言うな。
お前こそコテハンをつけるか書き込みをやめるかしろよ。

115: 2020/04/09(木)16:59 ID:EoH4bsm+(1) AAS
>>113
悔しいんでしょｗｗそうゆう風にいつまでも負け惜しみ言ってなよｗｗｗ

116: 2020/04/10(金)15:52 ID:FxL3k9Tv(1/2) AAS
>>110
コード短いね

117: 2020/04/10(金)15:53 ID:FxL3k9Tv(2/2) AAS
ageてしまった

118: 2020/04/10(金)17:33 ID:gIxx/WN6(1/2) AAS
気にすんな

119: 2020/04/10(金)17:34 ID:GWaBtrPd(1) AAS
age禁止ってまだやってんの？

120: [age] 2020/04/10(金)17:42 ID:7f4O8kzL(1) AAS
非常事態を宣言します

121: 2020/04/10(金)20:50 ID:gIxx/WN6(2/2) AAS
このスレは放っておくとすぐ過疎っちゃうんだからむしろもっともっと激しくテッテ的にage続けるべきだ。

122: 2020/04/11(土)00:56 ID:qHx8Q1G9(1) AAS
>>110
for (´･ω･`) {
}

123: 2020/04/11(土)01:07 ID:Rbw4pROQ(1) AAS
>>106 Python
外部ﾘﾝｸ:ideone.com

124: 2020/04/11(土)01:11 ID:fnqXUaLM(1) AAS
（＞＜）

125: 2020/04/12(日)00:40 ID:j0O/fDVx(1) AAS
>>106
Java
外部ﾘﾝｸ:paiza.io

126: 2020/04/13(月)23:30 ID:+Sqc38Tr(1) AAS
>>106
Kotlin
外部ﾘﾝｸ:paiza.io

127: 2020/04/14(火)00:06 ID:hs9mI5+o(1/2) AAS
>>106
Kotlin
正規表現使わない版
外部ﾘﾝｸ:paiza.io
更に最初から SortedMap に入れるようにした。

128: 2020/04/14(火)01:39 ID:hs9mI5+o(2/2) AAS
>>106
C
外部ﾘﾝｸ:paiza.io

やっぱCで標準のライブラリしか使わないと長くなるな。

129(1): 2020/04/14(火)01:44 ID:cZOfM+S5(1/2) AAS
if(m[n]==null) m[n]=1
の部分と三項演算子の部分の後分は機能が被ってませんか？

130: 2020/04/14(火)12:04 ID:ZuF0W/s6(1) AAS
>>61 Perl5、正規表現を使った文字列処理ではなく、数値のリストに対する処理として書いてみた

sub f {
　my @s;
　while (my $e = shift) { push @s, $e }
　@_ ? (@s ? (\@s, f(@_)) : f(@_)) : \@s;
}
sub g { @_ > 2 ? "$_[0]-$_[-1]" : @_ }
for ([1], [2,3], [1,2,3], [1,3], [1,3,4,5], [7,9]) {
　@a = ();
　@a[@$_] = @$_;
省13

131(4): 蟻人間 ◆T6xkBnTXz7B0 2020/04/14(火)12:53 ID:QRiFiZHs(1) AAS
お題: 整数の閉区間がいくつか与えられる。
それらの和集合を求め、それをいくつかの閉区間で出力せよ。
出力の閉区間の個数はなるべく少なくすること。

(例)
[1, 5], [2, 6], [-1, 10] ==> [-1, 10].
[2, 3], [3, 4], [7, 10] ==> [2, 4], [7, 10].

上下前次 1-新書関写板覧索設栞歴

あと 871 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.359s*