O’zbekiston respublikasi oliy va o’rta maxsus ta’lim vazirligi buxoro davlat universiteti qo’lyozma huquqida udk

2.3 Ro’yxat bilan ishlashda iteratsion sxemadan foydalanish

Ro’yxat bilan ishlashda iteratsion sxemadan ham foydalanish mumkin. Yuqoridagi masalani (ro’yxat elementlari sonini hisoblash) yechish uchun predikatni quyidagicha e’lon qilamiz:

len:(real*,integer,integer) procedure(i,i,o).
 Xorn gaplarini esa quyidagicha quramiz:

len([], A, A) :- !.

len([X|Xs], A, T) :- len(Xs, 1+A, T).

Ikkinchi gapning ma’nosi quyidagicha: “Berilgan ro’yxat [X|Xs]shabloni asosida qaraladi va berilgan A o’zgaruvchining qiymatiga T qiymat mos qo’yiladi, agar berilgan ro’yxat dumi- Xs, berilgan A o’zgaruvchi qiymatiga 1 qo’shilganiga T qiymat mos qo’yilsa”. Ushbu gap len(List, 0, Len) ko’rinishida chaqiriladi, Masalan len([32.4, 2.5, 12.12, 5.0, 24.12], 0, Len). Natija sifatida Len = 5 olinadi. Ushbu natijani olish uchun hisob ro’yxat ustidan faqat 1 marta o’tadi, 1- marta uni qisqartirib, va har bir qisqartirganda berilgan A qiymat ustiga 1 qo’shilib boradi. Ro’yxat bo’shaganda A, o’zgaruvchi kerakli qiymatni olgan bo’ladi.

Quyidagi funksiyada satrni yani ifodani oldiga so’z yozadi. Concat satrni qo’shadi.

S= concatList(L), UCase= toUpperCase(S),

RR= string::concat("case: ", Ucase),

R1= string::concat("It is ", "upper ", RR),

Bizga S- satr berilgan. Shu satrni so’zlar (tokenlar) ro’yxatiga almashtirish quyidagi fakt asosida amalga oshiriladi:

tokenize(S, [T|Ts]) :-

frontToken(S, T, R), !, tokenize(R, Ts).

tokenize(_, []).

Bunda:

UCase=toUpperCase(S) – S satrni katta harflar orqali yozilgan Ucase satriga o’zgartirish funksiyasi;

RR=String::concat(“katta harf:”,UCase) – Ucase satrining oldiga “katta harf:” satrini biriktirib RR satrini yasovchi funksiya;

Stdio::Write(RR),stdio::nl – RR satrni ekranga chiqrib, yangi satrga o’tishni tashkil qilish funksiyalari.

With Delimite- orasiga vergul qo’yadi.

["it ", "was ", "in ", "the ", "bleak ", "December!"], deb berilgan so’zlarni qo’shib chiqaradi. Bizni dasturimizda quyidagicha so’z yasaldi.

“it was in the bleak December!"