Π”ΠΈΠΏΠ»ΠΎΠΌΡ‹, курсовыС, Ρ€Π΅Ρ„Π΅Ρ€Π°Ρ‚Ρ‹, ΠΊΠΎΠ½Ρ‚Ρ€ΠΎΠ»ΡŒΠ½Ρ‹Π΅...
Брочная ΠΏΠΎΠΌΠΎΡ‰ΡŒ Π² ΡƒΡ‡Ρ‘Π±Π΅

Π€ΡƒΠ½ΠΊΡ†ΠΈΠΎΠ½Π°Π»ΡŒΠ½ΠΎΠ΅ ΠΈ логичСскоС ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠΈΡ€ΠΎΠ²Π°Π½ΠΈΠ΅

Лабораторная Ρ€Π°Π±ΠΎΡ‚Π°ΠŸΠΎΠΌΠΎΡ‰ΡŒ Π² Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠΈΠ£Π·Π½Π°Ρ‚ΡŒ ΡΡ‚ΠΎΠΈΠΌΠΎΡΡ‚ΡŒΠΌΠΎΠ΅ΠΉ Ρ€Π°Π±ΠΎΡ‚Ρ‹

DEFUN — ΠΏΠΎΡ€ΠΎΠΆΠ΄Π°ΡŽΡ‰Π°Ρ функция, позволяСт ΡΠΎΠ·Π΄Π°Π²Π°Ρ‚ΡŒ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ. Π€ΡƒΠ½ΠΊΡ†ΠΈΠΎΠ½Π°Π»ΡŒΠ½ΠΎΠ΅ ΠΈ Π»ΠΎΠ³ΠΈΡ‡Π΅ΡΠΊΠΎΠ΅ ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠΈΡ€ΠΎΠ²Π°Π½ΠΈΠ΅. ОписаниС Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΉ ОписаниС стандартных Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΉ. ОписаниС ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΡΠΊΠΈΡ… Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΉ. ОписаниС Π°Π»Π³ΠΎΡ€ΠΈΡ‚ΠΌΠ° Ρ€Π΅ΡˆΠ΅Π½ΠΈΡ Π·Π°Π΄Π°Ρ‡ΠΈ. Cons (car w) (drop-eventh (cdr w) t))))). Http://homelisp.ru/help/lisp.html. Defun drop-eventh (w &optional f). F (drop-eventh (cdr w) nil)). Код ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΡ‹. Drop-eventh `(a b c d… Π§ΠΈΡ‚Π°Ρ‚ΡŒ Π΅Ρ‰Ρ‘ >

Π€ΡƒΠ½ΠΊΡ†ΠΈΠΎΠ½Π°Π»ΡŒΠ½ΠΎΠ΅ ΠΈ логичСскоС ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠΈΡ€ΠΎΠ²Π°Π½ΠΈΠ΅ (Ρ€Π΅Ρ„Π΅Ρ€Π°Ρ‚, курсовая, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½Ρ‚Ρ€ΠΎΠ»ΡŒΠ½Π°Ρ)

Π€ΡƒΠ½ΠΊΡ†ΠΈΠΎΠ½Π°Π»ΡŒΠ½ΠΎΠ΅ ΠΈ Π»ΠΎΠ³ΠΈΡ‡Π΅ΡΠΊΠΎΠ΅ ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠΈΡ€ΠΎΠ²Π°Π½ΠΈΠ΅

1. ЦСль Ρ€Π°Π±ΠΎΡ‚Ρ‹

ОзнакомлСниС с Π»ΡΠΌΠ±Π΄Π°-выраТСниями ΠΈ Ρ„ункциями языка Lisp.

Π—Π°Π΄Π°Π½ΠΈΠ΅ Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Π°Ρ‚ΡŒ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΡŽ, ΠΏΡ€ΠΎΠΈΠ·Π²ΠΎΠ΄ΡΡ‰ΡƒΡŽ ΡƒΠ΄Π°Π»Π΅Π½ΠΈΠ΅ ΠΈΠ· ΠΈΡΡ…ΠΎΠ΄Π½ΠΎΠ³ΠΎ списка всСх элСмСнтов с Ρ‡Π΅Ρ‚Π½Ρ‹ΠΌΠΈ Π½ΠΎΠΌΠ΅Ρ€Π°ΠΌΠΈ.

НапримСр:

Π’Ρ…ΠΎΠ΄: (a b c d e).

Π’Ρ‹Ρ…ΠΎΠ΄: (a c e).

ДопускаСтся ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ Π»ΡŽΠ±Ρ‹Π΅ ΠΏΡ€Π΅Π΄ΠΎΠΏΡ€Π΅Π΄Π΅Π»Ρ‘Π½Π½Ρ‹Π΅ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ Lisp.

2. ОписаниС Π°Π»Π³ΠΎΡ€ΠΈΡ‚ΠΌΠ° Ρ€Π΅ΡˆΠ΅Π½ΠΈΡ Π·Π°Π΄Π°Ρ‡ΠΈ

3. ОписаниС Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΉ ОписаниС стандартных Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΉ

DEFUN — ΠΏΠΎΡ€ΠΎΠΆΠ΄Π°ΡŽΡ‰Π°Ρ функция, позволяСт ΡΠΎΠ·Π΄Π°Π²Π°Ρ‚ΡŒ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ.

COND — На Π²Ρ…ΠΎΠ΄ ΠΎΠ½Π° ΠΏΡ€ΠΈΠ½ΠΈΠΌΠ°Π΅Ρ‚ n — ΠΏΠ°Ρ€ ΠΏΡ€Π΅Π΄ΠΈΠΊΠ°Ρ‚ — Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅. Π‘Π½Π°Ρ‡Π°Π»Π° ΠΏΡ€ΠΎΡΠΌΠ°Ρ‚Ρ€ΠΈΠ²Π°ΡŽΡ‚ΡΡ всС ΠΏΡ€Π΅Π΄ΠΈΠΊΠ°Ρ‚Ρ‹ Π² ΠΏΠΎΡ€ΡΠ΄ΠΊΠ΅ слСдования, ΠΈ Π΅ΡΠ»ΠΈ Ρ…ΠΎΡ‚ΡŒ ΠΎΠ΄ΠΈΠ½ ΠΈΠ· Π½ΠΈΡ… истинный, Ρ‚ΠΎ cond Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅Ρ‚ Ρ€Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚, связанный с ΡΡ‚ΠΈΠΌ ΠΏΡ€Π΅Π΄ΠΈΠΊΠ°Ρ‚ΠΎΠΌ. Если Π½ΠΈ ΠΎΠ΄ΠΈΠ½ ΠΏΡ€Π΅Π΄ΠΈΠΊΠ°Ρ‚ Π½Π΅ Π±Ρ‹Π» истинным, Ρ‚ΠΎ ΠΎΠ½Π° Π²Π΅Ρ€Π½Π΅Ρ‚ NIL.

NULL — Если Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ СдинствСнного Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚Π° Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ Π΅ΡΡ‚ΡŒ Nil, Ρ‚ΠΎ Ρ„ункция Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅Ρ‚ T. Π’ΠΎ Π²ΡΠ΅Ρ… ΠΎΡΡ‚Π°Π»ΡŒΠ½Ρ‹Ρ… случаях (ΠΊΠΎΠ³Π΄Π° Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚Π° ΠΠ• Π΅ΡΡ‚ΡŒ Nil, функция Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅Ρ‚ Nil.

описаниС ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΡΠΊΠΈΡ… Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΉ.

Drop — eventh — функция ΡƒΠ΄Π°Π»ΡΡŽΡ‰Π°Ρ Ρ‡Ρ‘Ρ‚Π½Ρ‹Π΅ Π΅Π»Π΅ΠΌΠ΅Π½Ρ‚Ρ‹ ΠΈΠ· ΡΠΏΠΈΡΠΊΠ°.

Код ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΡ‹

(defun drop-eventh (w &optional f)

(cond ((null w) nil)

(f (drop-eventh (cdr w) nil))

((cons (car w) (drop-eventh (cdr w) t)))))

(drop-eventh `(a b c d e))

Π’Ρ‹Π²ΠΎΠ΄ Π°Π»Π³ΠΎΡ€ΠΈΡ‚ΠΌ функция ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ° Π’ Π΄Π°Π½Π½ΠΎΠΉ Ρ€Π°Π±ΠΎΡ‚Π΅ Π±Ρ‹Π»ΠΈ ΠΈΠ·ΡƒΡ‡Π΅Π½Ρ‹ лямбда-выраТСния ΠΈ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ языка Lisp, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ ΠΌΠΎΠ³ΡƒΡ‚ Π±Ρ‹Ρ‚ΡŒ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Π½Ρ‹ Π² Π±Π°Π·Π°Ρ… Π΄Π°Π½Π½Ρ‹Ρ… Π±ΠΎΠ»ΡŒΠ½ΠΈΡ† ΠΈ ΠΈΠ½ΡΡ‚ΠΈΡ‚ΡƒΡ‚ΠΎΠ².

1. http://lisper.ru

2. http://homelisp.ru/help/lisp.html

ΠŸΠΎΠΊΠ°Π·Π°Ρ‚ΡŒ вСсь тСкст
Π—Π°ΠΏΠΎΠ»Π½ΠΈΡ‚ΡŒ Ρ„ΠΎΡ€ΠΌΡƒ Ρ‚Π΅ΠΊΡƒΡ‰Π΅ΠΉ Ρ€Π°Π±ΠΎΡ‚ΠΎΠΉ