解答・コメントを送る方法
コメントを送るには2つの方法があります。
- 匿名でコメントを書くログインせずにコメントを書くことができます。 名前は「匿名」となります。
- アカウントを作成してコメントを書くアカウントを作成すると、記名での投稿ができます。 また、プロフィールページが作成され、 簡単なプロフィールや 統計情報が表示されるようになります。
投稿ボタンを押す前に以下の文章を確認してください
- 当サイトへの投稿は クリエイティブ・コモンズ・ライセンス BY(表示)および、その解釈に同意するものとみなされます。各ページには下のようにライセンス表示が行われます。
- あなたの投稿したコード・コメント・トピックが再利用・添削されることを望まない場合は、投稿をお控えください。
- 自分が書いていない、ウェブサイトや書籍などからの無断コピーは著作権の侵害です。著作権者の了解を得るか、自分で0から書いてください。
- 著作権の侵害、名誉毀損、など投稿内容に問題がある場合、削除することがあります。
- これらのことにあなたはあらかじめ同意したものとみなされます。
Post comment
Post a comment to the following challenge:
再帰を用いた迷路探索問題
(Nested
Flatten)
As a reply to the following comment: Y: 再帰のない言語やあっても深さの制限が厳し...(#6260) [show]
Y
#6260()
[
Mathematica
]
Rating1/3=0.33
再帰のない言語やあっても深さの制限が厳しい言語があるので、 手法は限定しないほうがいいのではないでしょうか （構造体とかリストとかも）。 要は迷路が解ければいいわけで。 例えばグラフアルゴリズムを標準サポートしている処理系なら、 最短経路も特に難しいということはないかと （愚直なエージェントを実装したいということがあるかもしれませんが） num：座標を数字に変換する補助関数 pos：数字を座標に変換する補助関数 実行結果（Mathematicaなのでインデックスがずれます）： {{2,2},{2,3},{2,4},{2,5},{3,5},{4,5},{4,4},{4,3},{5,3},{5,2}}<<DiscreteMath`GraphPlot`; <<DiscreteMath`Combinatorica`; tmp={ "******", "*8000*", "****0*", "**000*", "*90*0*", "******"}; maze=Characters/@tmp; n=Length@First@maze; num[i_,j_]:=n (i-1)+j pos[x_]:={Quotient[x,n,1]+1,Mod[x,n,1]} start=num@@First@Position[maze,"8"]; goal=num@@First@Position[maze,"9"]; arcs={}; Do[ If[maze[[i,j]]!="*", If[maze[[i,j+1]]!="*", AppendTo[arcs,{num[i,j],num[i,j+1]}]]; If[maze[[i+1,j]]!="*", AppendTo[arcs,{num[i,j],num[i+1,j]}]]], {i,1,Length@maze-1},{j,1,n-1}]; sol=ShortestPath[FromUnorderedPairs@arcs,start,goal]; If[Head@sol===ShortestPath || Length@sol==1,False, pos/@sol]Rating1/3=0.33-0+
[ reply ]