flip - Ночь [entries|archive|friends|userinfo]
flip

[ Нет у меня сайта | My Website ]
[ Туда! | Я не знаю как это переводиться ]
[ archive | Архивчег ]

Ночь [Oct. 10th, 2006|02:10 am]
Previous Entry Add to Memories Tell A Friend Track New Comments Next Entry
Опять бессоница, спать нехочеться, делать ничего не хочеться, пол вечера решал задачку на Lisp, дурной язык на делфи бы сделал за 3 минуты. а у этой сволочи нет нормального цикла, или я просто не нашёл как он описываеться. а может я просто тупой.
Вот задачка:
Используя функцию DEFUN определить функцию f (a x), где a-S-выражение, а x - список, состоящий из 2-3 элементов, которая удаляет из списка x первый элемент, если хотя бы один из элементов равен a, и не изменяет x в остальных случаях.
LinkReply

Comments:
From: (Anonymous)
2006-10-10 01:44 pm (UTC)

Политый шоколадом

(Link)

Че это за хрень?
[User Picture]From: [info]flip
2006-10-10 09:38 pm (UTC)

Re: Политый шоколадом

(Link)

если не знаешь то не так тогда важно что это, вкратце функцыональный язык програмирования.
[User Picture]From: [info]flip
2006-10-10 09:37 pm (UTC)

(Link)

Решил, глупо в лоб но решил.
(defun f(a x) (if (eq a (car x)) (cdr x) (if (eq a (cadr x)) (cdr x) (if (eq a (caddr x)) (cdr x) x))))
From: (Anonymous)
2006-10-11 06:47 pm (UTC)

Блять, Алешко, ты ебнулся такое писать!

(Link)

Сабж