ΡΠ΄Π΅Π»Π°Π½ΠΎ(foo(_,_)).
Π Π΄Π°Π»ΡΠ½Π΅ΠΉΡΠ΅ΠΌ, ΠΏΡΠΈ ΡΡΠ΅Π½ΠΈΠΈ ΠΎΡΡΠ°Π»ΡΠ½ΡΡ ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΠΉ Π΄Π»Ρ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠ° too, ΠΌΡ ΡΠΌΠΎΠΆΠ΅ΠΌ ΠΏΡΠΎΠ²Π΅ΡΠΈΡΡ, ΡΡΠΎ ΡΡΠ°ΡΡΠ΅ ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΡ ΡΠΆΠ΅ ΡΠ΄Π°Π»Π΅Π½Ρ ΠΈΠ· Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ . Π’Π΅ΠΌ ΡΠ°ΠΌΡΠΌ ΡΠ΄Π°Π΅ΡΡΡ ΠΈΠ·Π±Π΅ΠΆΠ°ΡΡ ΠΎΡΠΈΠ±ΠΎΡΠ½ΠΎΠ³ΠΎ ΡΠ΄Π°Π»Π΅Π½ΠΈΡ Π½ΠΎΠ²ΡΡ ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΠΉ. ΠΠ»Ρ Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ Π²Π°ΠΆΠ½ΠΎ, ΡΡΠΎ ΠΌΡ Π½Π΅ Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅ΠΌ Π² Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ ΡΡΠΎ-Π½ΠΈΠ±ΡΠ΄Ρ Π²ΡΠΎΠ΄Π΅:
ΡΠ΄Π΅Π»Π°Π½ΠΎ(foΠΎ(Π°,Π₯)).
ΠΏΠΎΡΠΊΠΎΠ»ΡΠΊΡ Π² ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Π°ΡΠ³ΡΠΌΠ΅Π½Ρ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠ° ΡΠ΄Π΅Π»Π°Π½ΠΎ Π½Π΅ ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎ ΡΠΎΠ²ΠΏΠ°Π΄Π°Π΅Ρ Ρ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠΎΠΌ ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΡ Π΄Π»Ρ foo. ΠΠ°ΡΠ° Π·Π°ΠΏΡΠΎΡΠΎΠ²
β¦,functor(ΠΠ°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ,Func,Arity),functor(Proc,Func,Arity),β¦
ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠΈΠ·ΠΈΡΡΠ΅Ρ Π Π³ΠΎΡ ΡΡΡΡΠΊΡΡΡΠΎΠΉ, ΠΈΠΌΠ΅ΡΡΠ΅ΠΉ ΡΠΎΡ ΠΆΠ΅ ΡΡΠ½ΠΊΡΠΎΡ, ΡΡΠΎ ΠΈ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ ΠΠ°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ, Π½ΠΎ Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠΌΠΈ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠΎΠ² (ΡΠΌ. ΡΠ°Π·Π΄. 6.5).
ΠΠΠΠΠ 8. ΠΠ’ΠΠΠΠΠ ΠΠ ΠΠΠΠ-ΠΠ ΠΠΠ ΠΠΠ
ΠΠ° ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΡ Π²ΡΡΠ΅ ΠΏΡΠΈΠΌΠ΅ΡΠ°Ρ Π²Ρ ΡΠΆΠ΅ ΠΏΡΠΈΠΎΠ±ΡΠ΅Π»ΠΈ ΠΎΠΏΡΡ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ ΠΈ Π½Π°ΡΡΠΈΠ»ΠΈΡΡ ΠΈΡ ΠΈΠ·ΠΌΠ΅Π½ΡΡΡ, Π° ΡΠ°ΠΊΠΆΠ΅ ΡΡΠΏΠ΅Π»ΠΈ Π½Π°ΠΏΠΈΡΠ°ΡΡ ΠΈ ΡΠ²ΠΎΠΈ ΡΠΎΠ±ΡΡΠ²Π΅Π½Π½ΡΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. Π’Π΅ΠΏΠ΅ΡΡ ΡΠ°ΠΌΠΎΠ΅ Π²ΡΠ΅ΠΌΡ Π·Π°Π½ΡΡΡΡΡ Π²ΠΎΠΏΡΠΎΡΠΎΠΌ: ΡΡΠΎ Π΄Π΅Π»Π°ΡΡ, ΠΊΠΎΠ³Π΄Π° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π²Π΅Π΄Π΅Ρ ΡΠ΅Π±Ρ Π½Π΅ ΡΠ°ΠΊ, ΠΊΠ°ΠΊ ΠΎΠΆΠΈΠ΄Π°Π»ΠΎΡΡ. ΠΠΎΠ΄ΠΎΠ±Π½ΡΠ΅ Π½Π΅ΠΎΠΆΠΈΠ΄Π°Π½Π½ΠΎΡΡΠΈ ΡΠ²ΡΠ·Π°Π½Ρ Ρ Π½Π°Π»ΠΈΡΠΈΠ΅ΠΌ ΠΎΡΠΈΠ±ΠΎΠΊ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅, Π° ΠΏΡΠΎΡΠ΅ΡΡ ΡΡΡΡΠ°Π½Π΅Π½ΠΈΡ ΡΡΠΈΡ ΠΎΡΠΈΠ±ΠΎΠΊ Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ ΠΎΡΠ»Π°Π΄ΠΊΠΎΠΉ. ΠΠΎ Π½Π°ΡΠ΅ΠΌΡ ΡΠ±Π΅ΠΆΠ΄Π΅Π½ΠΈΡ ΡΠ°ΠΌΡΠΌ ΡΠ°Π·ΡΠΌΠ½ΡΠΌ ΠΏΠΎΠ΄Ρ ΠΎΠ΄ΠΎΠΌ ΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠΎΡ, ΠΊΠΎΡΠΎΡΡΠΉ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΎΡ Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΠ·ΠΎΠ²Π°Π½ ΠΊΠ°ΠΊ Β«ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Ρ ΠΏΡΠ΅Π΄ΡΠΏΡΠ΅ΠΆΠ΄Π΅Π½ΠΈΠ΅ΠΌ ΠΎΡΠΈΠ±ΠΎΠΊΒ». ΠΠ΅ΡΠ΅ΡΡΠ°Π·ΠΈΡΡΡ ΡΡΠ°ΡΡΡ ΠΏΠΎΠ³ΠΎΠ²ΠΎΡΠΊΡ, ΠΌΠΎΠΆΠ½ΠΎ ΡΠΊΠ°Π·Π°ΡΡ, ΡΡΠΎ Π³ΡΠ°ΠΌΠΌ ΡΡΠ°ΡΠ΅Π»ΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΡΠΎΠΈΡ ΠΊΠΈΠ»ΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΎΡΠ»Π°Π΄ΠΊΠΈ. Π ΡΡΠΎΠΉ Π³Π»Π°Π²Π΅ ΠΌΡ ΡΠ°ΡΡΠΊΠ°ΠΆΠ΅ΠΌ ΠΎ Π½Π΅ΠΊΠΎΡΠΎΡΡΡ ΠΌΠ΅ΡΠΎΠ΄Π°Ρ ΠΎΡΠ»Π°Π΄ΠΊΠΈ, Π½ΠΎ Π½Π°ΡΠ½Π΅ΠΌ Ρ ΡΠΎΠ³ΠΎ, ΠΊΠ°ΠΊ ΠΈΠ·Π±Π΅ΠΆΠ°ΡΡ ΠΏΡΠΎΠ½ΠΈΠΊΠ½ΠΎΠ²Π΅Π½ΠΈΡ ΠΎΡΠΈΠ±ΠΎΠΊ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. Π‘ΠΎΠ·Π½Π°Π²Π°Ρ, ΡΡΠΎ Π² ΠΎΠ±ΡΠ΅ΠΌ Π²ΠΈΠ΄Π΅ ΡΡΠ° ΠΏΡΠΎΠ±Π»Π΅ΠΌΠ° Π½Π΅ΡΠ°Π·ΡΠ΅ΡΠΈΠΌΠ°, ΠΌΡ Ρ ΠΎΡΠΈΠΌ ΠΏΡΠΎΡΡΠΎ ΠΏΠΎΠ΄Π΅Π»ΠΈΡΡΡΡ Π½Π΅ΠΊΠΎΡΠΎΡΡΠΌΠΈ Π½Π΅ΡΠΎΡΠΌΠ°Π»ΡΠ½ΡΠΌΠΈ ΠΏΡΠΈΠ΅ΠΌΠ°ΠΌΠΈ, ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠΆΠ΅ ΠΏΡΠΈΠ½ΠΎΡΠΈΠ»ΠΈ ΠΏΠΎΠ»ΡΠ·Ρ Π΄ΡΡΠ³ΠΈΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΠ°ΠΌ, ΡΠ°Π±ΠΎΡΠ°ΡΡΠΈΠΌ Π½Π° ΠΡΠΎΠ»ΠΎΠ³Π΅.
ΠΠ°ΠΊ ΠΈ Π²ΡΡΠΊΠΎΠ΅ ΡΠ²ΠΎΡΡΠ΅ΡΡΠ²ΠΎ, Π±ΡΠ΄Ρ ΡΠΎ ΡΠΎΡΠΈΠ½Π΅Π½ΠΈΠ΅ ΠΌΡΠ·ΡΠΊΠΈ, Π»ΠΈΡΠ΅ΡΠ°ΡΡΡΠ° ΠΈΠ»ΠΈ Π°ΡΡ ΠΈΡΠ΅ΠΊΡΡΡΠ°, ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠ°ΡΠΏΠΎΠ»Π°Π³Π°Π΅Ρ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎΠΌ ΡΠΏΠΎΡΠΎΠ±ΠΎΠ² ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² ΠΈ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΡΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² ΠΈ ΠΎΡΠ½ΠΎΡΠ΅Π½ΠΈΠΉ ΠΌΠ΅ΠΆΠ΄Ρ Π½ΠΈΠΌΠΈ Π² ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅. Π ΠΎΠ±ΡΠ΅ΠΌ ΡΠ»ΡΡΠ°Π΅ Π΄Π»Ρ Π½Π΅ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° Π΄Π°Π½Π½ΡΡ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΡΡ ΡΠΏΠΎΡΠΎΠ±ΠΎΠ² Π΅Π³ΠΎ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΈΠ»ΠΈ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ. ΠΡΡΠΊΠΈΠΉ ΡΠ°Π·, ΠΊΠΎΠ³Π΄Π° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡ ΡΠ΅ΡΠ°Π΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π² Π΄Π°Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΎΠ΄ΠΈΠ½ ΠΈΠ· Π½ΠΈΡ , ΠΌΡ Π³ΠΎΠ²ΠΎΡΠΈΠΌ, ΡΡΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡ ΠΏΡΠΈΠ½ΡΠ» ΠΏΡΠΎΠ΅ΠΊΡΠ½ΠΎΠ΅ ΡΠ΅ΡΠ΅Π½ΠΈΠ΅.
ΠΠΎΠ²ΠΈΡΠΊΠΈ, Π²ΠΏΠ΅ΡΠ²ΡΠ΅ ΡΡΠΎΠ»ΠΊΠ½ΡΠ²ΡΠΈΠ΅ΡΡ Ρ Π·Π°Π΄Π°ΡΠ΅ΠΉ Π²ΡΠ±ΠΎΡΠ° ΠΏΡΠΎΠ΅ΠΊΡΠ½ΡΡ ΡΠ΅ΡΠ΅Π½ΠΈΠΉ, ΡΠ°ΡΡΠΎ ΠΈΡΠΏΡΡΡΠ²Π°ΡΡ ΡΡΡΠ΄Π½ΠΎΡΡΠΈ. ΠΠΎΠΌΠΎΡΡ ΠΈΠΌ ΠΌΠΎΠΆΠ΅Ρ Π·Π½Π°Π½ΠΈΠ΅ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΡΡ Π²Π°ΡΠΈΠ°Π½ΡΠΎΠ² ΡΠ΅ΡΠ΅Π½ΠΈΠΉ, ΠΈ, ΠΊΡΠΎΠΌΠ΅ ΡΠΎΠ³ΠΎ, Π²Π°ΠΆΠ½ΠΎ, ΡΡΠΎΠ±Ρ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΠΈΡΠ΅Π»Ρ ΡΠ°Π·ΡΡΡΠ½ΠΈΠ» ΠΈΠΌ ΠΌΠ΅ΡΠΎΠ΄ΠΈΠΊΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π² ΡΠ΅Π»ΠΎΠΌ, ΠΏΠΎΡΠΊΠΎΠ»ΡΠΊΡ ΠΈΡΠΊΡΡΡΡΠ²ΠΎ ΠΏΡΠΈΠ½ΡΡΠΈΡ ΠΏΡΠΎΠ΅ΠΊΡΠ½ΡΡ ΡΠ΅ΡΠ΅Π½ΠΈΠΉ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠΈ β ΡΡΠΎ ΡΠ°ΠΌΠΎΡΡΠΎΡΡΠ΅Π»ΡΠ½Π°Ρ Π΄ΠΈΡΡΠΈΠΏΠ»ΠΈΠ½Π°. ΠΡ ΡΠΆΠ΅ ΠΏΡΡΠ°Π»ΠΈΡΡ Π·Π°ΡΡΠΎΠ½ΡΡΡ ΡΡΡ ΠΏΡΠΎΠ±Π»Π΅ΠΌΡ Π² ΡΠ°Π·Π΄. 1.1, Π³Π΄Π΅ ΠΎΠ±ΡΡΠΆΠ΄Π°Π»ΠΈΡΡ ΡΠ°Π·Π»ΠΈΡΠ½ΡΠ΅ ΡΠΏΠΎΡΠΎΠ±Ρ ΠΈΠ½ΡΠ΅ΡΠΏΡΠ΅ΡΠ°ΡΠΈΠΈ ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΠΉ. ΠΡΠΈ Π²ΠΎΠΏΡΠΎΡΡ ΡΠ²ΡΠ·Π°Π½Ρ Ρ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ΠΌ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² ΠΈ ΠΎΡΠ½ΠΎΡΠ΅Π½ΠΈΠΉ. Π ΡΠ°Π·Π΄. 7.7 ΠΌΡ ΡΠ½ΠΎΠ²Π° ΡΡΠΎΠ»ΠΊΠ½ΡΠ»ΠΈΡΡ Ρ ΡΡΠΎΠΉ ΠΏΡΠΎΠ±Π»Π΅ΠΌΠΎΠΉ ΠΏΡΠΈ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠΈ ΡΡΠ΅Ρ ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ ΡΠΏΠΎΡΠΎΠ±ΠΎΠ² ΡΠΏΠΎΡΡΠ΄ΠΎΡΠ΅Π½ΠΈΡ ΡΠΏΠΈΡΠΊΠ° ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ². ΠΡΠΈ Π²ΠΎΠΏΡΠΎΡΡ ΡΠ²ΡΠ·Π°Π½Ρ Ρ ΡΠ°Π·Π½ΡΠΌΠΈ ΡΠΏΠΎΡΠΎΠ±Π°ΠΌΠΈ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² ΠΈ ΠΎΡΠ½ΠΎΡΠ΅Π½ΠΈΠΉ.
Π Π΄Π°Π½Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅ ΠΌΡ ΡΡΠ°ΡΠ°Π»ΠΈΡΡ ΠΎΠΊΠ°Π·Π°ΡΡ ΠΏΠΎΠΌΠΎΡΡ Π² Π²ΡΠ±ΠΎΡΠ΅ ΠΏΡΠΎΠ΅ΠΊΡΠ½ΡΡ ΡΠ΅ΡΠ΅Π½ΠΈΠΉ Π΄Π²ΡΠΌΡ ΠΏΡΡΡΠΌΠΈ. ΠΠΎ-ΠΏΠ΅ΡΠ²ΡΡ , Π½Π°Π»ΠΈΡΠΈΠ΅ Π² ΠΊΠ½ΠΈΠ³Π΅ Π±ΠΎΠ»ΡΡΠΎΠ³ΠΎ ΡΠΈΡΠ»Π° ΠΏΡΠΈΠΌΠ΅ΡΠΎΠ² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ Π΄ΠΎΠ»ΠΆΠ½ΠΎ ΡΠΏΠΎΡΠΎΠ±ΡΡΠ²ΠΎΠ²Π°ΡΡ ΡΡΠ²ΠΎΠ΅Π½ΠΈΡ ΠΈΠ΄Π΅ΠΉ Π½Π΅ΠΊΠΎΡΠΎΡΡΡ ΡΠ΅ΡΠ΅Π½ΠΈΠΉ, Π²ΡΡΠ°Π±ΠΎΡΠ°Π½Π½ΡΡ ΠΎΠΏΡΡΠ½ΡΠΌΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΠ°ΠΌΠΈ. ΠΠΎ-Π²ΡΠΎΡΡΡ , Π² Π΄Π°Π½Π½ΠΎΠΉ Π³Π»Π°Π²Π΅ ΠΌΠΎΠΆΠ½ΠΎ Π½Π°ΠΉΡΠΈ Π½Π΅ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠΎΠ²Π΅ΡΡ ΠΈ ΡΠ΅ΠΊΠΎΠΌΠ΅Π½Π΄Π°ΡΠΈΠΈ, ΡΠΏΠ΅ΡΠΈΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ Π΄Π»Ρ ΠΡΠΎΠ»ΠΎΠ³Π°.
8.1. Π Π°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΡΠ΅ΠΊΡΡΠΎΠ² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ
ΠΠΎΡΠ»Π΅ ΡΠΎΠ³ΠΎ ΠΊΠ°ΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡ ΠΏΡΠΈΠ½ΡΠ» ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΎ ΡΠΎΠΌ, ΠΊΠ°ΠΊ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡ ΠΈ ΠΎΠ±ΡΠ°Π±Π°ΡΡΠ²Π°ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΡ ΠΈ ΠΎΡΠ½ΠΎΡΠ΅Π½ΠΈΡ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅, Π΅ΠΌΡ ΡΠ»Π΅Π΄ΡΠ΅Ρ ΡΠ±Π΅Π΄ΠΈΡΡΡΡ Π² ΡΠΎΠΌ, ΡΡΠΎ ΡΠ΅ΠΊΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ ΡΠ΄ΠΎΠ±Π½ΠΎ Π΄Π»Ρ ΡΡΠ΅Π½ΠΈΡ ΠΈ Π΅Π΅ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΈΠΈ ΡΡΠ½Ρ. ΠΠ°Π±ΠΎΡ ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΠΉ Π΄Π»Ρ Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠ° Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠΎΠΉ. ΠΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ, Π²Ρ ΡΠΆΠ΅ ΠΎΠ±ΡΠ°ΡΠΈΠ»ΠΈ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅ Π½Π° ΡΠΎ, ΡΡΠΎ Π² ΠΏΡΠΈΠΌΠ΅ΡΠ°Ρ Π΄Π°Π½Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ ΠΊΠ°ΠΆΠ΄ΠΎΠ΅ ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΠ΅ Π² ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ΅ Π½Π°ΡΠΈΠ½Π°Π΅ΡΡΡ Ρ Π½ΠΎΠ²ΠΎΠΉ ΡΡΡΠΎΠΊΠΈ, Π° ΠΌΠ΅ΠΆΠ΄Ρ ΡΠΎΠ±ΠΎΠΉ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΡΠ°Π·Π΄Π΅Π»ΡΡΡΡΡ ΠΎΠ΄Π½ΠΎΠΉ ΠΏΡΡΡΠΎΠΉ ΡΡΡΠΎΠΊΠΎΠΉ. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΎΠ΄ΠΈΠ½ ΠΈΠ· ΡΠΏΠΎΡΠΎΠ±ΠΎΠ² ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠ° ΡΠΊΠ²ΠΈΠ²Π°Π»Π΅Π½ΡΠ½ΠΎΡΡΠΈ Π΄Π»Ρ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ² (ΠΏΡΠΈ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΠΈ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ² Π² Π²ΠΈΠ΄Π΅ ΡΠΏΠΈΡΠΊΠΎΠ²) ΡΠΎΡΡΠΎΠΈΡ Π² ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠΈ ΡΡΠ΅Ρ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠΎΠ², ΠΊΠ°ΠΆΠ΄ΡΠΉ ΠΈΠ· ΠΊΠΎΡΠΎΡΡΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅ΡΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΈΠ· Π΄Π²ΡΡ ΡΡΡΠΎΠΊ:
ΡΠ°Π²ΠΌΠ½ΠΎΠΆ(Π₯,Π₯):-!.
ΡΠ°Π²ΠΌΠ½ΠΎΠΆ(Π₯,Y):- ΡΠ°Π²ΡΠΏΠΈΡ(Π₯,Y).
ΡΠ°Π²ΡΠΏΠΈΡ([],[]).
ΡΠ°Π²ΡΠΏΠΈΡ([Π₯|L1],L2):- ΡΠ΄Π°Π»ΠΈΡΡ(Π₯,L2,LΠ), ΡΠ°Π²ΡΠΏΠΈΡ(L1,LΠ).
ΡΠ΄Π°Π»ΠΈΡΡ(Π₯,[Π₯|Y],Y).
ΡΠ΄Π°Π»ΠΈΡΡ(Π₯,[Y|L1],[Y|L2]):- ΡΠ΄Π°Π»ΠΈΡΡ(Π₯,L1,L2).
ΠΠ°Π½Π½ΡΠΉ ΠΏΡΠΈΠΌΠ΅Ρ, Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ, Π½Π΅ ΡΠ²Π»ΡΠ΅ΡΡΡ Π½Π°ΠΈΠ»ΡΡΡΠΈΠΌ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΠ΅ΠΌ ΡΠΊΠ²ΠΈΠ²Π°Π»Π΅Π½ΡΠ½ΠΎΡΡΠΈ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ², ΠΎΠ΄Π½Π°ΠΊΠΎ ΠΎΠ½ ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°Π΅Ρ, ΠΊΠ°ΠΊ Π½ΡΠΆΠ½ΠΎ ΡΠ°Π·ΠΌΠ΅ΡΠ°ΡΡ ΡΠ΅ΠΊΡΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡ. ΠΠ°ΠΌΠ΅ΡΠΈΠΌ, ΡΡΠΎ ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΡ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΡΠ³ΡΡΠΏΠΏΠΈΡΠΎΠ²Π°Π½Ρ Π²ΠΌΠ΅ΡΡΠ΅, Π° ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΡΠ°Π·Π΄Π΅Π»ΡΡΡΡΡ ΠΏΡΡΡΠΎΠΉ ΡΡΡΠΎΠΊΠΎΠΉ. ΠΡΡΠ³ΠΎΠ΅ ΡΠΎΠ³Π»Π°ΡΠ΅Π½ΠΈΠ΅, ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ ΠΏΡΠΈΠ΄Π΅ΡΠΆΠΈΠ²Π°ΡΡΡΡ ΠΌΠ½ΠΎΠ³ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΡ Π½Π° ΠΡΠΎΠ»ΠΎΠ³Π΅, - ΡΡΠΎ ΠΏΠΈΡΠ°ΡΡ ΠΊΠ°ΠΆΠ΄ΠΎΠ΅ ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΠ΅ Π½Π° ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎΠΉ ΡΡΡΠΎΠΊΠ΅, Π΅ΡΠ»ΠΈ ΠΎΠ½ΠΎ Π½Π° Π½Π΅ΠΉ ΡΠΌΠ΅ΡΠ°Π΅ΡΡΡ. ΠΡΠ»ΠΈ Π½Π΅Ρ, ΡΠΎ ΠΏΠΈΡΠ°ΡΡ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΡ ΠΈ Π·Π½Π°ΠΊ ':-' Π½Π° ΠΏΠ΅ΡΠ²ΠΎΠΉ ΡΡΡΠΎΠΊΠ΅, Π° ΠΊΠ°ΠΆΠ΄ΡΡ ΡΠ΅Π»Ρ Π² ΠΊΠΎΠ½ΡΡΠ½ΠΊΡΠΈΠΈ ΡΠ΅Π»Π΅ΠΉ ΠΏΠΈΡΠ°ΡΡ Ρ Π½ΠΎΠ²ΠΎΠΉ ΡΡΡΠΎΠΊΠΈ ΡΠΎ ΡΠ΄Π²ΠΈΠ³ΠΎΠΌ. ΠΠ»Ρ ΠΏΡΠΈΠΌΠ΅ΡΠ° ΡΠ°ΡΡΠΌΠΎΡΡΠΈΠΌ Π·Π°ΠΏΠΈΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΠΎΡΠΎΠΆΠ΄Π΅Π½ΠΈΡ Π²ΡΠ΅Ρ ΠΏΠ΅ΡΠ΅ΡΡΠ°Π½ΠΎΠ²ΠΎΠΊ ΡΠΏΠΈΡΠΊΠ°:
ΠΏΠ΅ΡΠ΅ΡΡ([],[]).
ΠΏΠ΅ΡΠ΅ΡΡ(L,[Π|Π’]):-
ΠΏΡΠΈΡΠΎΠ΅Π΄ΠΈΠ½ΠΈΡΡ(Y,[Π|U],L),
ΠΏΡΠΈΡΠΎΠ΅Π΄ΠΈΠ½ΠΈΡΡ(V,U,W),
ΠΏΠ΅ΡΠ΅ΡΡ(W,T).
Π ΡΡΠΎΠΌ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΠΈ ΠΏΠ΅ΡΠ΅ΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΡΠΏΠΈΡΠΊΠ° Π²ΡΠΏΠΎΠ»Π½ΡΠ΅Ρ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°Ρ ΠΏΡΠΈΡΠΎΠ΅Π΄ΠΈΠ½ΠΈΡΡ, Π° ΠΌΠ΅Ρ Π°Π½ΠΈΠ·ΠΌ Π²ΠΎΠ·Π²ΡΠ°ΡΠ° ΠΏΡΠΈ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΠΏΠΎΠΏΡΡΠΊΠ΅ Π²Π½ΠΎΠ²Ρ ΡΠΎΠ³Π»Π°ΡΠΎΠ²Π°ΡΡ ΡΠ΅Π»Π΅Π²ΠΎΠ΅ ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΡΡ(Π₯, Y) ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Π΅Ρ ΠΏΠΎΡΠΎΠΆΠ΄Π΅Π½ΠΈΠ΅ ΠΈΠ· X Π½ΠΎΠ²ΠΎΠΉ ΠΏΠ΅ΡΠ΅ΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ Y. Π‘Π»Π΅Π΄ΡΠ΅Ρ ΠΎΠ±ΡΠ°ΡΠΈΡΡ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅ Π½Π° ΡΠΏΠΎΡΠΎΠ± ΡΠ°Π·ΠΌΠ΅ΡΠ΅Π½ΠΈΡ Π½Π° ΡΡΡΠ°Π½ΠΈΡΠ΅ ΠΊΠΎΠ½ΡΡΠ½ΠΊΡΠΎΠ² Π²ΡΠΎΡΠΎΠ³ΠΎ ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΡ.
ΠΠ»Π°Π²Π½ΠΎΠ΅ β ΠΎΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ ΡΠ²ΠΎΠΉ Π²ΡΠ±ΠΎΡ Π½Π° ΠΊΠ°ΠΊΠΎΠΌ-Π»ΠΈΠ±ΠΎ ΡΠΎΠ³Π»Π°ΡΠΎΠ²Π°Π½Π½ΠΎΠΌ Π½Π°Π±ΠΎΡΠ΅ ΠΏΡΠ°Π²ΠΈΠ» ΠΎΡΠΎΡΠΌΠ»Π΅Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, Π° Π½Π° ΠΊΠ°ΠΊΠΎΠΌ β Π½Π΅ ΡΠ°ΠΊ ΡΠΆ Π²Π°ΠΆΠ½ΠΎ. ΠΠ°ΠΊ ΠΏΡΠ°Π²ΠΈΠ»ΠΎ, ΠΏΠΎΠ»Π΅Π·Π½ΠΎ Π΄ΠΎΠ±Π°Π²Π»ΡΡΡ ΠΊΠΎΠΌΠΌΠ΅Π½ΡΠ°ΡΠΈΠΈ, Π½Π°Π΄Π»Π΅ΠΆΠ°ΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ Π³ΡΡΠΏΠΏΠΈΡΠΎΠ²Π°ΡΡ ΡΠ΅ΡΠΌΡ, Π² ΡΠ»ΡΡΠ°Π΅ ΡΠΎΠΌΠ½Π΅Π½ΠΈΠΉ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΠΎ ΠΏΡΠΈΠΎΡΠΈΡΠ΅ΡΠ° Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ β ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΊΡΡΠ³Π»ΡΠ΅ ΡΠΊΠΎΠ±ΠΊΠΈ, Π° ΡΠ°ΠΊΠΆΠ΅ ΡΠ°Π·ΡΠΌΠ½ΠΎ ΡΠ°ΡΠΏΠΎΡΡΠΆΠ°ΡΡΡΡ ΠΏΡΡΡΡΠΌ ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²ΠΎΠΌ (ΠΏΡΠΎΠ±Π΅Π»Π°ΠΌΠΈ ΠΈ ΠΏΡΡΡΡΠΌΠΈ ΡΡΡΠΎΠΊΠ°ΠΌΠΈ). ΠΠΎΠΌΠΌΠ΅Π½ΡΠ°ΡΠΈΠΈ Π΄ΠΎΠ»ΠΆΠ½Ρ ΠΏΠΎΠ΄ΡΠΊΠ°Π·ΡΠ²Π°ΡΡ, ΠΊΠ°ΠΊ ΡΠ»Π΅Π΄ΡΠ΅Ρ ΠΈΠ½ΡΠ΅ΡΠΏΡΠ΅ΡΠΈΡΠΎΠ²Π°ΡΡ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΡ ΡΡΡΡΠΊΡΡΡ ΠΈΠ»ΠΈ ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΠΉ: Π² ΠΊΠ°ΠΊΠΎΠΌ ΠΏΠΎΡΡΠ΄ΠΊΠ΅ ΠΎΠ½ΠΈ ΠΏΠΎΡΡΡΠΏΠ°ΡΡ ΠΈ ΠΊΠ°ΠΊΠΈΠΌ ΡΡΡΡΠΊΡΡΡΠ°ΠΌ Π΄Π°Π½Π½ΡΡ (ΠΊΠΎΠ½ΡΡΠ°Π½ΡΠ°ΠΌ ΠΈΠ»ΠΈ ΡΡΡΡΠΊΡΡΡΠ°ΠΌ) ΠΎΠ½ΠΈ Π΄ΠΎΠ»ΠΆΠ½Ρ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΎΠ²Π°ΡΡ. ΠΠΎΠ»Π΅Π·Π½ΠΎ ΡΠ°ΠΊΠΆΠ΅ ΡΠΊΠ°Π·ΡΠ²Π°ΡΡ Π² ΠΊΠΎΠΌΠΌΠ΅Π½ΡΠ°ΡΠΈΡΡ , ΠΊΠ°ΠΊ Π΄ΠΎΠ»ΠΆΠ½Ρ ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ Π² ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ ΡΠΎΠ³Π»Π°ΡΠΎΠ²Π°Π½ΠΈΡ Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΡ Ρ Π±Π°Π·ΠΎΠΉ Π΄Π°Π½Π½ΡΡ .
Π ΠΏΠ»Π°Π½Π΅ ΠΎΠ±ΡΠ΅ΠΉ ΠΎΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΠΎΠ»Π΅Π·Π½ΠΎ ΡΠ°Π·Π΄Π΅Π»ΡΡΡ ΡΠ΅ΠΊΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π° Π±ΠΎΠ»Π΅Π΅ ΠΈΠ»ΠΈ ΠΌΠ΅Π½Π΅Π΅ Π·Π°ΠΌΠΊΠ½ΡΡΡΠ΅ ΡΠ°ΡΡΠΈ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΆΠ΅Π»Π°ΡΠ΅Π»ΡΠ½ΠΎ, ΡΡΠΎΠ±Ρ Π²ΡΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΠΏΠΈΡΠΊΠΎΠ² ΠΎΠΊΠ°Π·Π°Π»ΠΈΡΡ Π² ΠΎΠ΄Π½ΠΎΠΌ ΠΈ ΡΠΎΠΌ ΠΆΠ΅ ΡΠ°ΠΉΠ»Π΅. ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΡΠΎΠ»ΠΎΠ³Π°, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠ°Ρ Π±ΠΎΠ»Π΅Π΅ ΠΏΡΡΠΈ β Π΄Π΅ΡΡΡΠΈ ΠΏΡΠ°Π²ΠΈΠ», ΠΌΠΎΠΆΠ΅Ρ ΠΎΠΊΠ°Π·Π°ΡΡΡΡ ΡΡΡΠ΄Π½ΠΎΠΉ Π΄Π»Ρ ΠΏΠΎΠ½ΠΈΠΌΠ°Π½ΠΈΡ, ΠΏΠΎΡΡΠΎΠΌΡ ΠΏΡΡΠ΅ΠΌ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ Π±ΠΎΠ»Π΅Π΅ ΠΌΠ΅Π»ΠΊΠΈΡ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠΎΠ² ΠΏΠΎΠΏΡΡΠ°ΠΉΡΠ΅ΡΡ ΠΊΠ°ΠΊ ΠΌΠΎΠΆΠ½ΠΎ Π±ΠΎΠ»Π΅Π΅ Π΅ΡΡΠ΅ΡΡΠ²Π΅Π½Π½ΡΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ ΡΠ°Π·Π±ΠΈΡΡ Π΅Π΅ Π½Π° ΡΠ°ΡΡΠΈ. ΠΡΠ»ΠΈ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΌΠ½ΠΎΠ³ΠΎ ΡΠ°ΠΊΡΠΎΠ², ΡΠ°ΠΊΠΈΡ ΠΊΠ°ΠΊ ΠΏΡΠ°Π²ΠΈΠ»Π° ΡΠΏΡΠΎΡΠ΅Π½ΠΈΡ ΠΈΠ· ΡΠ°Π·Π΄. 7.12, ΡΠΎ Π²ΡΠ΅ ΡΡΠΈ ΡΠ°ΠΊΡΡ Π΄ΠΎΠ»ΠΆΠ½Ρ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡΡΡ Π² ΠΎΠ΄Π½ΠΎΠΌ ΡΠ°ΠΉΠ»Π΅. ΠΠΎΠ»ΡΡΠΎΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠ°ΠΊΡΠΎΠ² Π»Π΅Π³ΡΠ΅ ΡΠΈΡΠ°Π΅ΡΡΡ, ΡΠ΅ΠΌ Π±ΠΎΠ»ΡΡΠΎΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΏΡΠ°Π²ΠΈΠ», ΠΈ Ρ ΠΎΡΡ Π΄Π°ΠΆΠ΅ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΏΡΠ°Π²ΠΈΠ» ΠΌΠΎΠ³ΡΡ Π±ΡΡΡ ΡΡΡΠ΄Π½Ρ Π΄Π»Ρ ΠΏΠΎΠ½ΠΈΠΌΠ°Π½ΠΈΡ, ΠΌΠ½ΠΎΠ³ΠΈΠ΅ ΡΡΡΠ°Π½ΠΈΡΡ ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΠΎΠ³ΠΎ ΡΠ°ΠΊΡΠ° ΠΌΠΎΠ³ΡΡ Π½Π΅ Π²ΡΠ·Π²Π°ΡΡ Π·Π°ΡΡΡΠ΄Π½Π΅Π½ΠΈΠΉ, ΠΏΠΎΡΠΊΠΎΠ»ΡΠΊΡ ΡΠ°ΠΌΠ° ΡΠ΅ΠΌΠ°Π½ΡΠΈΠΊΠ° ΡΠ°ΠΊΡΠΎΠ² Π±ΠΎΠ»Π΅Π΅ ΠΏΡΠΎΡΡΠ°.
ΠΡΠ΅ ΠΎΠ΄ΠΈΠ½ ΠΌΠΎΠΌΠ΅Π½Ρ, ΠΊΠΎΡΠΎΡΡΠΉ Π²Π»ΠΈΡΠ΅Ρ Π½Π° Π»Π΅Π³ΠΊΠΎΡΡΡ ΡΡΠ΅Π½ΠΈΡ ΠΡΠΎΠ»ΠΎΠ³-ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ, - ΡΡΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠΎΡΠΊΠΈ Ρ Π·Π°ΠΏΡΡΠΎΠΉ (Β«ΠΈΠ»ΠΈΒ») ΠΈ Π²ΠΎΡΠΊΠ»ΠΈΡΠ°ΡΠ΅Π»ΡΠ½ΠΎΠ³ΠΎ Π·Π½Π°ΠΊΠ° (Β«ΠΎΡΡΠ΅ΡΠ΅Π½ΠΈΠ΅Β»). Π‘ ΠΏΡΠΎΠ±Π»Π΅ΠΌΠ°ΠΌΠΈ, ΡΠ²ΡΠ·Π°Π½Π½ΡΠΌΠΈ Ρ ΡΡΠ΅Π·ΠΌΠ΅ΡΠ½ΠΎ ΡΠΈΡΠΎΠΊΠΈΠΌ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ Β«ΠΎΡΡΠ΅ΡΠ΅Π½ΠΈΡΒ», ΠΌΡ ΠΏΠΎΠ·Π½Π°ΠΊΠΎΠΌΠΈΠ»ΠΈΡΡ Π² Π³Π». 4. ΠΡΠ΅Π³Π΄Π° ΡΠ»Π΅Π΄ΡΠ΅Ρ ΠΏΡΡΠ°ΡΡΡΡ ΠΎΠ±ΠΎΠΉΡΠΈΡΡ Π±Π΅Π· ';', Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ Π·Π° ΡΡΠ΅Ρ Π΄ΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΡΡ ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΠΉ. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΡΠ»Π΅Π΄ΡΡΡΠ°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°:
nospy(X):-
ΠΏΡΠΎΠ²Π΅ΡΠΈΡΡ(Π₯,Π€ΡΠ½ΠΊΡΠΎΡ,Π§ΠΈΡΠΡΠ³,Π), !,
(ΠΊΠΎΠ½ΡΡΡΠΎΡΠΊΠ°(_,Π€ΡΠ½ΠΊΡΠΎΡ,Π), !,
(ΠΎΡΠΊΠ°Π·(ΠΊΠΎΠ½ΡΡΡΠΎΡΠΊΠ°(ΠΠ°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ, Π€ΡΠ½ΠΊΡΠΎΡ, Π§ΠΈΡΠΡΠ³),_),
ΡΡΡΠΊΠΎΠ½ΡΡΡΠΎΡΠΊΡ(ΠΠ°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ, Π’Π΅Π»ΠΎ),
ΠΎΡΠΊΠ°Π·(3Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ, Π’Π΅Π»ΠΎ),
write('ΠΊΠΎΠ½ΡΡ.ΡΠΎΡΠΊΠ° Ρ ΡΠ΅ΡΠΌΠ°'), ΠΏΠ΅ΡΡΠ΅ΡΠΌ(Π€ΡΠ½ΠΊΡΠΎΡ, Π§ΠΈΡΠΡΠ³),
write(' ΡΠ΄Π°Π»Π΅Π½Π°.'),nl,
fail
; true
)
; write('HeΡ ΠΊΠΎΠ½ΡΡ.ΡΠΎΡΠ΅ΠΊ Π½Π° ΡΠ΅ΡΠΌΠ΅'),
write(X), put(46), nl
),
!.
Π³ΠΎΡΠ°Π·Π΄ΠΎ ΡΡΡΠ΄Π½Π΅Π΅ Π΄Π»Ρ ΠΏΠΎΠ½ΠΈΠΌΠ°Π½ΠΈΡ, Π½Π΅ΠΆΠ΅Π»ΠΈ:
nospy(X):-ΠΏΡΠΎΠ²Π΅ΡΠΈΡΡ(Π₯,Π€ΡΠ½ΠΊΡΠΎΡ,Π§ΠΈΡΠΡΠ³,Π),!,
ΠΏΠΎΠΏΡΡ_ΡΠ±Ρ(Π₯,Π€ΡΠ½ΠΊΡΠΎΡ,Π§ΠΈΡΠΡΠ³,Π).
ΠΏΠΎΠΏΡΡ_ΡΠ±Ρ(_,Π€ΡΠ½ΠΊΡΠΎΡ, Π§ΠΈΡΠΡΠ³,Π):- ΠΊΠΎΠ½ΡΡΡΠΎΡΠΊΠ°(_,Π€ΡΠ½ΠΊΡΠΎΡ,Π),!,ΡΠ±ΡΠΊΠΎΠ½ΡΡΡΠΎΡΠΊΡ(Π€ΡΠ½ΠΊΡΠΎΡ, Π§ΠΈΡΠΡΠ³, Π).
ΠΏΠΎΠΏΡΡ_ΡΠ±Ρ(Π₯,_,_,_):- write('HeΡ ΠΊΠΎΠ½ΡΡ.ΡΠΎΡΠ΅ΠΊ Π½Π° ΡΠ΅ΡΠΌΠ΅ '), write(X), put(46), nl,!.
ΡΠ±ΡΠΊΠΎΠ½ΡΡΡΠΎΡΠΊΡ(Π€ΡΠ½ΠΊΡΠΎΡ, Π§ΠΈΡΠΡΠ³, Π):-
ΠΎΡΠΊΠ°Π·(ΠΊΠΎΠ½ΡΡΡΠΎΡΠΊΠ°(ΠΠ°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ,Π€ΡΠ½ΠΊΡΠΎΡ, Π§ΠΈΡΠΡΠ³), _), ΡΡΡΠΊΠΎΠ½ΡΡΡΠΎΡΠΊΡ(ΠΠ°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ,Π’Π΅Π»ΠΎ), ΠΎΡΠΊΠ°Π·(3Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ, Π’Π΅Π»ΠΎ),
write('KoΠ½Ρp.ΡΠΎΡΠΊΠ° Ρ ΡΠ΅ΡΠΌΠ°'), ΠΏΠ΅ΡΡΠ΅ΡΠΌ(Π€ΡΠ½ΠΊΡΠΎΡ, Π§ΠΈΡΠΡΠ³), write(' ΡΠ΄Π°Π»Π΅Π½Π°.'), nl, fail.
ΡΠ±ΡΠΊΠΎΠ½ΡΡΡΠΎΡΠΊΡ (_,_,_).
ΠΊΠΎΡΠΎΡΠ°Ρ Π΄Π΅Π»Π°Π΅Ρ Π² ΡΠΎΡΠ½ΠΎΡΡΠΈ ΡΠΎ ΠΆΠ΅ ΡΠ°ΠΌΠΎΠ΅. ΠΡΠ»ΠΈ ΠΆΠ΅ Π²Π°ΠΌ Π΄Π΅ΠΉΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΠΎ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Β«ΠΈΠ»ΠΈΒ», ΡΠΎ ΠΏΠΎΠ»Π΅Π·Π½ΠΎ ΡΠ°ΠΊ ΠΎΡΠ³Π°Π½ΠΈΠ·ΠΎΠ²Π°ΡΡ ΡΠ΅ΠΊΡΡ ΠΊΠΎΠ½ΡΡΠ½ΠΊΡΠΈΠΈ ΡΠ΅Π»Π΅ΠΉ, ΡΡΠΎΠ±Ρ Β«ΠΈΠ»ΠΈΒ» Π½Π΅ ΡΠ΅ΡΡΠ»ΠΎΡΡ ΡΡΠ΅Π΄ΠΈ ΡΠ΅Π»Π΅ΠΉ. ΠΠΎΠ»Π΅Π·Π½ΠΎ ΡΠ°ΠΊΠΆΠ΅ Π·Π°ΠΊΠ»ΡΡΠΈΡΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠ΅ ΡΠ΅Π»ΠΈ Π² ΡΠΊΠΎΠ±ΠΊΠΈ, ΡΡΠΎΠ±Ρ ΡΠ²Π½ΠΎ Π²ΡΠ΄Π΅Π»ΠΈΡΡ ΠΎΠ±Π»Π°ΡΡΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ ΡΡΠΎΠ³ΠΎ Β«ΠΈΠ»ΠΈΒ».
ΠΠ° ΠΏΡΠΎΡΡΠΆΠ΅Π½ΠΈΠΈ Π²ΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ ΠΏΠΎΠ΄ΡΠ΅ΡΠΊΠΈΠ²Π°Π»Π°ΡΡ Π²Π°ΠΆΠ½ΠΎΡΡΡ ΡΠΌΠ΅Π½ΠΈΡ ΡΡΠΈΡΡΠ²Π°ΡΡ ΠΏΡΠΈ ΡΠ΅ΡΠ΅Π½ΠΈΠΈ ΠΌΠ½ΠΎΠ³ΠΈΡ Π·Π°Π΄Π°Ρ Π½Π°ΡΡΠ΄Ρ Ρ ΠΎΠ±ΡΠΈΠΌ ΠΏΡΠ°Π²ΠΈΠ»ΠΎΠΌ ΠΈ Π³ΡΠ°Π½ΠΈΡΠ½ΡΠ΅ ΡΡΠ»ΠΎΠ²ΠΈΡ. ΠΡΡΠ΄Ρ, Π³Π΄Π΅ ΡΡΠΎ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ, ΠΌΡ ΡΡΠ°ΡΠ°Π»ΠΈΡΡ ΡΠ°Π·ΠΌΠ΅ΡΡΠΈΡΡ Π³ΡΠ°Π½ΠΈΡΠ½ΡΠ΅ ΡΡΠ»ΠΎΠ²ΠΈΡ ΠΏΠ΅ΡΠ΅Π΄ Π²ΡΠ΅ΠΌΠΈ Π΄ΡΡΠ³ΠΈΠΌΠΈ ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΡΠΌΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ. ΠΡΠΎ Π²ΡΠ΄Π΅Π»ΡΠ΅Ρ Π³ΡΠ°Π½ΠΈΡΠ½ΡΠ΅ ΡΡΠ»ΠΎΠ²ΠΈΡ ΠΈ, ΠΊΡΠΎΠΌΠ΅ ΡΠΎΠ³ΠΎ, ΡΠ»ΡΠΆΠΈΡ Π² ΠΊΠ°ΠΊΠΎΠΉ-ΡΠΎ ΠΌΠ΅ΡΠ΅ Π·Π°ΡΠΈΡΠΎΠΉ ΠΎΡ ΡΠΈΠΊΠ»ΠΈΡΠ΅ΡΠΊΠΈΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΠΉ. ΠΠ΄Π½Π°ΠΊΠΎ Π±ΡΠ²Π°ΡΡ ΡΠ»ΡΡΠ°ΠΈ, ΠΊΠΎΠ³Π΄Π° ΠΆΠ΅Π»Π°ΡΠ΅Π»ΡΠ½ΠΎ ΡΠ°Π·ΠΌΠ΅ΡΠ°ΡΡ Π³ΡΠ°Π½ΠΈΡΠ½ΡΠ΅ ΡΡΠ»ΠΎΠ²ΠΈΡ ΠΏΠΎΡΠ»Π΅ Π²ΡΠ΅Ρ ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΠΉ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ. ΠΡΠ΅Π²ΠΈΠ΄Π½ΠΎ, ΡΡΠΎ ΠΏΡΠ°Π²ΠΈΠ»Π°-Β«Π»ΠΎΠ²ΡΡΠΊΠΈΒ», Ρ ΠΊΠΎΡΠΎΡΡΠΌΠΈ ΠΌΡ ΡΠΆΠ΅ ΡΡΠ°Π»ΠΊΠΈΠ²Π°Π»ΠΈΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΠ°Π·, Π½ΡΠΆΠ½ΠΎ ΡΠ°Π·ΠΌΠ΅ΡΠ°ΡΡ Π² ΠΊΠΎΠ½ΡΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ.