Форум программистов, компьютерный форум, киберфорум
Lisp
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
2 / 3 / 1
Регистрация: 29.11.2012
Сообщений: 80

Сколько всего атомов в этом S-выражении?

22.04.2015, 09:16. Показов 1352. Ответов 12
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Даны атом и S-выражение. Определить функцию, вычисляющую, сколько всего
атомов в этом S-выражение исключая заданный атом.
Например если дано: "2 (1 2 (3 (2 4)) (5 2))", ответом будет 4
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
22.04.2015, 09:16
Ответы с готовыми решениями:

Даны атом и S-выражение. Определить функцию, вычисляющую, сколько всего атомов в этом S-выражение исключая заданный атом
Даны атом и S-выражение. Определить функцию, вычисляющую, сколько всего атомов в этом S-выражение исключая заданный атом. Например:...

Сколько всего программ на Java написано в этом мире?
Привет! Я прекрасно понимаю всю глупость совего вопроса, но такая информация мне бы очень пригодилась при написании диплома. Иногда на...

Трудность в определении атомов в выражении
Есть данный текст- , нужно в тексте выделить простые предложения, обозначив их как атомы и затем представить каждое утверждение в виде...

12
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38173 / 21108 / 4307
Регистрация: 12.02.2012
Сообщений: 34,710
Записей в блоге: 14
22.04.2015, 09:22
Что-нибудь сам пробовал?
0
2 / 3 / 1
Регистрация: 29.11.2012
Сообщений: 80
22.04.2015, 10:51  [ТС]
Catstail, пробовал, не удалось
0
1075 / 968 / 113
Регистрация: 04.11.2012
Сообщений: 1,013
22.04.2015, 11:11
А на глаз посчитать сколько двоек в списке, четыре?
0
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38173 / 21108 / 4307
Регистрация: 12.02.2012
Сообщений: 34,710
Записей в блоге: 14
22.04.2015, 12:17
Lisp
1
2
3
4
5
6
7
8
9
10
11
(defun num-atoms (lst a)
  (cond ((null lst) 0)
        ((eq a (car lst)) (+ 1 (num-atoms (cdr lst) a)))
        ((listp (car lst)) (+ (num-atoms (car lst) a) (num-atoms (cdr lst) a)))
        (t (num-atoms (cdr lst) a))))  
 
==> num-atoms
 
