VPF::Ошибка - Форум программистов

brockel

Дата 31.10.2006, 14:54 (ссылка)

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

Загрузка ...

Новичок

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

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

*** - RETURN-FROM: no block named NIL is currently visible

Что значит?
Спасибо

adejneka

Дата 31.10.2006, 19:27 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 105
Регистрация: 8.7.2005
Где: Москва, Россия

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

В таких ситуациях нужно приводить код.

Скорее всего, Вы написали нечто вроде

Код


(defun test (x y)
  (if (= y 0) (return "Error!"))
  (/ x y))

вместо

Код


(defun test (x y)
  (if (= y 0) (return-from test "Error!"))
  (/ x y))

brockel

Дата 31.10.2006, 23:50 (ссылка)

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

Загрузка ...

Новичок

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

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

Код


(DEFUN counter(word str)
    (setq len (length str))
    (setq lenWord (length word))
    (setq i 0)

    ;;(split-sequence:SPLIT-SEQUENCE #\9 "foo,bar ,baz, foobar , barbaz,")


    (cond
        (       (< len lenWord)
            (setq count 13)
            (return 1)
        )
    )

    (loop
            (cond
                (       (string= (subseq word i (1+ i)) (subseq str i (1+ i)))
                    (cond
                        (       (= i (- lenWord 1))
                            (setq count (1+ count))
                            (princ "Вах!")
                            (counter word (subseq str (1+ i) len))
                            (return 1)
                        )
                    )

                    ;(princ "=")
                    ;(prin1 (subseq word i (+ i 1)))
                    ;(prin1 (subseq str i (+ i 1)))

                    (setq i (+ i 1))
                )
                (       (NOT (string= (subseq word i (1+ i)) (subseq str i (1+ i))))

                    (cond
                        (       (= 0 len)
                            (return 1)
                        )
                    )

                    ;(princ "ГАВНО: ")
                    ;(prin1 (subseq word i (1+ i)))
                    ;(prin1 (subseq str i (1+ i)))


                    (counter word (subseq str 1 len)   )
                    (return 1)
                )
            )
    )
)

(SETQ count 0 )
(counter "123" "22121231231233 d fsd gh 12 dgshs 1 123 fdsj 1 fj 121233123112323")
(prin1 count)

Добавлено @ 23:56
Разобрался Сэнкс!

Добавлено @ 00:01
Наверное интересно код увидеть......... как только кто не извращается... незная возможностей языка=))))) Просто учить мне его особо-то нехочется, только задания здать да и фиг с ним, больше люблю что-нибудь более современное и ориентированное на создание систем, по типу java, C++.

adejneka

Дата 3.11.2006, 09:15 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 105
Регистрация: 8.7.2005
Где: Москва, Россия

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

А что надо сделать? Посчитать, сколько раз WORD входит в STRING?

Код


(defun my-count (word string)
  (loop with word-length = (length word)
        for i from 0 to (- (length string) word-length)
        count (string= word string :start2 i :end2 (+ i word-length))))

(my-count "121" "112121")

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