BASICの宿題はお前にまかせた

BASICの宿題はお前にまかせた at TECH

88:デフォルトの名無しさん
06/05/29 21:12:46
>>86
(仮称)十進BASIC

INPUT s$
LET m=LEN(s$)
FOR n=1 TO INT(m/2)
FOR i=1 TO m-n+1
IF s$(i:i+n-1) = s$(i+n:i+2*n-1) THEN
PRINT s$(i:i+n-1)
END IF
NEXT i
NEXT n
END

次ページ

続きを表示

1を表示