а?
viper31
На форуме 15 лет
Сообщения: 7380
Откуда: г. Тюмень
Авто: ВАЗ 2190
Так и знал что
Зyбиловод ответит первым в таком духе
Это кароче язык программирования
viper31
На форуме 15 лет
Сообщения: 7380
Откуда: г. Тюмень
Авто: ВАЗ 2190
Зyбиловод писал(а):
фигасе
+2171
Да пипец
Зyбиловод, ты скажи мне лучше, в 99ой в плафоне освещения по центру потолка какая (ие) лампочки?
Зyбиловод,
NWorker93
На форуме 19 лет
Сообщения: 2224
Откуда: Иваново -> Москва
Авто: Морской Свин ВАГ-ино 1.4 TSI
s-t-r-i-k-e-r
Интересно, зачем тебе понадобился этот окаменелый кал мамонта?
NWorker93, да надо тут, прогу писал, косяк
Mihalych78
На форуме 14 лет
Сообщения: 4939
Откуда: город задымленных балконов
Авто: АКПП, Робот, Гнутая рама
апчем тут? опять че то лижите?
Косолапый
На форуме 15 лет
Сообщения: 139
Авто: 21093 карб 1997--> рЫно лохан
Васю-кабана с пакли знает кто?
Gastello
На форуме 15 лет
Сообщения: 161
Откуда: Москва, Петрашка
Авто: ВАЗ 21053 БСЗ 04г, VW Golf Plus, VW Passat B6 сарай 07г.
Я с лиспом тока в автокаде работал
PachaG
На форуме 17 лет
Сообщения: 751
Откуда: Город-герой Тула
Авто: Priora
NWorker93 писал(а):окаменелый кал мамонта
ну не скажи
PachaG
На форуме 17 лет
Сообщения: 751
Откуда: Город-герой Тула
Авто: Priora
Цитата:Лисп является вторым в истории (после Фортрана) высокоуровневым языком программирования, который используется по сей день. Создатель Лиспа Джон Маккарти занимался исследованиями в области искусственного интеллекта и созданный им язык по сию пору является одним из основных средств моделирования различных аспектов ИИ.
Короче на всякий случай кину, проблемка та глупая
Программку рисования фрактала Дракон Хартера — Хейтуэя надо на лиспе
Вот набросок:
Код:(DEFUN PAINT(X1 Y1 X2 Y2 K)
(SETQ A(LIST X1 Y1))
(SETQ B(LIST X2 Y2))
;(COMMAND "ОТРЕЗОК"A B)
(IF (= k 0)
(PROGN
(COMMAND "ОТРЕЗОК"A B)
exit
)
)
; (DRAGON)
(SETQ S1 (+ X1 X2))
(SETQ S2 (- Y2 Y1))
(SETQ S11 (/ S1 2))
(SETQ S22 (/ S2 2))
(SETQ TX (+ S11 S22))
(SETQ Z1 (+ Y1 Y2))
(SETQ Z2 (- X2 X1))
(SETQ Z11 (/ Z1 2))
(SETQ Z22 (/ Z2 2))
(SETQ TY (- Z11 Z22))
(SETQ KK(- K 1))
(PAINT X2 Y2 TX TY KK)
(PAINT X1 Y1 TX TY KK)
)
(DEFUN DRAGON()
;(setq X1 30 X2 30 Y1 30 Y2 300 K 0)
;(Paint X1 Y1 X2 Y2 K)
(PAINT 100 150 500 150 8)
)
А вот на Delphi в инете нашёл.
Косяк весь с рекурсией, вот exit там есть, в лиспе не сделал, помогите пожалуйста
Код:procedure Dragon(x1,y1,x2,y2,Depth:Longint;canv:TCanvas);
procedure Paint(x1,y1,x2,y2,k:Longint);
var tx,ty:Longint;
begin
if k=0 then
begin
canv.MoveTo(x1,y1);
canv.LineTo(x2,y2);
Exit; <===================== !!!
end;
tx:=(x1+x2) div 2+(y2-y1) div 2;
ty:=(y1+y2) div 2-(x2-x1) div 2;
Paint(x2,y2,tx,ty,k-1);
Paint(x1,y1,tx,ty,k-1);
end;
begin
Paint(x1,y1,x2,y2,Depth);
end;
PachaG
На форуме 17 лет
Сообщения: 751
Откуда: Город-герой Тула
Авто: Priora
нет тут наверно пишущих на лиспе
Dron_spb
На форуме 18 лет
Сообщения: 2816
Откуда: из колхоза
Авто: Шкода рапид на томате
Судя по наброску буквы я такие как в Лиспе как нефиг могу писать, но что то мне кажется смысла будет маловато
Vlad B
Забанен
На форуме 18 лет
Сообщения: 8757
Откуда: Южная сторона Невы
Авто: Hyundai Solaris 2017 1.6AT, Skoda Rapid 1.6 110Hp AT6
Жесть, тут же без поллитра не разберешси.
idd
На форуме 19 лет
Сообщения: 4422
Откуда: Санкт-Петербург
Авто: R.Logan 1.6, 2009г.в.
Vlad B писал(а):Жесть, тут же без поллитра не разберешси.
да и с пол-литром тоже....
но буквы действительно знакомые....
Bird64
На форуме 18 лет
Сообщения: 1157
Откуда: "Мурлындия" ;-) -> 50rus
Авто: ЗАЗ-968МР->АЗЛК2140->2106-> ВАЗ21093 ->импортные пои..ки->пенсмобиль импорт.
realist
На форуме 21 лет
Сообщения: 928
Откуда: Москва
Авто: ВАЗ 2105 -> Renault 19 Europe -> VW Passat B3 -> VW Polo
я, конечно, по лиспу не спец (хотя и учил когда-то в инсте), но первый беглый взгляд подсказывает мне, что во фрагменте на дельфях обе функции имеют по несколько параметров, а на лиспе Dragon оных почему-то не имеет (не говоря уже о том, что в дельфях Paint "сидит" внутри Dragon-а, а на лиспе - наоборот...)
ИНФОРМАЦИЯ ПО ИКОНКАМ И ВОЗМОЖНОСТЯМ
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Вы не можете вкладывать файлы
Вы можете скачивать файлы