str'Length; begin for i in 1 .. len / 2 loop if Element(To_Unbounded_String(str), i) /= Element(To_Unbounded_String(str), len - i + 1) then return False;
Mature Development Systems, Field Proven on Hundreds of Applications. DDC-I. Phoenix, Arizona. 2020 [2020-04-22]. (原始内容存档于2023-03-27). 存档副本. [2014-08-26]