> 1 <

Автор Сообщение

IamI

Members


Статус

1 сообщений

Где: Russia
Род занятий:
Возраст:

#3971   2011-03-02 17:19 GMT+3 часа(ов)      
Доброго времени суток!
Проблема. Задача:
На вход получаем строку, она состоит из букв, цифр и символов. Как только встретили ":" все символы после записываются файл

megamanx

Members


Статус

307 сообщений

Где: Russia
Род занятий:
Возраст:

#3977   2011-03-03 23:35 GMT+3 часа(ов)      
(defun foo (str filename &optional (action :supersede))
(declare (string str filename) (symbol action) (optimize (speed 3)))
(labels ((this.cutAfterColumn (str)
(let ((pos (position #\: str)))
(if pos (subseq str (1+ pos)) nil)))
(this.writeStr (str filename)
(with-open-file ( filespec filename
:direction :output
:if-exists action
:if-does-not-exist :create)
(format filespec str))))
(declare (inline this.cutAfterColumn) (inline this.writeStr))
(let ((res (this.cutAfterColumn str)))
(if res (this.writeStr res filename)))))

отредактировал(а) megamanx: 2011-03-04 22:23 GMT+3 часа(ов)
I wish I'd made you angry earlier
> 1 <


Онлайн :

0 пользователь(ей), 13 гость(ей) :




Реклама на сайте: