文字列比較プログラムの凡ミスを修正

result: これはこのコードの行頭インデントを削除して通したもの https://paiza.jp/poh/joshibato/matsue-ruby/result/801dfa31
neetsdkasu · Sep 10, 2015 · b6115cc · b6115cc
1 parent 1970dfb
commit b6115cc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/POH6plus/answer.cob b/POH6plus/answer.cob
@@ -109,7 +109,7 @@
         Init-Compare.
                 MOVE 1 TO IndexC1.
         Main-Loop.
-                IF IndexC1 = Word-Length THEN
+                IF IndexC1 > Word-Length THEN
                     MOVE EQUALITY TO Result OF Compare-Values
                 ELSE
                     MOVE ORD(String1(IndexC1:1)) TO Ord1