Palindrome/fi: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1		-	~~<figure>~~
2		-	~~<img src="fpc_source_logo.png" title="fpc_source_logo.png" />~~
3		-	~~<figcaption>fpc_source_logo.png</figcaption>~~
4		-	~~</figure>~~
	1	+	![](/wiki-images/8/84/Fpc_source_logo.png)
5	2
6	3		# Palindromi
7	4
8	5		Palindromi on sana, lause, numero tai muu sarja symboleita tai elementtejä, joiden merkitys tulkataan samalla tavalla sekä etuperin ja takaperin
9	6
10	7		# Esimerkkejä
11	8
12	9		## Englanti
13	10
14	11		- racecar
15	12		- A man, a plan, a canal: Panama
16	13		- Madam I'm Adam
17	14
18	15		## Arabia
19	16
20	17		- مودته تدوم لكل هول * وهل كل مودته تدوم
21	18
22	19		## Armenia
23	20
24	21		- Արա իմ, առած դրամ՝ քաղաքեքաղաք մարդ ծառա մի արա
25	22		- Սերամա՜հ եթե համարես
26	23
27	24		## Suomi
28	25
29	26		- saippuakivikauppias
30	27		- No niin, on aamu. Kehua sinua kai saan, ah, ihana Kristian. Nait Sirkan, ah, ihana asia, kaunis. Au, hekumaa. No niin on.
31	28		- No, oikotie vei Tokioon.
32	29
33	30		## Venäjä
34	31
35	32		- А роза упала на лапу Азора
36	33		- луну дунул
37	34		- лак резала зеркал
38	35
39	36		# Funktio IsPalindome
40	37
41	38		Tämä funktio toimii [[ASCII/fi\|ASCII]] ja [[UTF-8]] koodauksella.
42	39
43	40		``` pascal
44	41		function IsPalindome(const a_text: string): boolean;
45	42		var
46	43		i, j :longint;
47	44		s1, s2, s3 :string;
48	45		begin
49	46		s1 := UTF8LowerCase( a_text );
50	47		j := length( s1 );
51	48		i := 1;
52	49		s2 := '';
53	50		s3 := '';
54	51		while ( i <= j ) do
55	52		begin
56	53		if s1[i] < #$C0 then // ASCII
57	54		begin
58	55		if (s1[i] >= #$30) and (s1[i] < #$7B)then
59	56		begin
60	57		if (s1[i] > #$60) or (s1[i] < #$3A) then
61	58		begin
62	59		s2 := s1[i] + s2;
63	60		s3 := s3 + s1[i];
64	61		end;
65	62		end;
66	63		inc( i );
67	64		end
68	65		else
69	66		begin
70	67		begin
71	68		if s1[i] < #$E0 then // two byte
72	69		begin
73	70		if ((s1[i] > #$C2) and ( not
74	71		// Armenian punctuation
75	72		((s1[i] = #$D5) and ((s1[i+1] >= #$99) and (s1[i+1] < #$A0)))
76	73		)) then
77	74		begin
78	75		s2 := s1[i]+ s1[i+1] + s2;
79	76		s3 := s3 + s1[i] + s1[i+1];
80	77		end;
81	78		inc( i ,2);
82	79		end
83	80		else
84	81		begin
85	82		if s1[i] < #$F0 then // three byte
86	83		begin
87	84		if not (
88	85		// General punctuation
89	86		(s1[i] = #$E2) and ((s1[i+1]= #$80)
90	87		or ((s1[i+1]= #$81) and (s1[i+2]< #$B0)))
91	88		) then
92	89		begin
93	90		s2 := s1[i]+ s1[i+1] + s1[i+2]+ s2;
94	91		s3 := s3 + s1[i] + s1[i+1] + s1[i+2];
95	92		end;
96	93		inc( i ,3);
97	94		end
98	95		else
99	96		begin
100	97		s2 := s1[i]+ s1[i+1] + s1[i+2]+ s1[i+3] + s2;
101	98		s3 := s3 + s1[i] + s1[i+1] + s1[i+2] + s1[i+3];
102	99		inc( i ,4);
103	100		end
104	101		end;
105	102		end;
106	103		end;
107	104		end;
108	105		if s2 <> '' then result := s2=s3 else result := false;
109	106		end;
110	107		```
111	108
112	109		---
113	110		From the Free Pascal wiki, page "Palindrome/fi", as it stood on 2020-02-23 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history