(num-atoms '(1 2 (3 (2 4)) (5 2)) 2)
 
==> 3
1
 Аватар для castorsky
1978 / 1082 / 87
Регистрация: 29.11.2013
Сообщений: 3,353
22.04.2015, 12:38
Цитата Сообщение от Lambdik Посмотреть сообщение
А на глаз посчитать сколько двоек в списке, четыре?
"исключая заданный атом"
Lisp
1
2
3
4
5
6
> ;; racket-lang.org
(define (foo a lst)
  (length (remove* `(,a) (flatten lst))))
> (foo 2 '(1 2 (3 (2 4)) (5 2)))
4
>
2
1075 / 968 / 113
Регистрация: 04.11.2012
Сообщений: 1,013
22.04.2015, 16:43
Цитата Сообщение от castorsky Посмотреть сообщение
"исключая заданный атом"
а, ясно
Lisp
1
2
3
4
5
6
7
8
9
10
11
12
(defun cntExcept (a ls)
  (if ls
      (if (atom (car ls))
          (if (eql (car ls) a)
              (cntExcept a (cdr ls))
              (+ 1 (cntExcept a (cdr ls))))
          (+ (cntExcept a (car ls))
             (cntExcept a (cdr ls))))
      0))
 
> (cntExcept 2 '(1 2 (3 (2 4)) (5 2 3) 7))
6
PS. Зачем я это решал?!
2
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38173 / 21108 / 4307
Регистрация: 12.02.2012
Сообщений: 34,710
Записей в блоге: 14
22.04.2015, 17:14
Цитата Сообщение от Lambdik Посмотреть сообщение
Зачем я это решал?!
- для души...
2
 Аватар для _sg
4709 / 4404 / 380
Регистрация: 12.05.2012
Сообщений: 3,101
22.04.2015, 22:40
Lisp
1
2
3
4
5
6
7
8
9
(defun count-exept (a w &optional (n 0))
  (cond ((null w) n)
        ((atom w) (if (not (eq w a)) (1+ n) n))
        ((count-exept a (car w) (count-exept a (cdr w) n)))))
 
> (count-exept 2 '(1 2 (3 (2 4)) (5 2)))
4
> (count-exept 2 '(1 2 (3 (2 4)) (5 2) 7))
5
Добавлено через 1 минуту
Lisp
1
2
3
4
5
6
7
8
9
(defun count-exept (a w &optional (n 0))
  (cond ((null w) n)
        ((atom w) (if (eq w a) n (1+ n)))
        ((count-exept a (car w) (count-exept a (cdr w) n)))))
 
> (count-exept 2 '(1 2 (3 (2 4)) (5 2)))
4
> (count-exept 2 '(1 2 (3 (2 4)) (5 2) 7))
5
Добавлено через 1 час 27 минут
Lisp
1
2
3
4
5
6
7
8
(defun count-exept (a w)
  (cond ((null w) 0)
        ((eq a (car w)) (count-exept a (cdr w)))
        ((listp (car w)) (+ (count-exept a (car w)) (count-exept a (cdr w))))
        ((+ 1 (count-exept a (cdr w))))))
 
> (count-exept 2 '(1 2 (3 (2 4)) (5 2)))
4
Добавлено через 2 минуты
Lisp
1
2
3
4
5
6
7
8
9
(defun count-exept (a w)
  (cond ((null w) 0)
        (t (+ (cond ((eq a (car w)) 0)
                    ((listp (car w)) (count-exept a (car w)))
                    (t 1))
              (count-exept a (cdr w))))))
 
> (count-exept 2 '(1 2 (3 (2 4)) (5 2)))
4
Добавлено через 1 минуту
Lisp
1
2
3
4
5
6
7
8
9
10
(defun count-exept (a w)
  (if w
      (+ (cond ((eq a (car w)) 0)
               ((listp (car w)) (count-exept a (car w)))
               (t 1))
         (count-exept a (cdr w)))
      0))
 
> (count-exept 2 '(1 2 (3 (2 4)) (5 2)))
4
3
 Аватар для castorsky
1978 / 1082 / 87
Регистрация: 29.11.2013
Сообщений: 3,353
22.04.2015, 22:42
однопроходный алгоритм
Lisp
1
2
3
4
5
6
7
;; racket-lang.org
(define (foo a lst #:test (test? eq?))
  (for/fold ([sum 0])
            ([i (in-list lst)])
    (if (list? i)
        (+ sum (foo a i test?))
        (+ sum (if (test? i) 0 1)))))
1
 Аватар для _sg
4709 / 4404 / 380
Регистрация: 12.05.2012
Сообщений: 3,101
22.04.2015, 22:48
Lisp
1
2
3
4
5
6
7
8
9
10
(defun count-exept (a w)
  (if w
      (+ (cond ((eq a (car w)) 0)
               ((listp (car w)) (count-exept a (car w)))
               (1))
         (count-exept a (cdr w)))
      0))
 
> (count-exept 2 '(1 2 (3 (2 4)) (5 2)))
4
Добавлено через 3 минуты
Lisp
1
2
3
4
5
6
7
8
9
10
(defun flat (w &optional acc) 
  (cond ((null w) acc)
        ((atom w) (cons w acc))
        ((flat (car w) (flat (cdr w) acc)))))
 
(defun count-exept (a w)
  (count-if-not #'(lambda (e) (eq e a)) (flat w)))
 
> (count-exept 2 '(1 2 (3 (2 4)) (5 2)))
4
Добавлено через 2 минуты
Lisp
1
2
3
4
5
6
7
8
9
10
(defun flat (w)
  (loop for a in w 
        if (and a (atom a)) collect a
        else nconc (flat a)))
 
(defun count-exept (a w)
  (loop for e in (flat w) unless (eq e a) count e))
 
> (count-exept 2 '(1 2 (3 (2 4)) (5 2)))
4
2
Заблокирован
22.04.2015, 22:55
Lisp
1
(length(remove 2 (flatten '(1 2 (3 (2 4)) (5 2))))
2
 Аватар для _sg
4709 / 4404 / 380
Регистрация: 12.05.2012
Сообщений: 3,101
22.04.2015, 22:58
Lisp
1
2
3
4
5
6
7
8
9
10
(defun count-exept (a w)
  (if w
      (+ (cond ((eq a (car w)) 0)
               ((atom (car w)) 1)
               ((count-exept a (car w))))
         (count-exept a (cdr w)))
      0))
 
> (count-exept 2 '(1 2 (3 (2 4)) (5 2)))
4
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
22.04.2015, 22:58
Помогаю со студенческими работами здесь

через сколько дней количество атомов радиоктивного изотопа йод-131 уменьшится в 100 раз, если период полураспада(уменьшения количества атомов вдвое)
Друзья помогите пожалуйста Постройте таблицу, в которой вычисляется: а)через сколько дней количество атомов радиоктивного изотопа...

что в этом выражении не так?
вот собственно и сам код: $id=$_GET; $auth=$_GET; $get5 =...

Где в этом выражении дисперсия
Поясните плиз где здесь, что:

Что значит %m в этом выражении?
Подскажите, пожалуйста, что значит %m в этом выражении? massiv=rand()%m

Что не правильно в этом регулярном выражении
static string pattern = @"({1,1}){2,9}+_({1,1}){2,9}"; Regex regex = new Regex(pattern); на строку "Regex regex = new...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
13
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru