การหาความยาวของ Longest Palindrome ใน String ด้วย Delphi Object Pascal

ในบทความนี้ เราจะมาสำรวจกระบวนการหาความยาวของ Longest Palindrome ใน String ด้วยภาษา Delphi Object Pascal ซึ่งเป็นภาษาที่นิยมใช้ในการพัฒนาแอพพลิเคชันบน Windows เนื้อหาจะอธิบายทั้งทฤษฎีการหาความยาวของ palindrome ตัวอย่างโค้ด รวมถึงการใช้งานจริงในโลกปัจจุบัน

Palindrome คืออะไร?

Palindrome คือคำหรือประโยคที่อ่านจากซ้ายไปขวาและจากขวาไปซ้ายจะเหมือนกัน ตัวอย่างเช่น "ระดับ", "เสียงเล็ก ๆ", "A man, a plan, a canal, Panama!" เป็นต้น ในโค้ดของเรานั้น เราจะเน้นไปที่การหาความยาวของ substring ที่เป็น palindrome ที่ยาวที่สุดใน string ที่กำหนด

การทำงานของอัลกอริธึม

แนวทางที่ใช้ในการหาความยาวของ Longest Palindrome นั้นมีหลายวิธี เช่น Backtracking, Dynamic Programming หรือ การขยายจากจุดกึ่งกลาง ในที่นี้ เราจะใช้วิธีการขยายจากจุดกึ่งกลาง (Center Expansion Method) เพราะว่ามันเป็นวิธีที่มีความเร็วในการคำนวณ

หลักการทำงาน:

ตัวอย่างโค้ด Delphi

มาลองดูตัวอย่างโค้ด Delphi ที่ใช้ในการหาความยาวของ Longest Palindrome:

 program LongestPalindrome;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function ExpandAroundCenter(const s: string; left, right: Integer): Integer;
var
  L, R: Integer;
begin
  L := left;
  R := right;

  while (L >= 0) and (R < Length(s)) and (s[L + 1] = s[R + 1]) do
  begin
    Dec(L);
    Inc(R);
  end;

  Result := R - L - 1; // ความยาวของ palindrome
end;

function LongestPalindromeLength(const s: string): Integer;
var
  i, len1, len2: Integer;
begin
  Result := 0;

  for i := 0 to Length(s) - 1 do
  begin
    // เช็คสำหรับ palindrome ที่มีตัวอักษรเดียว (เช่น "racecar")
    len1 := ExpandAroundCenter(s, i, i);
    // เช็คสำหรับ palindrome ที่มีสองตัวอักษรเดียว (เช่น "abba")
    len2 := ExpandAroundCenter(s, i, i + 1);

    Result := Max(Result, Max(len1, len2));
  end;
end;

begin
  WriteLn('Longest palindrome length: ', LongestPalindromeLength('babad'));
  ReadLn;
end.

อธิบายโค้ด

- ฟังก์ชัน `ExpandAroundCenter` จะขยายจากจุดกึ่งกลางและตรวจสอบตัวอักษรทั้งสองทิศทาง โดยจะนำค่าที่ได้กลับมาเป็นความยาวของ palindrome

- ฟังก์ชัน `LongestPalindromeLength` จะวนลูปเพื่อหาความยาวของ palindrome ที่ยาวที่สุด โดยเช็คทั้งสำหรับจุดกึ่งกลางเดียวและจุดกึ่งกลางที่มีตัวอักษรสองตัวอยู่ร่วมกัน

Use Case ในโลกจริง

การนำ Longest Palindrome ไปใช้มีหลายกรณี เช่น

สรุป

การหาความยาวของ Longest Palindrome ใน string มีความสำคัญในหลายสาขา โดยที่เราสามารถใช้ Delphi Object Pascal ในการพัฒนาโค้ดที่มีประสิทธิภาพได้ หากคุณสนใจเรียนรู้การเขียนโปรแกรมเพิ่มเติมและเทคนิคต่าง ๆ ในการพัฒนาโปรแกรม สามารถมาศึกษาต่อที่ EPT (Expert-Programming-Tutor) เพื่อทำความเข้าใจในแนวทางที่ถูกต้องและเรียนรู้เทคนิคใหม่ ๆ ที่จะนำไปประยุกต์ใช้ในงานจริงได้ พร้อมด้วยการให้คำปรึกษาจากผู้เชี่ยวชาญในสายงานการพัฒนาโปรแกรม!

ทำไมต้องรอ? มาร่วมเป็นส่วนหนึ่งกับเราใน EPT พร้อมเรียนรู้และเติบโตไปด้วยกัน!

หมายเหตุ: ข้อมูลในบทความนี้อาจจะผิด โปรดตรวจสอบความถูกต้องของบทความอีกครั้งหนึ่ง บทความนี้ไม่สามารถนำไปใช้อ้างอิงใด ๆ ได้ ทาง EPT ไม่ขอยืนยันความถูกต้อง และไม่ขอรับผิดชอบต่อความเสียหายใดที่เกิดจากบทความชุดนี้ทั้งทางทรัพย์สิน ร่างกาย หรือจิตใจของผู้อ่านและผู้เกี่ยวข้อง