Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Программирование [игнор отключен] [закрыт для гостей] / [Lisp Mit-Gnu Scheme] / 19 сообщений из 19, страница 1 из 1
08.05.2008, 14:09
    #35302491
rlyus
rlyus
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[Lisp Mit-Gnu Scheme]
На форуме уже есть моя задачка, но мне нужно написать ее на Mit-Gnu Scheme:Посчитать по списку количество каждого из встречаемых в нем элементов. Вот код который на чистом Lisp:

(defun mip_MakeUniqueMembersOfListWithCount
(lst / OutList head countelt)
(while lst
(setq head (car lst)
countelt 0
lst (vl-remove-if
'(lambda (pt)
(if (equal pt head 1e-6)
(setq countelt (1+ countelt))
nil
)
)
lst
)
OutList (append OutList (list (cons head countelt)))
)
)
OutList
)
Помогите пожалуйста в этом разобраться!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.05.2008, 13:21
    #35304343
Gluk (Kazan)
Gluk (Kazan)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[Lisp Mit-Gnu Scheme]
Хмм странно :(

А мне все уши прожужжали, что LISP-программеры настолько суровы, что все делают САМИ
Видать наврали

P.S. Only Human (c)
P.P.S. Луговского попросите, он сделает :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2008, 00:40
    #35307778
rlyus
rlyus
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[Lisp Mit-Gnu Scheme]
Ну,неужели мне никто не ПОМОЖЕТ???!!!!!!!!!!!!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2008, 08:53
    #35307948
mayton
mayton
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[Lisp Mit-Gnu Scheme]
rlyusНу,неужели мне никто не ПОМОЖЕТ???!!!!!!!!!!!!!!
Поможут. Только расскажи, чем Scheme отличается от Lisp.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2008, 18:01
    #35309900
rlyus
rlyus
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[Lisp Mit-Gnu Scheme]
Сама не знаю,поэтому спрашиваю!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2008, 18:17
    #35309931
mayton
mayton
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[Lisp Mit-Gnu Scheme]
Среда разработки Scheme есть?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2008, 18:55
    #35309989
rlyus
rlyus
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[Lisp Mit-Gnu Scheme]
Да! Конечно есть! Просто я идею всего этого не понимаю! Скорее всего моя задачка это максимум 5 строчек на Scheme, но чтобы их написать нужно хоть что-нибудь понимать! Мне просто срочно нужна помощь!!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2008, 19:01
    #35310005
mayton
mayton
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[Lisp Mit-Gnu Scheme]
Вставляй свой исходник в Shcheme и выполняй! И говори, какие ошибки выдаёт.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2008, 19:16
    #35310027
rlyus
rlyus
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[Lisp Mit-Gnu Scheme]
В Scheme даже служебные слова все свои, и сравнить элементы как в чистом Lisp нельзя и куча всего другого, но вот что будет если запустить:
;Loading "1.txt"
;Syntactic keyword may not be used as an expression: #f
;To continue, call RESTART with an option number
;(RESTART 1) => Return to read-eval-print level 1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.05.2008, 07:51
    #35310520
Gluk (Kazan)
Gluk (Kazan)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[Lisp Mit-Gnu Scheme]
rlyusи сравнить элементы как в чистом Lisp нельзя

Да ты шо ???
equal? пробувал ?

P.S. А что такое ЧИСТЫЙ Lisp ???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.05.2008, 12:00
    #35311216
rlyus
rlyus
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[Lisp Mit-Gnu Scheme]
Блин, просто помочь нельзя?! Без лишних вопросов!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.05.2008, 12:52
    #35311465
Gluk (Kazan)
Gluk (Kazan)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[Lisp Mit-Gnu Scheme]
rlyusБлин, просто помочь нельзя?! Без лишних вопросов!

Нет заинтересованности :(
Студент нонече ленивый пошел и неблагодарный

P.S. Добро бы вопросы осмысленные были ... ан нет порубить и замесить (c)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.05.2008, 13:01
    #35311503
rlyus
rlyus
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[Lisp Mit-Gnu Scheme]
Как вопросы могут быть осмысленными если я не могу понять идею этого языка, а зачет та горит!
Если можешь, ПОМОГИ! ПОЖАЛУЙСТА! Ну реально больше не могу с этим мучаться! Ну бывает же так когда ну не идет этот предмет, хоть тресни!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.05.2008, 14:08
    #35311727
Gluk (Kazan)
Gluk (Kazan)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[Lisp Mit-Gnu Scheme]
Вот так например:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
(define (count x)
  (define (add r l x)
    (cond ((null? l) (cons (list x  1 ) r))
          ((equal? (caar l) x) (cons (list x (+  1  (cadar l)))
                                     (append r (cdr l))))
          (else (add (cons (car l) r) (cdr l) x)))
  )
  (define (iter r x)
    (cond ((null? x) r)
          (else (iter (add '() r (car x)) (cdr x))))
  )
  (iter '() x)
)

Очень сильно сомневаюсь, что от этого тебе стало легче
В сессию надо заниматься, а не в зачет (или поискать более другую специальность)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.05.2008, 14:46
    #35311865
MasterZiv
MasterZiv
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[Lisp Mit-Gnu Scheme]
rlyus пишет:

> Как вопросы могут быть осмысленными если я не могу понять идею этого
> языка, а зачет та горит!

А я вот понял другую идею - зачет твой уже сгорел.
Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.05.2008, 15:07
    #35311964
Gluk (Kazan)
Gluk (Kazan)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[Lisp Mit-Gnu Scheme]
MasterZiv
А я вот понял другую идею - зачет твой уже сгорел.


Фигня, наднях соседка принесла курсовик на прологе (учится в каком то економическом)
говорю нет под рукой пролога проверить - спрашивает, а что такое пролог ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.05.2008, 19:07
    #35312835
apapacy
apapacy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[Lisp Mit-Gnu Scheme]
Тут недавно поднимался вопрос, а зачем непрограммисту нужны эти Вот страсти.
И никто убедительно не ответил. Добавили бы часов по спец предметам или физо.

Кстати, дошел смысл поговорки: делите все на 16.

Это непрограммиста учили как переводить числа в 16-ричную систму:
делите на 16, и опять на 16. Кроме поговорки от таких знаний ноль на выходе.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2008, 10:10
    #35316122
MasterZiv
MasterZiv
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[Lisp Mit-Gnu Scheme]
apapacy пишет:

> Тут недавно поднимался вопрос, а зачем непрограммисту нужны эти Вот страсти.
> И никто убедительно не ответил. Добавили бы часов по спец предметам или

Ну вот не скажи. Я вот скоро буду искать возможно программистов лисповых.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2008, 10:51
    #35316277
Gluk (Kazan)
Gluk (Kazan)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[Lisp Mit-Gnu Scheme]
MasterZiv
> Тут недавно поднимался вопрос, а зачем непрограммисту нужны эти Вот страсти.
> И никто убедительно не ответил. Добавили бы часов по спец предметам или

Ну вот не скажи. Я вот скоро буду искать возможно программистов лисповых.


ты невнимательно прочитал вопрос :)
речь идет про непрогрммистов лисповых

бухгалтерах там, икономистах
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Программирование [игнор отключен] [закрыт для гостей] / [Lisp Mit-Gnu Scheme] / 19 сообщений из 19, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 477ms
Закрыть
start [/forum/topic.php?fid=16&tablet=1&tid=1345289]:
 0ms
get settings:
 5ms
get forum list:
 16ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 171ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 245ms
total:  477ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]