VPF::определить функцию количество элементов в списке

Дата 27.3.2011, 23:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 20.2.2011

Репутация: нет
Всего: нет

определить функцию, которая бы вычислить количество элементов в списке с помощью циклов.

пример:
(A B C) -3 елемента
(A(B C)) - 2 елемента

Дата 28.3.2011, 12:39 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 442
Регистрация: 24.1.2010

Репутация: нет
Всего: 5

Код


(defun count (list)
  (do ((xs list (cdr xs))
       (n  0    (+ n 1)))
      ((null xs) n)))

--------------------

“Object-oriented design is the roman numerals of computing.” — Rob Pike
All software sucks

Дата 28.3.2011, 16:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 20.2.2011

Репутация: нет
Всего: нет

Цитата(k0rvin @ 28.3.2011, 12:39)

Код


(defun count (list)
  (do ((xs list (cdr xs))
       (n  0    (+ n 1)))
      ((null xs) n)))

всё разабрался спасибо.

edit.

Это сообщение отредактировал(а) virux - 28.3.2011, 17:05

Дата 25.4.2014, 15:13 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 119
Регистрация: 16.5.2007

Репутация: 2
Всего: 2

как вариант:

Код


(defun -length (w)
  (loop for a in w counting a))

> (-length '(a b c d e))
5

--------------------

vk.com/ansicommonlisp

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| LISP \| Следующая тема »