.() ()next[k]
.()i=i+ ()j:=j+ ()i:=ij+ ()j:=; ()imt(或i:=ij+) ()
程序中遞歸調用
()ch<>midch //當讀入不是分隔符&和輸入結束符$時繼續讀入字符
()ch=ch //讀入分隔符&後判ch是否等於ch得出真假結論
()answer=true
()answer=false
()read(ch)
()ch=endch
[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
From:http://tw.wingwit.com/Article/program/sjjg/201311/22619.html