あっ。DP(動的計画法の略)じゃ無理だ。別の方法使います。(DPあんまり使えないのでもしかしたらDPでもいけるかも)
DIM ALL$[0]
DEF DEL(A[],J)
VAR L=LEN(A)-1
DEM R$[0]
FOR I=0 TO L
IF I!=J THEN
PUSH R$,A[I]
ENDIF
NEXT I
RETURN R$
END
DEF DFS DIC$,STR$
VAR L=LEN(DIC$)
VAR I%
PUSH ALL$,STR$
FOR I%=0 TO L-1
PUSH ALL$,STR$+DIC$[I%]
DFS DEL(DIC$,I%),STR$+DIC$[I%]
NEXT I%
END
(動作未確認)
あと文字の種類多いととんでもない時間かかります。
Out Of Memory出るかも。