Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Erlang]Покритикуйте код с точки зрения фп, начал изучать фп + Erlang 
:(
    Опции темы
chaos
Дата 26.10.2010, 10:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Серийный программист
****


Профиль
Группа: Завсегдатай
Сообщений: 2979
Регистрация: 7.7.2004
Где: Екатеринбург

Репутация: нет
Всего: 44
Доброго времени суток!
Увлекся тут ФП. Читаю Филд А., Харрисон П. - Функциональное программирование
Для кодинга больше нравится Erlang в ввиду его применимости в жизни. ИМХО. smile
Выполняю значит упражения:
1. Конвертирую число на отрезке от 0 до + бесконечности в 2ичную систем
2. Сложить два 2ичных числа

вот что я набыдлокодил smile
Код

-module(tut).
-export([dec2bin/1, bin2dec/1]).

dec2bin(X) ->
    dec2bin(X, []).

dec2bin(0, []) ->
    [0];

dec2bin(0, List) ->
    List;

dec2bin(X, List) ->
    dec2bin(trunc(X / 2), [X rem 2 | List]).

bin2dec(List) ->
    bin2dec(List, 0).

bin2dec([], Res) ->
    Res;

bin2dec([Head | Rest], Res) ->
    bin2dec(Rest, Res + Head * pow(2, llen(Rest))).
    
%*****************
llen([]) ->
    0;

llen([_ | Rest]) ->
    llen(Rest, 1).

llen([], Len)->
    Len;

llen([_ | Rest], Len) ->
    llen(Rest, Len + 1).

pow(_, 0) -> 1;

pow(X, N) when N > 0 ->
    X * pow(X, N - 1).


Код

42> tut:dec2bin(375).
[1,0,1,1,1,0,1,1,1]
43> tut:dec2bin(tut:bin2dec([1,1,1,1]) + tut:bin2dec([1,1,1,1,1,1,1,1])).
[1,0,0,0,0,1,1,1,0]


Хочу услышать Вашей критики.


Это сообщение отредактировал(а) chaos - 26.10.2010, 10:09
PM WWW   Вверх
Ryukzak
Дата 26.10.2010, 10:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: 1
Всего: 1
А почему для бинарных данных использован список?

А реализация мне нравится. Но как мне кажется, элегантнее было бы использовать вместо рекурсии свёртку. По крайней мере, я бы сделал так.
PM MAIL   Вверх
chaos
Дата 26.10.2010, 10:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Серийный программист
****


Профиль
Группа: Завсегдатай
Сообщений: 2979
Регистрация: 7.7.2004
Где: Екатеринбург

Репутация: нет
Всего: 44
Цитата(Ryukzak @  26.10.2010,  07:17 Найти цитируемый пост)
А почему для бинарных данных использован список?

наверно потому что с Erlang'ом знаком крайне крайне мало. Пока больше внимания уделяю теории ФП

Цитата(Ryukzak @  26.10.2010,  07:17 Найти цитируемый пост)
Но как мне кажется, элегантнее было бы использовать вместо рекурсии свёртку.

я пока не знаю что такое свертка smile
PM WWW   Вверх
Ryukzak
Дата 26.10.2010, 14:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: 1
Всего: 1
Вот тут можно об этом почитать для erlang http://en.citizendium.org/wiki/Erlang_(pro...torials/Folding

Чудесный рассказ о свёртках был в одном из номеров практики ФП. Называлась она "Пределы применимости свёрток". Очень рекомендую, но правда она больше теоретическая и на haskell.
PM MAIL   Вверх
Void
Дата 26.10.2010, 15:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


λcat.lolcat
****


Профиль
Группа: Участник Клуба
Сообщений: 2206
Регистрация: 16.11.2004
Где: Zürich

Репутация: 1
Всего: 173
dec2bin хорошо, bin2dec получилась с квадратичной сложностью на ровном месте. Переписывается в три строчки, с линейной сложностью и хвостовой рекурсией без использования функций вычисления длины списка и возведения в степень, подумай как smile

С помощью свёртки bin2dec получается ещё короче (см. ф-ю lists:foldl), а вот рекурсивный вариант dec2bin скорее всего даже на Хаскеле будет удобнее и нагляднее.

Чисто по Эрлангу: trunc(X / Y) здесь можно заменить на X div Y. Функция length есть встроенная, думаю больше одного раза писать её вручную неинтересно.


--------------------
“Coming back to where you started is not the same as never leaving.” — Terry Pratchett
PM MAIL WWW GTalk   Вверх
chaos
Дата 26.10.2010, 19:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Серийный программист
****


Профиль
Группа: Завсегдатай
Сообщений: 2979
Регистрация: 7.7.2004
Где: Екатеринбург

Репутация: нет
Всего: 44
Void, ну вот так только переписал smile
Код

-module(tut).
-export([b2d/1]).

b2d(List) ->
        b2d(lists:reverse(List), 1, 0).

b2d([], _, Res) ->
        Res;

b2d([Head | Rest], N, Res) ->
        b2d(Rest, 2 * N, Res + N * Head).


Вы про другой вариант говорили? Если да то не говорите решение smile
PM WWW   Вверх
Void
Дата 26.10.2010, 20:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


λcat.lolcat
****


Профиль
Группа: Участник Клуба
Сообщений: 2206
Регистрация: 16.11.2004
Где: Zürich

Репутация: 1
Всего: 173
Тепло, но можно обойтись двумя параметрами и без обращения списка.


--------------------
“Coming back to where you started is not the same as never leaving.” — Terry Pratchett
PM MAIL WWW GTalk   Вверх
chaos
Дата 26.10.2010, 20:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Серийный программист
****


Профиль
Группа: Завсегдатай
Сообщений: 2979
Регистрация: 7.7.2004
Где: Екатеринбург

Репутация: нет
Всего: 44
Цитата(Void @  26.10.2010,  17:12 Найти цитируемый пост)
Тепло, но можно обойтись двумя параметрами и без обращения списка. 

и даже не нужно знать длину списка? В Вашем алгоритме нужны какие-нибудь спец функции ?

Это сообщение отредактировал(а) chaos - 26.10.2010, 20:34
PM WWW   Вверх
Void
Дата 26.10.2010, 20:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


λcat.lolcat
****


Профиль
Группа: Участник Клуба
Сообщений: 2206
Регистрация: 16.11.2004
Где: Zürich

Репутация: 1
Всего: 173
Ничего не надо. Хинт: если взять двоичное число N и приписать к нему справа цифру X, чему будет равно получившееся число?


--------------------
“Coming back to where you started is not the same as never leaving.” — Terry Pratchett
PM MAIL WWW GTalk   Вверх
chaos
Дата 26.10.2010, 21:41 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Серийный программист
****


Профиль
Группа: Завсегдатай
Сообщений: 2979
Регистрация: 7.7.2004
Где: Екатеринбург

Репутация: нет
Всего: 44
Void, победил
Код

-module(tut).
-export([b2d/1]).

b2d([Head | Rest]) ->
        b2d(Rest, Head).

b2d([], Res) ->
        Res;

b2d([Head | Rest], Res) ->
        b2d(Rest, 2 * Res + Head).


пришлось взять листок с ручкой и включить моск

upd:
Познокомился тут со сверткой....и переписал данную функцию иначе
Код

b2d([Head | Rest]) -> lists:foldl(fun(X, Res) -> 2 * Res + X end, Head, Rest).


"крутатень" (с)

Это сообщение отредактировал(а) chaos - 28.10.2010, 14:13
PM WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума «Функциональные языки: общие вопросы»
Void
  • Пожалуйста, создавайте темы с содержательными названиями. Если у Вас вопрос по конкретному языку, укажите его в заголовке, например: «[Haskell] Как использовать монаду State».
  • Уважаемые учащиеся, здесь всегда рады помочь Вам, но не делать за Вас вашу работу. У вас гораздо больше шансов получить помощь, если Вы приложите усилия и поделитесь с нами проблемами и результатами. В противном случае добро пожаловать в раздел Центр Помощи.
  • Получив ответ на интересующий Вас вопрос, не забудьте пометить его как решённый.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Void.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Функциональные языки: общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1070 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.