OPTION BASE 0
PRINT
PRINT "湖の水から○Ｌの水を汲みたい。"
PRINT "使用できるのは、□Ｌの容量の容器１個 と △Ｌの容量の容器１個 のみ。"
PRINT "１回の行為で出来るの次の３つのうちのどれかである。"
PRINT "      １つの容器に水を汲む"
PRINT "      １つの容器の水を捨てる"
PRINT "      一方の容器の水の一部または全部をもう一方の容器に移す"
PRINT "最低何回の行為で思いを達成することができるか？"
PRINT

INPUT PROMPT "何Ｌの水を汲む？ ":z
INPUT PROMPT "容器１の容量は何Ｌ？ ":x
INPUT PROMPT "容器２の容量は何Ｌ？ ":y
PRINT

IF x>y THEN
   LET Q=x
   LET x=y
   LET y=Q
END IF
 
DIM A(51),B(51)
MAT A=ZER
MAT B=ZER
LET W=0

FOR i=0 TO 50

   IF i=50 THEN
      LET W=1
      LET P1=50
   END IF

   IF A(i)=0 THEN
      LET A(i+1)=x
      LET B(i+1)=B(i)
      GOTO 10
   END IF

   IF B(i)=y THEN
      LET B(i+1)=O
      LET A(i+1)=A(i)
      GOTO 10
   END IF

   IF A(i)+B(i)=<y THEN
      LET A(i+1)=0
      LET B(i+1)=A(i)+B(i)
      GOTO 10
   ELSE
      LET B(i+1)=y
      LET A(i+1)=A(i)+B(i)-y
      GOTO 10
   END IF

10    IF A(i)=z OR B(i)=z THEN
         LET P1=i
         EXIT FOR
      END IF

   NEXT i

   PRINT "＜小さい容器から大きい容器に水を移していく方法＞"
   PRINT 
   PRINT "   小さい方の容器：";
   FOR i=1 TO P1
      PRINT USING "###":A(i);
   NEXT i
   PRINT
   PRINT "   大きい方の容器：";
   FOR i=1 TO P1
      PRINT USING "###":B(i);
   NEXT i
   PRINT
   PRINT
   IF W=1 THEN
      PRINT "　　　不可能だった。"
   ELSE
      PRINT "　　　最低";P1;"回 の行為で達成できる。"
   END IF
   PRINT
   PRINT

   MAT A=ZER
   MAT B=ZER
   LET Q=x
   LET x=y
   LET y=Q
   LET W=0

   FOR i=0 TO 50

      IF i=50 THEN
         LET W=1
         LET P2=50
      END IF

      IF A(i)=0 THEN
         LET A(i+1)=x
         LET B(i+1)=B(i)
         GOTO 100
      END IF

      IF B(i)=y THEN
         LET B(i+1)=O
         LET A(i+1)=A(i)
         GOTO 100
      END IF

      IF A(i)+B(i)=<y THEN
         LET A(i+1)=0
         LET B(i+1)=A(i)+B(i)
         GOTO 100
      ELSE
         LET B(i+1)=y
         LET A(i+1)=A(i)+B(i)-y
         GOTO 100
      END IF

100    IF A(i)=z OR B(i)=z THEN
          LET P2=i
          EXIT FOR
       END IF
        
    NEXT i

    PRINT "＜大きい容器から小さい容器に水を移していく方法＞"
    PRINT
    PRINT "   小さい方の容器：";
    FOR i=1 TO P2
       PRINT USING "###":B(i);
    NEXT i
    PRINT
    PRINT "   大きい方の容器：";
    FOR i=1 TO P2
       PRINT USING "###":A(i);
    NEXT i
    PRINT
    PRINT
    IF W=1 THEN
       PRINT "　　　不可能だった。"
    ELSE
       PRINT "　　　最低";P2;"回 の行為で達成できる。"
    END IF
    PRINT
    PRINT
    IF P1=50 AND P2=50 THEN 
       PRINT "したがって、答えは「不可能である。」である。"
       GOTO 1000
    END IF
    IF P1>P2 THEN LET P1=P2
    PRINT "したがって、答えは「最低";P1;"回 の行為で達成できる。」である。"
1000 PRINT
END