TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼
C++相談室 part146
C言語の設計ミスった危険な関数トップ10決めようぜ
くだすれDelphi(超初心者用)その55
メガデモを語る fr-08
Android Studio Part3
【QBASIC互換!?】FreeBasic【GPL】 2
PureBasic
+ JavaScript の質問用スレッド vol.123 +
PowerShell -Part 3
【.NET】WCF〜Windows通信基盤技術【通信】
プログラミングのお題スレ Part15
- 1 ：2019/07/28 〜 最終レス ：2019/10/30
- プログラミングのお題スレです。
【出題と回答例】
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.2ch.sc/test/read.cgi/tech/1558168409/
- 2 ：
- 宿題、チューリングの泥沼、条件不足等回避のため
出題者は自分で回答可能か確認してからお題を出すこと
- 3 ：
- ※QZは書き込み禁止
- 4 ：
- お題
とあるゲームでは、10面ダイスによってスコアを次のように定める
1. x個のダイスを全部振る
2. 振ったダイスのうち、最大の出目をスコアとする
3. 出目がc以上のダイスが存在するなら、その全てのダイスを使って同じ試行を行い、スコアに加算する
例えばc=7の時、2個のダイスの結果が(10,7)→(8,3)→(2)ならスコアは10+8+2=20となる
最初に振るダイスの個数Nとc(≧2)が分かっている時、スコアの期待値を求めよ
- 5 ：
- >>4
https://ideone.com/GgQh2t
C++,モンテカルロしてみた。
値がちょっと怖い値になったので、バグ報告歓迎。
- 6 ：
- https://ideone.com/geZ4qP
>>5が不安だったので、出力変えてみたけど、最大値で500近くになるんだな。
何かビビった。
- 7 ：
- サイコロの偏りをもっと明確にしたいなら、乱数エンジンを複数持つか、ランダムデバイスそのもので実行する。
ランダムデバイスは遅いことになってるのでMTに投げるんだけど。
- 8 ：
- 一様乱数のサイコロは、現実では職人が作ったサイコロですなあ。
- 9 ：
- お題: 炭素原子C, 酸素原子O, 水素原子Hという三種類の原子をそれぞれいくつか組み合わせて、非イオンの分子を作る。C, O, Hの結合の手の本数は、それぞれ四本、二本、一本である。
ゼロ以上の整数p,q,rが与えられ、Cがp個、Oがq個、Hがr個あると仮定するとき、原子を余らせず、また、結合の手を余らせずに一つの連結された分子を作りたい。
C, O, Hをこの順でp+q+r個、並べたリストLについて、m番目の原子L[m]とn番目の原子L[n]の結合の個数をA[m,n]と書くとき、A[m,n]によってなる行列Aを一つ求めなさい。不可能な場合は「None.」と表示しなさい。
例)
(p, q, r)=(0, 2, 0) → A=((0, 2), (2, 0)).
(p, q, r)=(1, 2, 0) → A=((0, 2, 2), (2, 0, 0), (2, 0, 0)).
(p, q, r)=(0, 1, 2) → A=((0, 1, 1), (1, 0, 0), (1, 0, 0)).
- 10 ：
- 問題がわかりづらい。
- 11 ：
- 出題者は自分で解けることを確認してからお題にしてるのかね？
自明でない不可能な場合の例とか出してこないし怪しいもんだ
- 12 ：
- 慣れない言語の勉強に使うのに丁度いいね
出題者が答えも貼っといてくれるとありがたい(´・ω・｀)
- 13 ：
- 良いプログラムは良い数式がないと作れないのでこのスレは過疎化する。
- 14 ：
- 久々にこの板きたけど、宿題スレってなくなったんだね
- 15 ：
- 解空間は、サイズ(p+q+r)×(p+q+r)の整数行列の集合になる。
結合の手の個数は有限だから、解行列の成分は上限がある。
よって行列の各成分についてしらみつぶし探索が可能。
自分自身とは結合しないので、A[k,k]＝0（つまり、行列の対角成分はゼロ）。
ある行の和は、行番号に対応する原子の結合の手の個数になる。
ある列の和は、列番号に対応する原子の結合の手の個数になる。
連結条件のチェックが必要。
- 16 ：
- お題: xのn次式を簡潔に表現できる関数を書け(rationalじゃなくてもOK)
a+bx+cx^2+dx^3+...
を
f x a b c d ...
のように表現する
(可変引数を処理する)
例えば
(defun f (x &rest as) (reduce #'+ (loop for a in as for i from 0 collect (* a (expt x i)))))
(loop for x from -5 to 5 do (print (f x 0 -1 0 1/3)))
-110/3
-52/3
-6
-2/3
2/3
0
-2/3
2/3
6
52/3
110/3
- 17 ：
- >>14
基地外粘着uyによって潰された
- 18 ：
- >>13
良い数式が立てられないのでモンテカルロに酔っているオレ・・・。
- 19 ：
- >>9
複雑すぎます
非環状アルカン（CnH2n+2）の構造異性体を列挙せよ、という簡略化したお題を提案します
- 20 ：
- >>14
存在することはするのですが、誰も近寄らなくなりました、キチガイが一匹しつこく居候しているので
- 21 ：
- >>20
つ 鏡
- 22 ：
- >>21
草生える
- 23 ：
- お題: 1 + 1 を計算させて 3 と出力させなさい
- 24 ：
- >>23 Perl5
$a = 1 + 1;
print ~$a%10;
実行結果
$ perl 15_23.pl
3
※64bit整数版で実行してね
- 25 ：
- >>23
perl5
print ("1", "+", "1")
1+1
print $_ =()= ("1", "+", "1")
3
- 26 ：
- >>23
perl
1+1;
print "3\n"
- 27 ：
- >>23 ruby
class Fixnum
alias :add :+
def +(val)
if self == 1 && val == 1
puts 3
2
else
self.add(val)
end
end
end
1 + 1 #=> "3\n"
1 + 1 + 1 #=> "3\n"
1 + 1 + 1 + 1 #=> "3\n"
1 + 1 - 1 + 1 #=> "3\n3\n"
- 28 ：
- >>23
perl5
print qw(1 + 1)
1+1
print eval q(1 + 1)
2
print $_ =()= qw(1 + 1)
3
- 29 ：
- お題、東大入試
a^2 - a が、10,000 で割り切れるような奇数a を求めよ。
ただし、3 <= a <= 9,999
ヒント
a^2 - a = a(a - 1) で、aは奇数、a-1 は偶数。
10,000 = 10^4 = 2^4 * 5^4
答え、625
東京大【整数マスターに俺はなる！#31】
https://www.youtube.com/watch?v=-LdnNZVftmw
- 30 ：
- >>29
common lisp
(loop for n from 3 to 10000 when (and (equal (mod n 2) 1) (equal 0 (mod (- (expt n 2) n) 10000))) collect n)
(625)
- 31 ：
- ・女体限定で、3次元の写真から3Dポリゴンモデルデータを自動作成
・そのデータから胴体部の着衣部分を、裸モデルに修正
・水着でついた脇乳の段差も修正
・元写真の地肌色を使い、女体テンプレのテクスチャを作成
・完成したモデルから胴体部だけ精密レンダリング
・元の写真に貼り付けて完成
- 32 ：
- プログラミングのお題スレ Part14
https://mevius.2ch.sc/test/read.cgi/tech/1558168409/981-986
漏れは、前スレの981 ではないですが、この問題の応用で、
括弧のネストの深さの最大値を求めよ
括弧の対応が取れていない場合は、-1 を出力せよ。
2種類の括弧が順序通りに、閉じていないものも、-1 です
ヒント : stack を使うと良いかも
"" => 0
"( )" => 1
"{ ( { ( ) } ( ) ) } ( )" => 4
"} {" => -1
"( { ) }" => -1
- 33 ：
- 自分でスタックするか再起にして自動で積ませるか、といったところか。
- 34 ：
- >>32 Java
https://ideone.com/dIdH1J
- 35 ：
- >>32
perl5
http://ideone.com/X5OIjN
- 36 ：
- ideone バグっているのか？
STDIN の1行目空だと
ちゃんと標準入力としてプログラムに伝わっているけど
リンク先の stdin 枠の中だと省略されているように見える
stdout の 0 はその空を受け取ったもの
- 37 ：
- twitterやっていたようなので
そこにバグフィックス要請とテストケース画像貼っておいた
たぶんそのうち直るでしょう
- 38 ：
- 問題
n桁のヒットアンドブローのソルバーを作る。
- 39 ：
- 君の言っていることの意味がよくわからない。
- 40 ：
- >>37
GJ
- 41 ：
- >>38
大分前に作ったけど、コード紛失した。
アルゴリズムも忘れた。
ガーン。
- 42 ：
- 年収n円の人が生活費と交遊費2種類だけで1年間の収入のすべてを消費するとして
税率がt1からt2に上がった時
税抜き価格ベースでの生活費が変動しないものと考えると
税抜き価格ベースでの交遊費の減少額はいくらになるか？
（端数は切り上げとする）
ex)
年収n=5,000,000
税率t1=8%
税率t2=10%
税抜き価格ベースでの生活費a
税抜き価格ベースでの交遊費x, y
5000000 = ( a + x ) * 1.08
5000000 = ( a + y ) * 1.10
上記の方程式を解いて
x-y ≒ 84,176
- 43 ：
- >>42
wolfram
Simplify[ x-y, {5000000 == (a+x)*1.08,5000000 == (a+y)*1.1} ]
84175.1
- 44 ：
- 切り上げか
Ceiling[ Simplify[ x-y, {5000000 ==(a+x)*1.08 == (a+y)*1.1} ] ]
84176
- 45 ：
- 何も考えずにceiling(n/1.08-n/1.1)でいいんとちゃうけ？
- 46 ：
- >>32 Ruby
f = -> str {s = +str.delete(?\ ); (0..).each{|i| s.gsub!(/{}|\(\)/, '') || (break s.size.zero? ? i : -1)}}
['', '( )', '{ ( { ( ) } ( ) ) } ( )', '} {', '( { ) }'].each{|e| puts '%p => %d' % [e, f[e]]}
# =>
"" => 0
"( )" => 1
"{ ( { ( ) } ( ) ) } ( )" => 4
"} {" => -1
"( { ) }" => -1
- 47 ：
- >>45
ちょっと考えたらceiling(n/59.4)だったｗ
- 48 ：
- お題: 数字が与えられるので、その数字を元の数より大きくなるように再構築せよ
大きくできなければ元の数字をそのまま出力せよ
例:
in < 123
out > 231, 213, 321, 312
in < 921
out > 921
- 49 ：
- 123を入力したときに132が出力されないのはなぜ?
- 50 ：
- パーミュテーション作って終わりじゃあないのコレ
- 51 ：
- >>49
ミスだよぉ！
- 52 ：
- そんなんばっかだなお前
- 53 ：
- >>48
https://ideone.com/fyfMQH
C++。ご期待通り（？）にパーミテーション回してみたよ。
重いお。
- 54 ：
- https://ideone.com/pgG7pT
from itertools import permutations
#string = "123"
string = "5672391"
n = int(string)
print filter(lambda m: m>n, map(lambda x: int("".join(x)), list(permutations(string, len(string)))))
- 55 ：
- なんて早いんだ
- 56 ：
- 「大きくできなければ元の数字をそのまま出力せよ」という条件が
ことごとく無視されててワロタ
あと、「133」みたいに同じ数字が複数含まれる場合はどうなるべきなんだろう
- 57 ：
- >>48 Perl5
sub next_permutation {
defined $_[1] and
(next_permutation(@_[1..$#_]) or
($_[0] lt $_[1]) and
do {
for (1..$#_)
{$_[0] lt $_[$_] ? $i = $_ : last}
@_[0, $i] = @_[$i, 0];
@_[1..$#_] = reverse @_[1..$#_];
1 })
}
#$v = '123';
$v = '5672391';
@a = sort split '', $v;
do {
$n = join '', @a;
print "$n " if $n > $v;
} while next_permutation @a;
実行結果
https://ideone.com/qeSGDm
CPANなどにあるPermutation計算モジュールを使用しても良いけど、
言語処理系に標準で含まれるモジュールではなく別途インストールが必要なので、
昔書いたnext_permutation iteratorを使ってみた
- 58 ：
- >>57 ごめんなさい
print "$n " if $n > $v;
↓
print "$n " if $n >= $v;
じゃないと「大きくできなければ元の数字をそのまま出力せよ」を満たさなかった…orz
- 59 ：
- >>58 そうすると逆に
「元の数「より大きくなる」ように再構築せよ」
については、元の数値が余計に出力されるな…ｺﾞﾒﾝねもう一工夫要るわ
それにiteratorである必要ないわ
- 60 ：
- >>48 Perl5、iteratorじゃなくpermutationを列挙する方法で書いてみた。これなら題意に合うはず。
sub permu {
my ($l, $p, @r) = @_;
defined $p ? map {[$p, @$_]} permu([], @$l, @r) : ([])
,
@r ? permu([@$l, $p], @r) : ()
}
#$v = '123';
#$v = '321';
$v = '5672391';
@a = split '', $v;
@b = grep {$_ > $v} map{join('', @$_)} permu [], @a;
print (@b ? "@b" : $v);
実行結果
https://ideone.com/1Lft75
少しメモリを食ってるだろうけど0.04sで解けた
- 61 ：
- >>48 Squeak/Pharo Smalltalk
| fn res |
fn := [:input |
(Array streamContents: [:ss |
input permutationsDo: [:perm | perm > input ifTrue: [ss nextPut: perm copy]]]
) ifEmpty: [input]
].
fn value: '123'. "=> #('132' '213' '231' '321' '312') "
fn value: '921'. "=> '921' "
{#ms -> [res := fn value: '5672391'] timeToRun. #size -> res size}. "=> {#ms->6 . #size->2438} "
- 62 ：
- >>48だけど、>>56の要件を見落としていたので入れてみたよ。
https://ideone.com/h2KrQu
C++。
- 63 ：
- >>56で指摘したのに誰も反応してくれないので自分で書く
>>54は、「133」と入れると[313,331,313,331]みたいに結果がダブる
- 64 ：
- >>62
C++のnext_permutationは、辞書順で次に来る順列が返るので、
最初の並びにnext_permutationを繰り返し適用すれば題意を満たす数列が得られる。
あと、自前で桁分割するより他言語のように文字列を使った方が楽だと思う。
- 65 ：
- >>48
@Mathematica
rebuildLargerN[n_]:=n//
IntegerDigits//
Permutations//
Map[FromDigits,#]&//
Select[#,#>n&]&//
If[#!={},#,{n}]&;
In[1] := rebuildLargerN[123]
Out[1] = {132, 213, 231, 312, 321}
In[2] := rebuildLargerN[921]
Out[2] = {921}
- 66 ：
- >>63
ｵﾚのPerl5の>>60も桁に重複があると出力はﾀﾞﾌﾞるよ。
ﾀﾞﾌﾞった出力で良いかあるいは1つに削減して出力するか
仕様は不定なので、ﾀﾞﾌﾞる可能性があってもそのまま出した。
ダブらせず1つだけ出力すにはsortしてuniqすればいいんだけど。
@b = grep {$_ > $v} map{join '', @$_} permu [], @a;
↓
%h = map{$_ => 1} sort grep {$_ > $v} map{join '', @$_} permu [], @a;
@b = keys %h;
- 67 ：
- https://ideone.com/mBo1rR
C++.
>>63のダブって表示はならないですね。
文字列だと、自分はいいけど、数字に限定するのが面倒なので、大きな数で処理してます。
文字を許容するんであればお題で書いておけばそのようになるんじゃないですかね？？
- 68 ：
- あ、そうだった。文字列だと自分より大きいを表現するのがめんどくさいのでした。
- 69 ：
- >>48
https://ideone.com/1mtrVl
C++。暇だったので、文字列版作った。
でかい数のデバッグが大変だから手抜きだ。
ご査収ください。。。
- 70 ：
- >>48 C++
https://ideone.com/6HQBYE
>>64で説明したかった内容をコードにしてみた
なお、pythonとc++のpermutationは、同じ値が含まれる時の動作が異なる
https://stackoverflow.com/questions/6534430/why-does-pythons-itertools-permutations-contain-duplicates-when-the-original
- 71 ：
- お題＠閑話休題。
https://ja.wikipedia.org/wiki/AKS素数判定法
AKSの実装。Prime is in P.
自分は挫折しました。数学解らない。
残骸：https://ideone.com/9e7Tyn
- 72 ：
- >>70
そういえば、ソートする必要ないね。
書いてるときは保証できなかったから思いつきもしなかった。
- 73 ：
- お題: スターリンソートを実装せよ
- 74 ：
- >>73
seq 300|sort -R | perl -ne ' if ($. == 1){print ; $hold = $_} elsif ($_ > $hold) { print ; $hold = $_}'
140
145
231
246
248
270
272
281
298
299
300
- 75 ：
- >>73
要素粛清しながら見た目がそろっているというギャグかいな。
- 76 ：
- https://ideone.com/hhy72i
C++。よく生き残った我が精鋭たちよ。
ところで・・・。
- 77 ：
- >>73 Squeak/Pharo Smalltalk
| fn |
fn := [:array |
| memo |
memo := array first.
array reject: [:x | x < memo flag: (memo := x max: memo)]
].
fn value: (1 to: 300) asArray shuffled. "=> #(65 116 195 235 276 280 293 299 300) "
- 78 ：
- >>73
しばらくお題がないとおちつかないな
seq 300|sort -R | perl -ne ' if ($. == 1 or $_ > $hold) { print ; $hold = $_}'
- 79 ：
- >>73
ss = -> a {a.reduce([]){|r, e| r.first.nil? ? [e] : r.last < e ? r + [e] : r}}
p ss[[3,1,4,1,5,9,26,53,58,97,93,238]] # =>
[3, 4, 5, 9, 26, 53, 58, 97, 238]
- 80 ：
- >>73 Perl5
use List::Util 'max';
@a = qw{3 1 4 1 5 9 26 53 58 97 93 238};
@b = grep {$n < $_ and $n = max($n, $_)} @a;
print "@b\n";
実行結果
~ $ perl 15_73.pl
3 4 5 9 26 53 58 97 238
- 81 ：
- お題: 太陽系の各天体の位置を物理シミュレーションし、64日後の地球の位置を求めよ。
- 82 ：
- 俺たちって計算能力でコペルニクスを超えられると思う？ NASAのデータがあるから昔よりも楽だと思うけど。
- 83 ：
- >>73 Perl5、 >>80 よりこっちの方が若干スマート
$n = -inf;
@a = qw{0 3 1 4 1 5 9 26 53 58 97 93 238};
@b = grep {$n < $_ and ($n = $_), 1} @a;
print "@b\n";
実行結果
~ $ perl 15_73.pl
0 3 4 5 9 26 53 58 97 238
- 84 ：
- >>83
ちょっとおもしろい
- 85 ：
- >64
地球の位置といってもいろいろあります。
地球の赤道を天球上に投影した、「赤経、赤緯」、太陽の天球上の
通り道を天球上に投影した「黄経、黄緯」がありますし、それも、地球の中心を
原点とした、「地心赤経、赤緯」、「地心黄経、黄緯」および、観測地点を原点とした
「地表赤経、赤緯」、「地表黄経、黄緯」もありますので、どれにするかによって
計算式が違ってきます。
なお、JPLでは、太陽と月、および冥王星までの精密位置計算用のプログラムを
発表しています。
期間がながいものは、−4000（B.C.4001）〜4000（A.D.）まで、計算できるものが
あります。
計算用のデータと、テスト用のFortranプログラムも附属しています。
- 86 ：
- Perlって読みにくいんだな
｛とか＠とか＄とか使いまくる言語ってマジ苦手
- 87 ：
- RubyとPHPにケンカ売ってんの？
- 88 ：
- grep 内のboolian から最後の , 1 を取り除いたら
最初の0を拾わない
何というカオス
- 89 ：
- @b = grep {$n < $_ and {$n = $_}} @a;
こうやりゃいいんだよ
- 90 ：
- この方がいいだろ
@b = grep {$n < $_ and ($n = $_, 1)} @a;
- 91 ：
- お題：
与えられた数列の要素の中で他と被っていない最小のものを求めよ
被っていない要素が存在しないときは-1を出力すること
例：
1,1,1,1,2,2,2,3,3,4 -> 4
1,2,3,4,5,5,4,3,2,1 -> -1
3,1,4,1,5,9,2,6,5,3,5 -> 2
- 92 ：
- >>91 Perl5
use feature say;
use List::Util min;
for ([1,1,1,1,2,2,2,3,3,4], [1,2,3,4,5,5,4,3,2,1], [3,1,4,1,5,9,2,6,5,3,5]) {
my %h;
$h{$_}++ for @$_;
@s = grep{1 == $h{$_}} keys %h;
$" = ',';
say "@$_ -> ", @s ? min @s : -1;
}
実行例
~ $ perl 15_91.pl
1,1,1,1,2,2,2,3,3,4 -> 4
1,2,3,4,5,5,4,3,2,1 -> -1
3,1,4,1,5,9,2,6,5,3,5 -> 2
- 93 ：
- >>91
perl5
http://ideone.com/vj47th
- 94 ：
- >>91 Ruby
f = -> a {a.sort.group_by{|e| a.count(e)}[1]&.min || -1}
[
[1,1,1,1,2,2,2,3,3,4],
[1,2,3,4,5,5,4,3,2,1],
[3,1,4,1,5,9,2,6,5,3,5]
].each{|a| puts '%p => %s' % [a, f[a]]} # =>
[1, 1, 1, 1, 2, 2, 2, 3, 3, 4] => 4
[1, 2, 3, 4, 5, 5, 4, 3, 2, 1] => -1
[3, 1, 4, 1, 5, 9, 2, 6, 5, 3, 5] => 2
- 95 ：
- typo
f = -> a {a.uniq.group_by{|e| a.count(e)}[1]&.min || -1}
- 96 ：
- >>91 ruby
[ [1,1,1,1,2,2,2,3,3,4], [1,2,3,4,5,5,4,3,2,1], [3,1,4,1,5,9,2,6,5,3,5] ].each{|ar|
print ar.join(','), " -> "
while (m = ar.min) && ar.count( m ) != 1
ar.delete( m )
end
puts m || -1
}
1,1,1,1,2,2,2,3,3,4 -> 4
1,2,3,4,5,5,4,3,2,1 -> -1
3,1,4,1,5,9,2,6,5,3,5 -> 2
- 97 ：
- >>91 Perl5 >>92 よりもう少しシンプルに
use List::Util min;
for ('1,1,1,1,2,2,2,3,3,4', '1,2,3,4,5,5,4,3,2,1', '3,1,4,1,5,9,2,6,5,3,5') {
my %h;
$h{$_}++ for split ',';
$s = min grep{1 == $h{$_}} keys %h;
$s //= -1;
print "$_ -> $s\n";
}
実行結果
~ $ perl 15_91.pl
1,1,1,1,2,2,2,3,3,4 -> 4
1,2,3,4,5,5,4,3,2,1 -> -1
3,1,4,1,5,9,2,6,5,3,5 -> 2
- 98 ：
- お題: 数独を素早く解くプログラム(ソルバー)。
- 99 ：
- 昔々Cで数独解くやつ普通に作ったことあるけど普通に作っても人間の感覚では一瞬にして答えが出ちゃうんだよな。ほとんどEnterキー押したらすぐ出る感じ。
そしてこれといって他にアルゴリズムは思い浮かばない。(誰もが思い付くであろう再起でマスに入れられる数を順番に入れてく方式ね)。
これ以上に「素早く」やる方法なんてあるんだろうか？
- 100 ：
- >>91
https://ideone.com/1JCuiv
C++。一応例題は解けたが妖しい処理になった。
100〜のスレッドの続きを読む
国産オープンソースDIコンテナSeasar2 その16
七行プログラミング part6
CoffeeScript
くだすれPython(超初心者用) その45【Ruby禁止】
圧縮・復元 相談室
OpenGL/Vulkanスレ Part22
MATLABプログラミング 質問箱 その4
【初心者歓迎】C/C++室 Ver.102【環境依存OK】
つまりRubyってPerlの後続じゃん？
Vue vs React vs Angular Part.3
--------------------
RIP SLYME楽曲人気投票
【司法試験】 男性差別解消目指す弁護士裁判官になるべき【法科大学院】
年収300万〜400万の家庭の育児 その46
三国志大戦 臥龍スレ・3度掛け
【GYAO!（ギャオ）総合スレ 100】
ベンチプレスMax110キロ目指すスレpart6
【国勢調査】とうふさんはすこか？🤔
NHK BS プレミアム 7695
朝鮮人山本拓也（みるきーのストーカ―）通称：強姦犯山本たくやの発狂ぶりを鑑賞するスレｗ
戦隊シリーズの歴代ブルーを語るスレ No2
【防滴】SONY ICR-S71 10台目【AMワイド】生産終了
[●] 平成、その後、その前の日本 [●]
【永久ﾆ】キラキラ☆プリキュアアラモード アンチスレ18【許ｻﾚｽﾞ】
復活してほしいパチンコ
【ライ麦】サリンジャー総合【グラース】
コードギアス愚痴スレ29
【速報】幻冬舎、見城社長がツイッターで終了宣言「皆さん、今まで有難うございました。」 ★3
【イラスト交流SNS】GALLERIA［ギャレリア］
陸自装輪装甲戦闘車両97
市橋達也でも逃亡しながら働いていた件
TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼
