|
通りすがり |
|
10進BASICなら、こうかなぁ〜
CALL fetch(0, "R", "W", count) PRINT count END EXTERNAL SUB fetch(n, a$, b$, count) IF n < 13 THEN IF a$ = "R" THEN CALL fetch(n+1, "W", b$, count) IF a$ = "W" THEN CALL fetch(n+1, "B", b$, count) IF a$ = "B" THEN CALL fetch(n+1, "R", b$, count) IF a$ <> b$ THEN IF b$ = "R" THEN CALL fetch(n+1, a$, "W", count) IF b$ = "W" THEN CALL fetch(n+1, a$, "B", count) IF b$ = "B" THEN CALL fetch(n+1, a$, "R", count) END IF ELSE IF a$ = "W" AND b$ = "W" THEN LET count = count+1 END IF END SUB |
|
1月26日（木） 10:45:38
38873 |