[room] Вопрос по Lisp

[room] Вопрос по Lisp

[Денис Смирнов]

Так и не смог нормально в Lisp решить задачу:

Имеется массив с числами. Надо для него сделать что-то вроде trim --
получить второй массив, который бы не содержал завершающих нулей.

Я понимаю как её решить тупо (одним циклом для поиска новой длины, потом
создать новый массив, и также циклом перенести данные), но это же кошмар а
не код!

Можно ли такое решить на голом лиспе, или нужно таки не выпендриваться и
написать на C?

-- 
С уважением, Денис

http://freesource.info
----------------------------------------------------------------------------
<Voins> посади дебианщика за alt так он сразу локали сломает! :)))

Re: [room] Вопрос по Lisp

[Alexey Voinov]

Денис Смирнов <mithraen@altlinux.ru> writes:

> Так и не смог нормально в Lisp решить задачу:
>
> Имеется массив с числами. Надо для него сделать что-то вроде trim --
> получить второй массив, который бы не содержал завершающих нулей.
>
> Я понимаю как её решить тупо (одним циклом для поиска новой длины, потом
> создать новый массив, и также циклом перенести данные), но это же кошмар а
> не код!
Не, ты не понимаешь. :) Тупо - это вот так  (используем srfi-1):

(define (trim-zeroes-right data)
  (reverse (drop-while zero? (reverse data)))

Здесь по сути два полных прохода по списку и один проход только по
нулям в хвосте. Памяти требует немного (оно tail-recursive).

Можно это сократить до гарантированных двух проходов, за счёт
несколько более громоздкого кода:

(define (trim-zeroes-right data)
  (let loop ((data   data)
             (result '())
             (zeroes '()))
    (cond ((null? data)       (reverse result))
          ((zero? (car data)) (loop (cdr data)
                                    result
                                    (cons 0 zeroes)))
          ((null? zeroes)     (loop (cdr data)
                                    (cons (car data) result)
                                    zeroes))
          (else               (loop (cdr data)
                                    (cons (car data)
                                          (append zeroes result))
                                    '())))))

А если данные к нам приходят вектором, то получаем один проход по
нулям и одно копирование субвектора (используем srfi-43):

(define (trim-zeroes-right data)
  (let loop ((newlen (vector-length data)))
    (let ((index (- newlen 1)))
      (cond ((zero? newlen)
             '#())
            ((zero? (vector-ref data index))
             (loop index))
            (else
             (vector-copy data 0 newlen))))))

Т.е. последняя функция осуществляет всего один полный проход по всем
элементам. В чём оно принципиально отличается от решения на C, я не
вижу, честно говоря.


> Можно ли такое решить на голом лиспе, или нужно таки не выпендриваться и
> написать на C?

> ----------------------------------------------------------------------------
> <Voins> посади дебианщика за alt так он сразу локали сломает! :)))
Это ты специально фортунку со мной в такое письмо вставил? :))

-- 
Voins

Re: [room] Вопрос по Lisp

[Денис Смирнов]

On Sat, Jan 27, 2007 at 02:28:26PM +0300, Alexey Voinov wrote:

AV> Не, ты не понимаешь. :) Тупо - это вот так  (используем srfi-1):
AV> (define (trim-zeroes-right data)
AV>   (reverse (drop-while zero? (reverse data)))

Гм. Логично. В описании к тому же nyquist я почему-то drop-while не нашел
:-/

AV> Здесь по сути два полных прохода по списку и один проход только по
AV> нулям в хвосте. Памяти требует немного (оно tail-recursive).
AV> Можно это сократить до гарантированных двух проходов, за счёт
AV> несколько более громоздкого кода:
AV> (define (trim-zeroes-right data)
AV>   (let loop ((data   data)
AV>              (result '())
AV>              (zeroes '()))
AV>     (cond ((null? data)       (reverse result))
AV>           ((zero? (car data)) (loop (cdr data)
AV>                                     result
AV>                                     (cons 0 zeroes)))
AV>           ((null? zeroes)     (loop (cdr data)
AV>                                     (cons (car data) result)
AV>                                     zeroes))
AV>           (else               (loop (cdr data)
AV>                                     (cons (car data)
AV>                                           (append zeroes result))
AV>                                     '())))))

 AV> А если данные к нам приходят вектором, то получаем один проход по
 AV> нулям и одно копирование субвектора (используем srfi-43):

Увы, данные приходят именно что массивом.

Вернее не так. Это на самом деле свертка (convolution). Генерируется
свертка немеряной длины, потом по ней прогоняются фильтры, получается
результирующая свертка. Это array. Нули на конце только увеличивают
длительность работы (да ещё и нелинейно), потому их так важно все
отрезать.

 AV> (define (trim-zeroes-right data)
 AV>   (let loop ((newlen (vector-length data)))
 AV>     (let ((index (- newlen 1)))
 AV>       (cond ((zero? newlen)
 AV>              '#())
 AV>             ((zero? (vector-ref data index))
 AV>              (loop index))
 AV>             (else
 AV>              (vector-copy data 0 newlen))))))
 AV> Т.е. последняя функция осуществляет всего один полный проход по всем
 AV> элементам. В чём оно принципиально отличается от решения на C, я не
 AV> вижу, честно говоря.

Гм. А Кажется  ничем.

Только эту конструкцию я не смог прочитать:

AV>       (cond ((zero? newlen)
AV>              '#())
AV>             ((zero? (vector-ref data index))
AV>              (loop index))
>> Можно ли такое решить на голом лиспе, или нужно таки не выпендриваться и
>> написать на C?
>> ----------------------------------------------------------------------------
>> <Voins> посади дебианщика за alt так он сразу локали сломает! :)))
AV> Это ты специально фортунку со мной в такое письмо вставил? :))

У меня фортунка с модулями ясновидения и телепатии, а также умеет
самостоятельно составлять заклинания вызова :)

-- 
С уважением, Денис

http://freesource.info
----------------------------------------------------------------------------
Мастер достоин того, чтобы ради него купить DVD :)
		-- mithraen in community@

Re: [room] Вопрос по Lisp

[Alexey Voinov]

Денис Смирнов <mithraen@altlinux.ru> writes:

> On Sat, Jan 27, 2007 at 02:28:26PM +0300, Alexey Voinov wrote:
>
> AV> Не, ты не понимаешь. :) Тупо - это вот так  (используем srfi-1):
> AV> (define (trim-zeroes-right data)
> AV>   (reverse (drop-while zero? (reverse data)))
>
> Гм. Логично. В описании к тому же nyquist я почему-то drop-while не нашел
> :-/
Это из http://srfi.schemers.org/srfi-1/srfi-1.html
В Сommon Lisp наверняка аналогичная функция есть в стандартной
библиотеке. :)

>  AV> (define (trim-zeroes-right data)
>  AV>   (let loop ((newlen (vector-length data)))
>  AV>     (let ((index (- newlen 1)))
>  AV>       (cond ((zero? newlen)
>  AV>              '#())
>  AV>             ((zero? (vector-ref data index))
>  AV>              (loop index))
>  AV>             (else
>  AV>              (vector-copy data 0 newlen))))))
>
> Только эту конструкцию я не смог прочитать:
>
> AV>       (cond ((zero? newlen)
> AV>              '#())
> AV>             ((zero? (vector-ref data index))
> AV>              (loop index))
Если мы в подсчёте нулей дошли до начала вектора (длина нового вектора
равна 0), то возвращаем сразу пустой вектор, не дёргая копирования и
выйдем из цикла.
Если элемент в текущей позиции (index всегда на единицу меньше newlen)
равен 0, то повторить процедуру сначала, уменьшив длину нового вектора
на единицу (т.е. взять вместо длины - индекс). (let <name> ...) -
очень удобная и полезная конструкция в scheme. :) На CL наверняка этот
цикл будет проще записать каким-нибудь другим способом.
Если мы нашли первый не-нуль от конца, то скопируем все нужные
элементы и выйдем из цикла.

-- 
Voins

Re: [room] Вопрос по Lisp

[Денис Смирнов]

On Sun, Jan 28, 2007 at 11:33:39AM +0300, Alexey Voinov wrote:

> AV>> Не, ты не понимаешь. :) Тупо - это вот так  (используем srfi-1):
> AV>> (define (trim-zeroes-right data)
> AV>>   (reverse (drop-while zero? (reverse data)))
>> Гм. Логично. В описании к тому же nyquist я почему-то drop-while не нашел
>> :-/
AV> Это из http://srfi.schemers.org/srfi-1/srfi-1.html
AV> В Сommon Lisp наверняка аналогичная функция есть в стандартной
AV> библиотеке. :)

Понял, буду искать. В nyquist (на базе xlisp), где мне это было надо,
ненашел.

>  AV>> (define (trim-zeroes-right data)
>  AV>>   (let loop ((newlen (vector-length data)))
>  AV>>     (let ((index (- newlen 1)))
>  AV>>       (cond ((zero? newlen)
>  AV>>              '#())
>  AV>>             ((zero? (vector-ref data index))
>  AV>>              (loop index))
>  AV>>             (else
>  AV>>              (vector-copy data 0 newlen))))))
>> Только эту конструкцию я не смог прочитать:
> AV>>       (cond ((zero? newlen)
> AV>>              '#())
> AV>>             ((zero? (vector-ref data index))
> AV>>              (loop index))
AV> Если мы в подсчёте нулей дошли до начала вектора (длина нового вектора
AV> равна 0), то возвращаем сразу пустой вектор, не дёргая копирования и
AV> выйдем из цикла.
AV> Если элемент в текущей позиции (index всегда на единицу меньше newlen)
AV> равен 0, то повторить процедуру сначала, уменьшив длину нового вектора
AV> на единицу (т.е. взять вместо длины - индекс). (let <name> ...) -
AV> очень удобная и полезная конструкция в scheme. :) На CL наверняка этот
AV> цикл будет проще записать каким-нибудь другим способом.
AV> Если мы нашли первый не-нуль от конца, то скопируем все нужные
AV> элементы и выйдем из цикла.

А в чем вообще принципиальнальное различие между scheme и lisp? man что на
предмет истории развития этих языков?

-- 
С уважением, Денис

http://freesource.info
----------------------------------------------------------------------------
Небезопасная это штука - wget.
		-- ldv in sisyphus@

Re: [room] Вопрос по Lisp

[Alexey Voinov]

Денис Смирнов <mithraen@altlinux.ru> writes:

> А в чем вообще принципиальнальное различие между scheme и lisp? man что на
> предмет истории развития этих языков?
http://community.schemewiki.org/?Lisp
http://community.schemewiki.org/?what-is-scheme
http://community.schemewiki.org/?scheme-vs-common-lisp

ну и по ссылкам дальше :)

-- 
Voins

Re: [room] Вопрос по Lisp

[Денис Смирнов]

On Tue, Feb 06, 2007 at 08:53:01PM +0300, Alexey Voinov wrote:

>> А в чем вообще принципиальнальное различие между scheme и lisp? man что на
>> предмет истории развития этих языков?
AV> http://community.schemewiki.org/?Lisp
AV> http://community.schemewiki.org/?what-is-scheme
AV> http://community.schemewiki.org/?scheme-vs-common-lisp
AV> ну и по ссылкам дальше :)

/me попал...

-- 
С уважением, Денис

http://freesource.info
----------------------------------------------------------------------------
<drF_ckoff> как мне надоел весь этот опенсурс...
<drF_ckoff> надо "OpenSource haters handbook" написать

[room] mpc кракозябры в ID тэгах

[Денис Смирнов]

Решил я что хватит как последний ламер слушать музыку вручную запускаемым
mplayer'ом. Буду жить по-человечески.

Подумав чуток завел.

mpc показывает что-то страшное в ID тэгах у mp3'шек. На вид кракозябры
напоминают utf-8 перекодированый из чего-то куда-то.

Например так:

ц▄ц═ц╟ц╦ц═ц╚ - ц┼ц╡ц╝ ц╛ц╩

Причем если тэгов нет, а только имя файлов на русском -- оно показывается
как надо.

Кого и чем бить по голове?

-- 
С уважением, Денис

http://freesource.info
----------------------------------------------------------------------------
Внутри каждой большой программы есть маленькая, которая там совсем не нужна.

Re: [room] mpc кракозябры в ID тэгах

[Timur Batyrshin]

Денис Смирнов пишет:
> mpc показывает что-то страшное в ID тэгах у mp3'шек. На вид кракозябры
> напоминают utf-8 перекодированый из чего-то куда-то.
> 
> Например так:
> 
> ц▄ц═ц╟ц╦ц═ц╚ - ц┼ц╡ц╝ ц╛ц╩
> 
> Причем если тэгов нет, а только имя файлов на русском -- оно показывается
> как надо.

Поиграться с параметрами filesystem_charset и id3v1_encoding, а потом
пересоздать базу не помогает?
У меня стоит:
filesystem_charset "UTF-8"
id3v1_encoding "cp1251"

Re: [room] mpc кракозябры в ID тэгах

[Денис Смирнов]

On Wed, Feb 14, 2007 at 05:38:57PM +0300, Timur Batyrshin wrote:

>> mpc показывает что-то страшное в ID тэгах у mp3'шек. На вид кракозябры
>> напоминают utf-8 перекодированый из чего-то куда-то.
>> Например так:
>> ц▄ц═ц╟ц╦ц═ц╚ - ц┼ц╡ц╝ ц╛ц╩
>> Причем если тэгов нет, а только имя файлов на русском -- оно показывается
>> как надо.
TB> Поиграться с параметрами filesystem_charset и id3v1_encoding, а потом
TB> пересоздать базу не помогает?
TB> У меня стоит:
TB> filesystem_charset "UTF-8"
TB> id3v1_encoding "cp1251"

Не помогло :(

-- 
С уважением, Денис

http://freesource.info
----------------------------------------------------------------------------
Спасибо, Костя. Моя вера в опенсорс теперь ещё больше "непокобелима" (тм).
		-- avp in sisyphus@

Re: [room] mpc кракозябры в ID тэгах

[Aleksey Korotkov]

В Пнд, 19/02/2007 в 13:57 +0300, Денис Смирнов пишет:
> Не помогло :(

Есть кардинальное решение -- mp3-шки просто похерить :)

-- 
С уважением,
А.В.Коротков,

mailto:ziga@uni.udm.ru

Re: [room] mpc кракозябры в ID тэгах

[Andrew Borodin]

On Tue, Feb 20, 2007 at 12:25:38AM +0400, Aleksey Korotkov wrote:
> В Пнд, 19/02/2007 в 13:57 +0300, Денис Смирнов пишет:
> > Не помогло :(

> Есть кардинальное решение -- mp3-шки просто похерить :)

mp3info -d *

менее кардинальное решение.

-- 

С уважением,
А. Бородин.

Re: [room] mpc кракозябры в ID тэгах

[Nick S. Grechukh]

2007/2/14, Денис Смирнов <mithraen@altlinux.ru>:
> Решил я что хватит как последний ламер слушать музыку вручную запускаемым
> mplayer'ом. Буду жить по-человечески.

:) попробуй cmus, что ли

> Подумав чуток завел.
> mpc показывает что-то страшное в ID тэгах у mp3'шек. На вид кракозябры
> напоминают utf-8 перекодированый из чего-то куда-то.
> Например так:
> ц▄ц═ц╟ц╦ц═ц╚ - ц┼ц╡ц╝ ц╛ц╩
> Причем если тэгов нет, а только имя файлов на русском -- оно показывается
> как надо.
> Кого и чем бить по голове?
к нему еще и приложен патч для использования librcc, который вроде бы
должен решать все проблемы с кодировками тэгов. я не смог разобраться
и забил.

Re: [room] Вопрос по Lisp

[Maxim Tyurin]

Денис Смирнов writes:

> А в чем вообще принципиальнальное различие между scheme и lisp? man что на
> предмет истории развития этих языков?

Посмотрели как-то люди на размер стандарта CLISP и стало им грустно.
Решили выкинуть оттуда все лишнее по их разумению.
Так получился scheme.
:)
-- 

With Best Regards, Maxim Tyurin
JID:	MrKooll@jabber.pibhe.com
   ___                                 
  / _ )__ _____  ___ ____ _______ _____
 / _  / // / _ \/ _ `/ _ `/ __/ // (_-<
/____/\_,_/_//_/\_, /\_,_/_/  \_,_/___/
               /___/  

Re: [room] Вопрос по Lisp

[Alexey Voinov]

Maxim Tyurin <mrkooll@bungarus.info> writes:

> Денис Смирнов writes:
>
>> А в чем вообще принципиальнальное различие между scheme и lisp? man что на
>> предмет истории развития этих языков?
>
> Посмотрели как-то люди на размер стандарта CLISP и стало им грустно.
> Решили выкинуть оттуда все лишнее по их разумению.
> Так получился scheme.
> :)
Хе-хе :)) Только scheme - 1975 год, а Common Lisp - 1984. 

-- 
Voins

Re: [room] Вопрос по Lisp

[Maxim Tyurin]

Alexey Voinov writes:

> Maxim Tyurin <mrkooll@bungarus.info> writes:
>
>> Денис Смирнов writes:
>>
>>> А в чем вообще принципиальнальное различие между scheme и lisp? man что на
>>> предмет истории развития этих языков?
>>
>> Посмотрели как-то люди на размер стандарта CLISP и стало им грустно.
>> Решили выкинуть оттуда все лишнее по их разумению.
>> Так получился scheme.
>> :)
> Хе-хе :)) Только scheme - 1975 год, а Common Lisp - 1984. 

Точно. Соврал. Но меня на момент создания scheme еще не было, так что
простительно :)
Тогда так:

Посмотрели как-то люди на количество различных реализаций LISP и стало
им совсем грустно.
Решили выкинуть оттуда все лишнее по их разумению.
Так получился scheme.

Подходит? ;)
-- 

With Best Regards, Maxim Tyurin
JID:	MrKooll@jabber.pibhe.com
   ___                                 
  / _ )__ _____  ___ ____ _______ _____
 / _  / // / _ \/ _ `/ _ `/ __/ // (_-<
/____/\_,_/_//_/\_, /\_,_/_/  \_,_/___/
               /___/