Correct erroneous strlen computation in cancer.alan (#42)

Fixes #41
kostis · Dec 4, 2024 · 499c326 · 499c326
1 parent 3d43526
commit 499c326
Showing 1 changed file with 4 additions and 6 deletions.
diff --git a/alan/programs/cancer.alan b/alan/programs/cancer.alan
@@ -20,13 +20,11 @@ cancer() : proc
 	{
 		writeString("Give a string with maximum length 30: ");
 		readString(30, source);
-		n = 0;
-		while (source[n]!='\0')
-			n = n+1;
-		n = n-1;
+		writeString(source);
+		n = strlen(source);
 		if (is_it(n, source) == 1)
-			writeString("\nIs not palindrome...");
+			writeString(" ... is not palindrome\n");
 		else
-			writeString("\nIs palindrome...");
+			writeString(" ... is palindrome\n");
 	}