Да нету там никакой «слабой связности» вы путаетесь в определениях.
Я программировал под Юникс на С писал свой командный интерпретатор… Ботал ее изнутри.
Юникс хорош только тем, что устроен он чрезвычайно просто и понятно, что позволяет четко его настраивать и управлять… Вы явно не понимает, что такое «слобая связанность»…
Мне нужно сложное (из хотя бы нескольких сот тысяч строк) приложение на лиспе, которое является многопоточным и лучше его конкурентов на других языках (Или по крайней мере конкурентоспособно).
Это я решил промолчать, но если вы настаиваете, то мой ответный вопрос: «Вы предлагает мне написать сперва себе язык? А потом тока кодить?) Увольте..».
Я вас огорчу, хорошего кода на Лиспе не бывает…
(Я могу прислать прожку с «хорошим кодом», но она строк на 700 (Елиза (типа психолог)) и ее вы уж точно не поймете)
По поводу что делать всеми нами любыми jquery я имею представления.
(Только зачем вот вы посылаете за архивированный код на js (оптимизированный под браузеры и медленный инет))
Код — это набор команд! которые выполняются на данных.
Вы говорите, как человек, далекий от программирования.
Я программировал под Юникс на С писал свой командный интерпретатор… Ботал ее изнутри.
Юникс хорош только тем, что устроен он чрезвычайно просто и понятно, что позволяет четко его настраивать и управлять… Вы явно не понимает, что такое «слобая связанность»…
Быдло код на Java понятнее софт-кода на Lisp-e (опять таки опыт)
З.Ы. Я сомневаюсь, что вы софт-кодите больше меня… Иначе вам бы был противен Лисп (ввиду того, что он этого не позволяет..)
И чем вам ненравится наследование и ООП модель?
(Прекрасный способ для управления сложность приложения… )
НО ту что я написал, и реализует минимум (скорее всего как и та на 200строк). Пишется на Jave-e (быдлокодом в функции мейн) в 100-150строк.
И этот код на яве, несмотря на свою порочность, будет понятнее чем лисповый(красиво оформленный).
Элиза на Jave (примитивная такая) пишется в 100-150 строк (быдлокодом конечно)
Да даже если так, дофига приложении у которых больше миллиона строка… вы чего....(Не на лиспе имею ввиду)
А я не хочу ничего от вас.
Просто вы пытаесь меня убедить, что лисп является таким же понятным как Си++…
Мне кажется это не правильным… (Исходя из горького опыта).
Мне нужно сложное (из хотя бы нескольких сот тысяч строк) приложение на лиспе, которое является многопоточным и лучше его конкурентов на других языках (Или по крайней мере конкурентоспособно).
Неее не убедили, я не вижу структры приложения => разбираться будет крайне сложно…
jquery — есть в нормально виде и там все ясно.
Вот элиза: stream.ifolder.ru/17012788. Все же я думаю, быстрее будет вам ее занова написать =)
Ссылку кинуть на условие?)
А вообще меня дико интересует, как на лиспе написать писать много поточные приложение (сложнее helloworld-a).
caar
caaar
caaaar
...?)
Делу это не поможет (Пример реализует чрезвычайно простую вещь)
(Я могу прислать прожку с «хорошим кодом», но она строк на 700 (Елиза (типа психолог)) и ее вы уж точно не поймете)
По поводу что делать всеми нами любыми jquery я имею представления.
(Только зачем вот вы посылаете за архивированный код на js (оптимизированный под браузеры и медленный инет))
(require (lib "list.ss" "srfi" "1"))
(define (get-raising lst)
(define new_lst (fold (lambda (el iter)
(if (> el (car (cdr (car (cdr iter)))))
(cons (car iter)
(cons
(cons (car (car (cdr iter))) (cons el (cons (+ 1 (car (cdr (cdr (car (cdr iter)))))) '())))
'()))
(if (> (- (car (cdr (cdr (car (cdr iter))))) (car (car (cdr iter)))) (car (cdr (car iter))) )
(cons
(cons (car (car (cdr iter)))
(cons (- (car (cdr (cdr (car (cdr iter))))) (car (car (cdr iter)))) '()))
(cons
(cons (car (cdr (cdr (car (cdr iter)))))
(cons el (cons (+ 1 (car (cdr (cdr (car (cdr iter)))))) '())))
'()))
(cons
(car iter)
(cons
(cons (car (cdr (cdr (car (cdr iter)))))
(cons el (cons (+ 1 (car (cdr (cdr (car (cdr iter)))))) '())))
'()))
)))
'((0 0)(1 0 1))
lst ))
(if (> (- (car (cdr (cdr (car (cdr new_lst))))) (car (car (cdr new_lst)))) (car (cdr (car new_lst))))
(display (cons (car (car (cdr new_lst))) (cons (- (car (cdr (cdr (car (cdr new_lst))))) (car (car (cdr new_lst)))) '() )))
(display (car new_lst))))
(get-raising (read))