|
通りすがり |
|
誰もプログラムを書き込んでいないので、ちょっと。。。十進BASICならこんな感じかなぁ〜
CALL remove("12345", "", count) PRINT count END EXTERNAL SUB remove(s$, op$, count) LET p$ = op$ IF POS(p$,left$(s$,1)) = 0 THEN LET p$ = p$&left$(s$,1) IF LEN(s$) > 1 THEN FOR i = 1 TO LEN(s$) CALL remove(SUBSTR$(s$,1,i-1) & SUBSTR$(s$,i+1,LEN(s$)), p$, count) NEXT I ELSE IF LEN(p$) = 2 THEN LET count = count+1 END IF END SUB |
|
10月4日（木） 8:32:56
39869 |