B帯で7波使う時の組み合わせ。Haskell様の答え

プログラムの話の続きで。

今あるプログラムは、そこを使ったらどうなるかを教えてくれますが、んじゃあどうしたらいいの？と聞いても教えてくれません。ひたすら試行錯誤あるのみです。

Haskellを使うと、条件を入れたら可能な組み合わせを答えてくれる賢いやつが割りと簡単に作れるそうな。

挑戦してみました。

ふむふむなるほど... いいかも。

とりあえず、B帯で7波の組み合わせをHaskell様に聞いてみました。

[["B11","B12","B33","B52","B54","B36","B55"],["B11","B22","B23","B51","B53","B45","B55"],["B11","B12","B42","B52","B25","B15","B46"],["B11","B22","B23","B14","B43","B44","B46"],["B11","B12","B42","B34","B54","B44","B46"],["B11","B12","B13","B14","B26","B36","B46"],["B11","B12","B32","B42","B25","B45","B46"],["B11","B41","B24","B52","B26","B45","B46"],["B21","B22","B42","B34","B26","B45","B46"],["B11","B41","B13","B51","B53","B16","B46"],["B11","B32","B33","B14","B53","B16","B46"],["B21","B31","B13","B14","B25","B16","B46"],["B11","B31","B23","B52","B54","B16","B46"],["B11","B22","B33","B53","B15","B16","B46"]]

14個できました。
本や資料に載っていない、知らない組み合わせもありました。

どうなんでしょう？使用は自己責任でお願いします。

では、AB帯で12波だと？

いけません。計算が膨大で半日かかっても終わりません。

macbookがめっちゃ熱い...

よっぽど作りがへぼいんだろうか...

そのうち、もう少し動くようになったら上げます。