2021-11-01から1ヶ月間の記事一覧

地図の塗分け

A,B,C,D,Eの5つのエリアよりなる地図 REM 上の地図で隣り合う部分が異なる色になるように6色で塗り分ける方法の数。十進BASICSI使用。 FOR a=1 TO 6 FOR b=1 TO 6 FOR c=1 TO 6 FOR d=1 TO 6 FOR e=1 TO 6 IF a<>b AND a<>c AND b<>c AND b<>d AND b<>e AND…

ライツアウトを解く

10進basicを使っています DIM a(9,9)DIM b(9,9)DIM c(9)DIM d(9) MAT a=ZERLET a(1,1)=1LET a(1,2)=1LET a(1,4)=1LET a(2,1)=1LET a(2,2)=1LET a(2,3)=1LET a(2,5)=1LET a(3,2)=1LET a(3,3)=1LET a(3,6)=1LET a(4,1)=1LET a(4,4)=1LET a(4,5)=1LET a(4,7)=1L…

奇数次の魔方陣を10進BASICで作る

https://www.mirai-kougaku.jp/laboratory/pages/161118.php REM 十進basicを使っています。オプションメニューから文法--microsoft BASIC互換を選んで実行してください。REM !印以下は注釈文です。実行には影響を与えません。REM アルゴリズムはサイモン-ド…