トップページ⇒tech
104コメント36KB

問題クレクレ

■ このスレッドは過去ログ倉庫に格納されています
0001ハァハァNGNG
俺は人から言われなきゃやれない人間なんだ。だけど、プログラムを極めたいんで
なんか問題ダシテ。今javaの本かって勉強し始めたばっかりだから、あんまり
難しいのはヤメテネ。
005451NGNG
うわ、二重登校ごめん
005546NGNG
>>48
そうか……そうやるのか。
なんか、ひっくり返しても同じなんだね。
005622NGNG
>>51
バックトラッキングですか。
実を言うと僕も初心者に毛が生えている程度なので、勉強しておきます。
005751NGNG
>>56
あ、バックトラック法って言ったほうが一般的だろうから調べるときはそれで。
0058デフォルトの名無しさんNGNG
ツリーをどんどん深く探していって、死んだら戻る、
というのはバックトラックっぽい動作。
同じ深さをトラバースしつつ探してゆく、
というのだとバックトラックとは言わない。

トラバースしていくほうが、最短回が最初に
出てくるので良いと思う。
005951NGNG
>>58
トラバースですか。
実を言うと僕も毛の生えた初心者が剛毛になった程度なので、勉強しておきます。
0060ハァハァNGNG
アルゴリズム知らないと話になりませんね。本借りに逝こ。
0061デフォルトの名無しさんNGNG
>>22
ん?それってば、フリーソフトのエロゲーにあったヨ。
殺してしまうの代わりにセークスになってるが。(w
1、父は母がいないと、娘とセークスしてしまう
2、母は父がいないと、息子とセークスしてしまう
0062デフォルトの名無しさんNGNG
>>61
犬は?
全員と獣姦しちゃうのか?(藁
0063デフォルトの名無しさんNGNG
この問題は、家族構成を自由に入力できるようにしないと
あまり解く意味はないような。入力固定なら、それこそ>>48が
正解ということになる。
006442NGNG
え〜んせっかく書いたのにだれも何も言ってくれないよぉ(涙
改良したから、1クンJavaに移植してっ(はぁと

$_='i=FMBBGGSD;@n=(F,M,B,G,S,D);Yp{_=X;!(/D/&!/S/&/[^D]/||/F/&/B/&!/M/||/M/&/G/
&!/F/);}Yq{_=X;!_||/[FMS]/;}Yr{a=X;b=X;p(a)&p(b)&q(b);}Yt{my(@o,d,e,f,g,h,i,j);
e=i=X;f=j=X;if(c&!f){push@m,join("",@l)."\n";return;}_=e;y/FB/MG/;_=join"",sort
split//;if(${A.c}{_}&${A.c}{_}<=k){returnZ${A.c}{_}=k;}@o=(@n,"");for g(@n){X
@o;for h(@o){e=i;d=g.h;f=j.d;next if e!~s/g//||h&e!~s/h//||!r(e,d);a="e d j\n";
a="j d e\n"if c;push@l,a;k++;c=!c;t(f,e);c=!c;k--;pop@l;}_="";}}k=1;t i;print
pop@m;';s/X/shift/g;s/Y/sub /g;s/Z/;}else{/g;s/&/&&/g;s/\b[_-k]\b/\$$&/g;eval;
0065デフォルトの名無しさんNGNG
>>64
氏ね、ボケが。
0066デフォルトの名無しさんNGNG
>>64
こいつ、普通に書いて、変数名を変換し、ホワイトスペースをとりさった、
に500ペリカ。
0067デフォルトの名無しさんNGNG
誰かテトリスつくって。JavaでもCでもC++でも、BASICでも良い。
っつーか、なんだかんだ言って、テトリスが作れないだけで
クソだの罵倒されるんだけど、煽る奴はテトリスくらいなんて言うくらいだから、
それ以上のもんつくれるんだろうな?
じゃなきゃ作れない奴をどうこう言う資格なんてねーぞ。
0068デフォルトの名無しさんNGNG
>>67
こいつ作れないらしい(プ
0069デフォルトの名無しさんNGNG
>>67
まだいたのかおまえ(w
0070デフォルトの名無しさんNGNG
>>67
ププ
0071デフォルトの名無しさんNGNG
>>67
テトリスで意外と難しいのは接地あたりの処理。

高レベル時は 落下→接地→回転→移動→落下→接地→
と操作することが多いんだけど、ここをおろそかに作っている
素人テトリスはクソと罵られることが多い。

そこ以外は基本的な処理ばかりなので試しに作ってみると
面白いと思うよ。
MSX-BASICで作ったことあるけど、欲しければ上げるし。
0072デフォルトの名無しさんNGNG
>>64
7行スレと比較するに、削りの甘さが目立つ
フツーに組んで、表記だけ短くするのは誰でも出来るぞ
0073無責任な名無しさんNGNG
42のってPerl?
0074セグメンテーションフォルトの名無しさんNGNG
学生の時に作った事あるよ。71氏のいうクソ版だけど。
#回転は1方向、直列ブロック無し、一旦接地したらもう動かない。
#画面は標準出力でやったので遅い上にブロックが動く度に画面全体がチラつく(藁

こんな糞テトリスも作れない奴は俺的にはクソどころかクソ以下と思うがどうよ。
0075ハァハァNGNG
>>64
ごめん荒らしかと思ってたよ。未だに解読不能だけどね。何言語?
0076この業界から逃出した男NGNG
>>67
まだ居たんだ。
それに、頑張ってたんだね〜。
( まあ、性格は直っていないようだけど (苦笑)

>>71
ソースちょっと欲しいかも。

作らずに煽るのもなんだから、とりあえずテトリス作ってみようかな。
0077この業界から逃出した男NGNG
(とりあえず、表示だけ作ってみたが… 宇津だ氏のう)
007842NGNG
>>75
荒らしじゃないよぉ(泣 スレ違いは謝るけど…(7行プログラミングのつもり)
ちなみに言語はPerl。
要らないと思うけど、バグがあって直したから一応また書くね。。
なぜか網羅できてないけど(なさけな…

$_='i=FMBBGGSD;@n=(F,M,B,G,S,D);Yp{_X!(/D/&!/S/&/[^D]/|/F/&/B/&!/M/|/M/&/G/&!
/F/)}Yz{_X!_|/[FMS]/}Yr{aXbXp(a)&p(b)&z(b)}Yt{my(@o,c,d,e,f,g,h,i,j);c=k%2;e=iX
f=jXif(c&!f){push@m,join"\n",@l,k,"";return}_=e;y/FB/MG/;return if Z&Z<=k;Z=k+1
;@o=(@n,"");for g(@n){shift@o;for h(@o){e=i;d=g.h;f=j.d;next if e!~s/g//|h&e!~s
/h//|!r(e,d);a="e->d j";a="j d<-e"if c;push@l,a;k++;t(f,e);k--;pop@l;}}}t i;
print@m,@m+0';s/X/=shift;/g;s/Y/sub /g;s|Z|\${c}{join"",sort split//}|g;s/[|&]/
$&$&/g;s/\b[_-k]\b/\$$&/g;eval
007942NGNG
# F=父 M=母 B=息子(BOY) G=娘(GIRL) S=召使い(SERVENT) D=犬です。。
0080デフォルトの名無しさんNGNG
>>78
これあってるの?
実行したけど、なんかおかしいぞ。
BBGGSD->FM
BBGGSD F<-M <-- ここで父が息子殺さないか?
BBGSD->FG M
BBGSD FM<-G
BBSDM->FG G
BBSDM F<-GG
BBSD->FM GG
BBSD M<-GGF
BBM->SD GGF
BBM F<-GGSD
BB->FM GGSD
BB M<-GGSDF
B->MB GGSDF
B SD<-GGFMB
D->BS GGFMB
D S<-GGFMBB
->SD GGFMBB
0081軽い突っ込みNGNG
>>80
父が(息子ではなく)娘を殺すね
0082パァーリングゥ〜!!NGNG
>>81
”父が娘とセークスしてしまう”な(藁
0083デフォルトの名無しさんNGNG
3Pか!
0084デフォルトの名無しさんNGNG
俺も作ってみた。
ポイントは素因数分解の一意性を利用しているところ

$ALL = 2*3*5*5*7*7*11*13;
@pair = (2*3,2*5,2*11,3*7,3*11,11*5,11*7,11*13,2,3,11);
@Char = qw(F M B B G G S D);

r(0, $ALL);
sub r {
 my ($f, @a) = @_;
 my $v = $a[-1];
 return if $History{"$f $v"}++;
 p(@a) if $f and $v == $ALL;
 for $p (@pair){
  if ($v%$p==0 and c($v/$p) && c($ALL*$p/$v) ){
   r(!$f,(@a,$ALL*$p/$v));
  }
 }
}
sub c {
 return !( ($_[0]%6 and $_[0]%14==0 || $_[0]%15==0) or ($_[0]%143 and $_[0]%13==0 and $_[0]!=13) );
}
sub p {
 while (@_){
  pp($_[0]); print " --> "; pp($ALL/$_[0]); print "\n"; shift @_;
  pp($ALL/$_[0]); print " <-- "; pp($_[0]); print "\n"; shift @_;
 }
}
sub pp {
 my @t = map {1 if $_[0]%$_==0} (2,3,5,25,7,49,11,13);
 map { print $t[$_] ? "$Char[$_] " : " "; } (0..7);
}
0085デフォルトの名無しさんNGNG
>>78を評価してみると…

BBGGSD->FM
BBGGSD F<-M <-- ここでフェラーチョがムスーメ x2をレイープ(近親ソカーン)
BBGSD->FG M <-- フェラーチョが船上でムスーメをレイープ
BBGSD FM<-G
BBSDM->FG G <-- 再度フェラーチョが船上でムスーメをレイープ
BBSDM F<-GG
BBSD->FM GG
BBSD M<-GGF <--ママが戻った時点で両岸で3Pソカーン発生。
BBM->SD GGF <--まだまだソカーン
BBM F<-GGSD
BB->FM GGSD
BB M<-GGSDF <--またまた両岸で3P
B->MB GGSDF <--ママ、船上で息子との密事
B SD<-GGFMB
D->BS GGFMB
D S<-GGFMBB

滅茶苦茶じゃねぇか(藁
008642NGNG
はぅっっ
殺す組み合わせ間違えてた&&船から下りないってのなしというのを
すっかり読み飛ばしてた…

これは仕様です(キッパリ
あぁっ殴らないで…
0087無責任な名無しさんNGNG
>あぁっ殴らないで…
殴らない代わりに犯す!
008842NGNG
$_='i=FMBBGGSD;@n=(F,M,B,G,S,D);Yp{_X!(/D/&!/S/&/[^D]/|/F/&/G/&!/M/|/M/&/B/&!
/F/)}Yz{_X!_|/[FMS]/}Yr{aXbXp(a)&p(b)&p(a.b)&z(b)}Yt{my(@o,c,d,e,f,g,h,i,j);c=k
%2;e=iXf=jXif(c&!f){push@m,join"\n",@l,k,"";return}_=e;y/FB/MG/;return if Z&Z<=
k;Z=k+1;@o=(@n,"");for g(@n){shift@o;for h(@o){e=i;d=g.h;f=j.d;next if e!~s/g//
|h&e!~s/h//|!r(e,d);a="e->d j";a="j d<-e"if c;push@l,a;k++;t(f,e);k--;pop@l;}
}}t i;print@m,@m+0';s/X/=shift;/g;s/Y/sub /g;s|Z|\${c}{join"",sort split//}|g;s
/[|&]/$&$&/g;s/\b[_-k]\b/\$$&/g;eval

ふぅ。。
でも>>84さんのほうが斬新だし、短くなりそう。

>>87
イヤ
0089ハァハァNGNG
>>42
perl知らないからわからないや。

まだ解けない..自力で解けなきゃ前に進めない..
0090初期不良NGNG
>>71
時代は 20G
0091初期不良NGNG
>>89
どういう方針でやろうとしてるの?
0092問題NGNG
うんこをプログラミングせよ。
0093問題NGNG
出力:うんこ
入力:食べ物
ウンコ 人間(食べ物) {
/* [1] */
}

[1]の部分を埋めよ。
0094デフォルトの名無しさんNGNG
ウンコ 人間(食べ物) {
  switch (食べ物) {
    case とうもろこし:
    case しらたき:
      return 食べ物;
    default:
      return 消化(食べ物);
  }
}
0095ハァハァNGNG
>>91
方針もなにも今javaの継承やらなにやらの概念を理解してる所とアルゴリズムの勉強中です。
22はfor,if,ステートメントだけ使って解けるんですか?
0096ハァハァNGNG
>>93
うーん,型がウンコの人間メソッドってこと?
ウンコ 人間(食べ物){
  switch(食べ物){
    case ウマカッチャン:
      System.out.println("秋田よ”);
      break;
    case サッポロイチバン:
      System.out.println("またかよ");
      break;
    default:
      System.out.println("腹減った");
  }
}
こんな食生活をおくってたりする....
0097初期不良NGNG
>>95
解けるだるおけど Java ならそのまんまオブジェクト指向してみたら?
0098デフォルトの名無しさんNGNG
きたないなあ・・
0099デフォルトの名無しさんNGNG
>>94
とうもろこしとしらたきにワラタ。
0100デフォルトの名無しさんNGNG
切り番get!
010122NGNG
>>95
22の問題を少し簡単にした奴。

人、狼、羊、野菜が川岸にいます。
狼は人がいなければ羊を食べ、
羊は人がいなければ野菜を食べちゃいます。
船を操れるのは当然人のみ。

後のルールは22と同じ。
010222NGNG
僕はこういう風に考えました。

☆とりあえず、>>101からキーワードっぽいものを抽出
人、狼、野菜、川岸、食べる、船、船を操る

☆概念ごとに分類
�@人、狼、野菜
�A川岸
�B船
�C食べる、船を操る

☆整理
�Cは�@の属性
�Aは�@を含む
�Aは開始側と目的地側がある
�Bは�@を含む
�Aは�Bを含む
0103ハァハァNGNG
>>102
頭がスキーリしてきた。もう少しで解けそうな予感
0104デフォルトの名無しさんNGNG
>>105
(0) 人狼羊菜←[]←
(1) 狼菜→[人羊]→
(2) 狼菜←[人]←羊
(3) 狼→[人菜]→羊
(4) 狼←[人羊]←菜
(5) 羊→[人狼]→菜
(6) 羊←[人]←狼菜
(7) →[人羊]→狼菜

(0) 人狼羊菜←[]←
(1) 狼菜→[人羊]→
(2) 狼菜←[人]←羊
(3) 菜→[人狼]→羊
(4) 菜←[人羊]←狼
(5) 羊→[人菜]→狼
(6) 羊←[人]←狼菜
(7) →[人羊]→狼菜
■ このスレッドは過去ログ倉庫に格納されています