解答・コメントを送る方法
コメントを送るには2つの方法があります。
- 匿名でコメントを書くログインせずにコメントを書くことができます。 名前は「匿名」となります。
- アカウントを作成してコメントを書くアカウントを作成すると、記名での投稿ができます。 また、プロフィールページが作成され、 簡単なプロフィールや 統計情報が表示されるようになります。
投稿ボタンを押す前に以下の文章を確認してください
- 当サイトへの投稿は クリエイティブ・コモンズ・ライセンス BY(表示)および、その解釈に同意するものとみなされます。各ページには下のようにライセンス表示が行われます。
- あなたの投稿したコード・コメント・トピックが再利用・添削されることを望まない場合は、投稿をお控えください。
- 自分が書いていない、ウェブサイトや書籍などからの無断コピーは著作権の侵害です。著作権者の了解を得るか、自分で0から書いてください。
- 著作権の侵害、名誉毀損、など投稿内容に問題がある場合、削除することがあります。
- これらのことにあなたはあらかじめ同意したものとみなされます。
Post comment
Post a comment to the following challenge:
箱詰めパズルの判定
(Nested
Flatten)
As a reply to the following comment: hoge: 解の同一視処理で、面倒なので反転、回転...(#9833) [show]
hoge #9833() Rating0/0=0.00
解の同一視処理で、面倒なので反転、回転させた集合全体で比較していたのですが、それでは 不十分で漏れがありました。結局、地道に処理することに...。すいません。出直してきます... Combinations of Blocks: 12 1111: 1 1122: 2 1144: 2 1244: 4 1334: 2 1445: 3 2222: 1 2244: 1 3333: 1 3345: 1 4444: 3 4455: 1 generatePatterns b = (map (f (reverse b)) l) ++ (map (f b) l) where l = [0, 90, 180, 270] f b d = normalizeBlock $ rotateBlock d b allPatterns = map ((map unpackBlock) . f) [b1, b2, b3, b4, b5] where f = concatMap rotatePattern . concatMap (map transpose . rotatePattern . transpose) . nub . generatePatterns solutions = map (\x -> (patternsToBlocks (head x), x)) ... filterPatterns = map f where f [] = [] f (x:xs) = x : (f $ filter g xs) where g p = all (/= x) $ h p h = map sort . transpose . map (map unpackBlock . generatePatterns . packBlock)