地図の塗分け

A,B,C,D,Eの５つのエリアよりなる地図

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  c<>e AND  d<>e  THEN  LET s=s+1
               
               
            NEXT E
         NEXT D
      NEXT C
   NEXT B
NEXT A
PRINT  s

END