Форум на Исходниках.RU

Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3784176 Fri, 30 Nov 2018 01:35:39 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3784176 Serafim JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3784010 Thu, 29 Nov 2018 06:41:30 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3784010 Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3783971 Wed, 28 Nov 2018 14:40:11 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3783971 nash JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3783957 Wed, 28 Nov 2018 12:08:58 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3783957 Цитата Cfon @ 28.11.18, 05:02

8ой язык в списке Форбс

Хм ... там только VBScript! :-?]]> JoeUser JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3783917 Wed, 28 Nov 2018 09:50:15 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3783917 K313 JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3783894 Wed, 28 Nov 2018 06:39:03 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3783894 Астарот JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3783892 Wed, 28 Nov 2018 05:02:47 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3783892 8ой язык в списке Форбс :lool:]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3783888 Wed, 28 Nov 2018 01:07:51 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3783888 Serafim JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3783826 Tue, 27 Nov 2018 05:23:34 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3783826 Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3783789 Mon, 26 Nov 2018 11:26:20 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3783789 nash JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3783786 Mon, 26 Nov 2018 09:23:36 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3783786

Swift

Rust

Python

Java

Scala

Kotlin

]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3783722 Sun, 25 Nov 2018 05:19:36 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3783722 Цитата nash @ 24.11.18, 15:44

VBScript?

:bad:

Добавлено 25.11.18, 05:20
Ещё идеи? :D]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3783701 Sat, 24 Nov 2018 15:44:15 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3783701 nash JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3783607 Fri, 23 Nov 2018 12:47:35 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3783607 догадайтесь че я щас изучаю? :D]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3782327 Thu, 08 Nov 2018 19:16:07 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3782327 Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3782187 Tue, 06 Nov 2018 08:33:27 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3782187 Цитата Serafim @ 29.10.18, 19:38

Он медленный, жрёт кучу оперативы и не читаемый.

Зато в свое время в нем были эпичные баги: https://twitter.com/bos31337/status/116372971509121025 :D]]> Астарот JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3782144 Mon, 05 Nov 2018 09:02:40 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3782144

function words(p, s) {

const result = [];

let word = '', cc;

let i = 0, len = s.length;

while (i < len) {

cc = s[i];

if (!p(c)) word += cc;

if (p(c) && word !== '') {

result.push(word);

word = '';

}

if (i === len - 1) {

result.push(word);

}

ПС. писал на дровнях сильно не пинайте, это чисто императивный стиль :D
Вспомнил старый добрый Си :whistle:]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3782124 Sun, 04 Nov 2018 10:43:14 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3782124 Цитата K313 @ 02.11.18, 17:19

Цитата Cfon @ 31.10.18, 11:21

Я не стал юзать кастомную функцию compose и править ручками words, а заюзал библу Ramda

а ты сам то чё? целую либу заюзал?

Ramda.compose не относиться к решению нашей задаче, ее можно не юзать.
Вот без compose

const wordNums = s => group( qsort( words(c => c === ' ', s))).map(ws => [ws.length, ws[0]]);

А вот вам императивный вариант wordNums, писал на дровнях :D

function wordNums(s) {

const ws = words(c => c === ' ', s);

const result = [];

const o = {};

for (const w of ws) {

o[w] = o[w] ? o[w] + 1 : 1;

}

for (const w in o) {

result.push([o[w], w]);

}

return result;

}

Все приходится делать самому! :D

ПС. надо ишо words на императивные рельсы поставить :D]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3782087 Fri, 02 Nov 2018 17:19:58 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3782087 Цитата Cfon @ 31.10.18, 11:21

Я не стал юзать кастомную функцию compose и править ручками words, а заюзал библу Ramda

а ты сам то чё? целую либу заюзал?]]> K313 JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3782085 Fri, 02 Nov 2018 14:16:22 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3782085 Цитата K313 @ 02.11.18, 10:58

я фапще не в теме, поэтому буду ляпать для начала, что не попада

array_count_values( preg_split( '/\s+/', $string ) );

да попада :D но тока ты юзаешь готовые функции, а надо ручками :D]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3782079 Fri, 02 Nov 2018 10:58:02 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3782079 Цитата Cfon @ 02.11.18, 07:57

Что ты понимаешь под корутинами?

что тут опять начинается?!! было же всё тихо и спокойно... Сифон сам себе байки рассказывал, никого не трогал... и тут вдруг какой-то коротин :oops:

Добавлено 02.11.18, 11:02
я фапще не в теме, поэтому буду ляпать для начала, что не попада

array_count_values( preg_split( '/\s+/', $string ) );

]]> K313 JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3782073 Fri, 02 Nov 2018 07:57:44 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3782073 Цитата Serafim @ 02.11.18, 05:06

foreach ($words as $word) {

yield \substr_count($sentence, $word) => $word;

}

Итератор, который возвращает в качестве ключа количество слов, а в качестве значения само слово.

Вывод какой будет тут? Как можно проверить? И у тебя юзаеться готовая фунция substr_count! ты за кого меня держишь? :D, у меня же все ручками! Ну кроме map :D
Я тоже могу привести в одну функцию

const wordNums = s =>

group( qsort( words(c => c === ' ', s))).map(ws => [ws.length, ws[0]]);

Если на входе строка к примеру "hello world hello", а на выходе массив, в котором каждый элемент представлял два значения, первое - слово, второе - число его повторов или наоборот без разницы :D. Я уже выше приводил :wall:

// [ [2, "hello"], [1, "world"] ]

У тебя так? :D

Цитата Serafim @ 02.11.18, 05:06

генераторы - это не корутины. У генераторов в ES6 нет возможностей корутин.

Что ты понимаешь под корутинами?]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3782066 Fri, 02 Nov 2018 05:06:44 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3782066 Цитата Cfon @ 02.11.18, 04:26

Ты пока написал пол того что делает мой код! Напиши всю wordNums так чтобы не жрало память, хоть на пыхе хоть на чем мля но тока напиши!

Ну сам попросил:

foreach ($words as $word) {

yield \substr_count($sentence, $word) => $word;

}

Итератор, который возвращает в качестве ключа количество слов, а в качестве значения само слово.

Цитата Cfon @ 02.11.18, 04:26

генераторы введенные в ES6 поддерживают их

генераторы - это не корутины. У генераторов в ES6 нет возможностей корутин.]]> Serafim JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3782065 Fri, 02 Nov 2018 04:26:19 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3782065 Цитата Serafim @ 01.11.18, 21:11

Да потому что ты хренью страдаешь. Из нормального кода делаешь хрень. Функциональщина нужна там, где она будет профитна, а не везде её пихать. Функции от коллекций в JS работают сразу над всем массивом. Ты его весь держишь в памяти. Это полная дичь. В моём же примере память выделяется ровно в пару-тройку байт. Как только очередное слово находится - память вычищается сразу же.

В каком примере?! :wall:
Ты пока написал пол того что делает мой код! Напиши всю wordNums так чтобы не жрало память, хоть на пыхе хоть на чем мля но тока напиши! А не язычком моли :whistle:
Код на пыхе что делает? Вывод в итоге какой? Мне надо получить из предложения, список пар где будет слово и число его повторений в предолжении, например
"hello world hello" -> [[2, "hello"], [1, " world"]]

Да и напиши свой гавнокод как обещал в 10 раз меньше моего гавнокода :D
Я буду считать строки :D

Добавлено 02.11.18, 04:52

Цитата Serafim @ 01.11.18, 21:11

А т.к. JS дерьмо и в нём нет корутин, то вместо return передаём значение в анонимочку

почему нет корутин? есть :D
генераторы введенные в ES6 поддерживают их :D]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3782052 Thu, 01 Nov 2018 21:11:46 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3782052

function wordNums(it) {

return it.length;

}

Добавлено 01.11.18, 21:12
А, не, так не получится

Добавлено 01.11.18, 21:15
Потому что слова могут быть разделены чем угодно, получается от итератора не получить длины. Т.к. деление по пробелам - некорректно. В итоге:

return sentence.split(/\W+/).length;

Т.е. в функции выше (самой первой) сплит по пробелу надо заменить на сплит по регулярке, а затем длину от итератора.

А т.к. JS дерьмо и в нём нет корутин, то вместо return передаём значение в анонимочку

Добавлено 01.11.18, 21:22
на пыхе это было бы так:

Скрытый текст

function words(string $sentence): iterable

{

$buffer = '';

foreach (\str_split($sentence) as $char) { // Итератор по чарам

if (\preg_match(yield $separator, $char)) { // Корутина разделения символов по регулярке с произвольным разделителем

$buffer = '' && yield $buffer; // Возвращаем буфер

continue;

}

$buffer .= $char; // Конкатенируем с буфером

}

function word_nums(iterable $words): iterable

{

foreach ($words as $i => $word) { // Пробегаемся по словам

yield $word; // Возвращаем слово

}

return $i; // Возвращаем последний индекс

}

Добавлено 01.11.18, 21:28

Цитата Cfon @ 01.11.18, 16:37

И тишина... походу парнишка сдулся?

export default *function(cb, iterator) {

for (let item of iterator) {

yield cb(item);

}

]]> Serafim JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3782040 Thu, 01 Nov 2018 16:37:56 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3782040 Цитата Serafim @ 30.10.18, 19:20

Код смотрится отвратно. Я могу сократить его в 10 раз и сделать на порядки читаемее...

И тишина... походу парнишка сдулся? :-?
Симка балабол! :D]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781965 Wed, 31 Oct 2018 11:21:45 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781965 Цитата Serafim @ 31.10.18, 10:09

Изучаю Haskell (сообщение #3781730)

И все?! нет батенька от меня так просто не отделаться :lool:
будьте добры всю функцию wordNums :D

В прошлом примере я не юзал композицию, в отличие от примера на Хаскелле, давайте заюзим в wordNums композицию и дополнительно для words каррирование. Я не стал юзать кастомную функцию compose и править ручками words, а заюзал библу Ramda

const R = require('ramda');

const wordNums = s =>

R.compose(

a => a.map(ws => [ws.length, ws[0]]),

group,

qsort,

R.curry(words)(c => c === ' ')

)(s);

.........

получилось длинее, но так для практики пойдет :D

Еще улучшим код, добавим функцию isSpace

const wordNums = s =>

R.compose(

a => a.map(ws => [ws.length, ws[0]]),

group,

qsort,

R.curry(words)(isSpace)

)(s);

const isSpace = c => /[\s\.;,!?-]/.test(c);

теперь можно изи добавлять символы игнора :D]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781944 Wed, 31 Oct 2018 10:09:53 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781944 Изучаю Haskell (сообщение #3781730)]]> Serafim JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781910 Wed, 31 Oct 2018 05:31:00 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781910 Цитата Serafim @ 30.10.18, 19:20

Код смотрится отвратно. Я могу сократить его в 10 раз и сделать на порядки читаемее... Хотя, постой, кажется, я уже это делал :whistle:

Го жду :D]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781886 Tue, 30 Oct 2018 19:20:45 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781886 Цитата Cfon @ 30.10.18, 10:52

Вроде как Haskell рекурсии оптимизирует и они не жрут память, читал где то

А зачем оптимизировать что-то, если можно просто вернуть корутину?

Добавлено 30.10.18, 19:22

Цитата Cfon @ 30.10.18, 19:01

Но несмотря на это в обшем код смотрится функционально!

Код смотрится отвратно. Я могу сократить его в 10 раз и сделать на порядки читаемее... Хотя, постой, кажется, я уже это делал :whistle:]]> Serafim JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781885 Tue, 30 Oct 2018 19:01:01 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781885

function words(p, s) {

if (s === '') return [];

const [w, s1] = split(p, dropWhile(p, [...s]));

return [w.join(''), ...words(p, s1.join(''))];

}

function group(xs) {

if (xs.length == 0) return [];

const [x, ...xs1] = xs;

const [ys, zs] = split(x1 => x1 !== x, xs1);

return [[x, ...ys], ...group(zs)];

}

function split(p, xs) {

if (xs.length == 0) return [[],[]];

const [x, ...xs1] = xs;

if (!p(x)) {

const [ys, zs] = split(p, xs1);

return [[x, ...ys], zs];

}

return [[], xs];

}

function dropWhile(p, xs) {...} // см выше

function qsort(xs) {...} // см quicksort

const wordNums = s =>

group( qsort( words(c => c == ' ', s))).map(ws => ([ws.length, ws[0]]));

const s = 'hello world hello';

console.log(wordNums(s));

// [ [ 2, 'hello' ], [ 1, 'world' ] ]

Получилось почти в функциональном стиле, почему почти? :D
1 - в функциях больше одного return
2 - наличие присваиваний
Все это вносит некий императизм :D
Но несмотря на это в обшем код смотрится функционально! :blush:
Особенно функция wordNums изящно не правда ли? :wizard:]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781862 Tue, 30 Oct 2018 10:52:15 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781862 Цитата Serafim @ 29.10.18, 19:38

Он медленный, жрёт кучу оперативы и не читаемый.

Вроде как Haskell рекурсии оптимизирует и они не жрут память, читал где то :)
а не читаемый потому что функциональный стиль требует иного подхода к чтению :D

ОК очередное задание, переписать на JS код, который парсит строку на слова и возвращает список из числа повторений каждого слова и самого слова :D
Вот образец

*Main> wordNums "hello world hello"

[(2,"hello"),(1,"world")]

Код на Хаскелле

wordNums :: String -> [(Int, String)]

wordNums s = [(length ws, head ws) | ws <- group . qsort . words (==' ') $ s]

words :: (Char -> Bool) -> String -> [String]

words p s = case dropWhile p s of

"" -> []

s' -> w : words p s''

where (w, s'') = split p s'

qsort :: (Ord a) => [a] -> [a]

qsort [] = []

qsort (x : xs) =

qsort [y | y <- xs, y <= x] ++

[x] ++

qsort [y | y <- xs, y > x]

group :: (Eq a) => [a] -> [[a]]

group [] = []

group (x:xs) = (x:ys): group zs where (ys, zs) = split (/= x) xs

split :: (a -> Bool) -> [a] -> ([a], [a])

split p (x:xs) | (not . p) x = (x:ys, zs) where (ys, zs) = split p xs

split _ xs = ([], xs)

Функции words, qsort уже переписаны на JS в предыдущих постах, я их для наглядности сюда тоже перенес. Осталось group и wordNums. Ну а split я просто вынес из words для повторного применения в group. Она делить список (строку) на две части согласно предику :D

Пояснения к коду Хаскелл.
words - получает исходную строку и возвращает список слов
group - получает список слов и выделяет рядом лежащие совпадающие слова в отдельные списки, ну возвращает его (список списков)
sort - понятно сортирует :D
split - уже писал выше
ВСЕ! да и я тоже буду переводить го кто шустрее :lool:]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781800 Mon, 29 Oct 2018 19:38:58 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781800 Цитата Cfon @ 29.10.18, 05:47

ну и где тут функциональный подход Хаскелл?

Он медленный, жрёт кучу оперативы и не читаемый.]]> Serafim JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781783 Mon, 29 Oct 2018 17:57:38 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781783

function words(p, s) {

if (s === '') return [];

const f = (p, s) => {

const [x = ' ', ...xs] = s;

return !p(x)

? ({ys, zs} = f(p, xs), {ys: [x,...ys], zs})

// ^^^^^ создаются глобальные переменные!!

: {ys:[], zs: xs}

};

const {ys: w, zs: s1} = f(p, dropWhile(p, [...s]));

return [w.join(''), ...words(p, s1.join(''))];

}

Обратно к корректной форме :D

function words(p, s) {

if (s === '') return [];

const f = (p, s) => {

const [x = ' ', ...xs] = s;

if (!p(x)) {

const {ys, zs} = f(p, xs);

// ^^^^ OK, локальные переменные

return {ys: [x,...ys], zs};

}

return {ys:[], zs: xs};

};

const {ys: w, zs: s1} = f(p, dropWhile(p, [...s]));

return [w.join(''), ...words(p, s1.join(''))];

}

Фан версия! :D

function words(p, s) {

if (s === '') return [];

const f = (p, s) => (() => {

const [x = ' ', ...xs] = s;

return !p(x)

? (() => {const {ys, zs} = f(p, xs);return {ys: [x,...ys], zs}})()

: {ys:[], zs: xs}

})();

const {ys: w, zs: s1} = f(p, dropWhile(p, [...s]));

return [w.join(''), ...words(p, s1.join(''))];

}

]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781764 Mon, 29 Oct 2018 12:30:45 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781764

function words(p, s) {

if (s === '') return []; // 1

const f = (p, s) => {

const [x = ' ', ...xs] = s;

return !p(x)

? ({ys, zs} = f(p, xs), {ys: [x,...ys], zs}) // 4

: {ys:[], zs: xs} // 5

};

const {ys: w, zs: s1} = f(p, dropWhile(p, [...s])); // 3

return [w.join(''), ...words(p, s1.join(''))]; // 2

}

Оригинал на Хаскелле

words :: (Char -> Bool) -> String -> [String]

words _ [] = [] // 1

words p s = w : words p s' // 2

where

(w, s') = f p $ dropWhile p s // 3

f p (x:xs) | (not . p) x = (x:ys, zs) where (ys, zs) = f p xs // 4

f _ xs = ([], xs) // 5

Почти один в один :D

В ходе исследования кода JS в попытке приблизить его в функциональному стилю Haskell должен отметить операторы запятая и тернарный, а также синтаксис деструктуризации объектов и массивов, и остаточных элементов ES6 :thanks: Без них мало что получилось! :D
А также группе Helloween и ушам Audio Technica! Они хорошо изолировали меня от окружающих! :D]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781737 Mon, 29 Oct 2018 05:47:56 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781737 Цитата Cfon @ 28.10.18, 17:26

Баг нашел, дело в строчке где происходит отделение символа от строки, но пока решения не нашел, временно поставил императивный костыль :D

Пофиксил

function words(p, s) {

if (s === '') return [];

function f(p, s) {

const [c = ' ', ...s1] = s;

// ^^ значение по умолчанию

if (!p(c)) {

const {w, s2} = f(p, s1);

return {w: [c, ...w], s2};

}

return {w:[], s2: s1};

};

const {w, s2} = f(p, dropWhile(p, [...s]));

return [w.join(''), ...words(p, s2.join(''))];

}

Вроде более менее приближен к Хаскелл-стилю, надо еще подрихтовать формы :D

Добавлено 29.10.18, 05:56

Цитата Serafim @ 28.10.18, 22:43

function *words(sentence, separator) {

let buffer = '';

for (let char of sentence) {

if (char === separator) {

yield buffer;

buffer = '';

continue;

}

buffer += char;

}

ну и где тут функциональный подход Хаскелл? :blink:

очередная императивная реализация :D]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781730 Sun, 28 Oct 2018 22:43:25 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781730 Цитата Cfon @ 28.10.18, 06:57

нет надо показать реализацию JS кода что привел на Haskell

function *words(sentence, separator) {

let buffer = '';

for (let char of sentence) {

if (char === separator) {

yield buffer;

buffer = '';

continue;

}

buffer += char;

}

123123.jpg (, : 403) ]]> Serafim JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781720 Sun, 28 Oct 2018 17:26:12 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781720

function words(p, s) {

if (s === '') return [];

function f(p, s) {

let [c, ...s1] = s; //<--- тут баг

if (c === undefined) c = ' '; //<-- костыль

if (!p(c)) {

const {w, s2} = f(p, s1);

return {w: [c, ...w], s2};

}

return {w:[], s2: s1};

};

const {w, s2} = f(p, dropWhile(p, [...s]));

return [w.join(''), ...words(p, s2.join(''))];

}

Попутно подрихтовал код заюзав деструктиризацию массива вместо прямых манипуляций :D

const a = [...s];

const {c, s1} = { c: a.shift(), s1: a.join('')};

на

let [c, ...s1] = s;

]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781702 Sun, 28 Oct 2018 12:40:02 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781702

function words(p, s) {

if (s === '') return [];

function f(p, s) {

const a = [...s];

const {c, s1} = { c: a.shift(), s1: a.join('')};

if (!p(c)) {

const {w, s2} = f(p, s1);

return {w: [c,...w].join(''), s2};

}

return {w:[], s2:s1};

};

const {w, s2} = f(p, dropWhile(p, [...s]).join(''));

return [w, ...words(p, s2)];

}

const s = "Lorem Ipsum is simply dummy text of the printing and typesetting industry. ";

const ws = words(c => c === ' ', s);

console.log(ws);

// ["Lorem","Ipsum","is","simply","dummy","text","of","the","printing","and","typesetting","industry."]

в коде есть где то баг, если исходная строка не заканчивается пробелом, то все летит лесом :D
ПС. dropWhile взят из прошлых моих творений что в предыдущих постах постах :D
ладно чет устал я если у вас есть желание найти баг, ну или свой пример запостить велком, а я отдыхать! :huh:]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781692 Sun, 28 Oct 2018 06:57:02 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781692 Цитата Serafim @ 28.10.18, 00:27

'Lorem Ipsum is simply dummy text of the printing and typesetting industry.'.split(' ')

нет надо показать реализацию JS кода что привел на Haskell :D
То что в JS есть свои функции для обработки строк, я естесно в курсе как бы не наслышке, мой здесь интерес реализовать их в функциональном стиле.
Кстати в Хаскелле уже есть готовая функция words, я ее тут немного переклепал для практики :D

Догадываюсь что тут мало Хаскелистов (, а может и нет вапще :D ) и приведеный мной код не понятен многим, поэтому я ща его расшифрую :D

Короче даю построчный разбор кода

words _ [] = [] // 1

words p s = w : words p s' // 2

where

(w, s') = f p $ dropWhile p s // 3

f p (x:xs) | (not . p) x = (x:ys, zs) where (ys, zs) = f p xs // 4

f _ xs = ([], xs) // 5

Немного поясню стиль написания функций на Хаскелл основан на совпадении образцов (patterns matching), т.е. пишутся простые выражения (уравнения), которые потом выборочно вычисляются в зависимости от совпадения.
1 - совпадение срабатывает в случае когда words вызывается на пустом списке, он же является завершающим вызовом рекурсного вызова words
2 - идет рекурсивный вызов words
3 - вспомогательная функция f собственно выполняет всю работу по разделению слов, вызов dropWhile p s откидывает пробелы вначале строки s и предает ее в функцию f
4 - идет рекурсивный вызов f в результате каждого шага рекурсии возвращется пара или говоря в терминах Хаскелля кортеж (ys, zs), далее он намного изменяется, точнее сам то кортеж не меняется, т.к. в Хаскелл нет переменных в классическом понимании, это просто некое имя для значения или выражения, создается новый кортеж (x:ys, zs) с измененым списком ys, если говорить точнее к нему в голову добавляется значение переменной x
5 - завершающий вызов рекурсии
еще проще сложно описать т.к. надо весь язык капать :D]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781684 Sun, 28 Oct 2018 00:27:26 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781684

'Lorem Ipsum is simply dummy text of the printing and typesetting industry.'.split(' ')

]]> Serafim JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781641 Sat, 27 Oct 2018 12:23:13 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781641

words _ [] = []

words p s = w : words p s'

where

(w, s') = f p $ dropWhile p s

f p (x:xs) | (not . p) x = (x:ys, zs) where (ys, zs) = f p xs

f _ xs = ([], xs)

Что она делает? Получает предикат сравнения, строку, и возвращает список слов.. все :blink: так коротко? я кайфую :hang:

words (==' ') "Lorem Ipsum is simply dummy text of the printing and typesetting industry."

// ["Lorem","Ipsum","is","simply","dummy","text","of","the","printing","and","typesetting","industry."]

Задача та же перевести на JS :wacko:

Кстати в Хаскелле отступы имееют значение! Тут аля как их не расставишь, но у меня с этим не было проблем ибо я всегда нормально их ставил :D
но вот те кто не любит отступы будут в га*не :lool:
Вроде в Пайтоне также. Наверно кодеры Хаскелла и Пайтон дружат :D]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781567 Fri, 26 Oct 2018 07:24:44 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781567

const dropWhile = (p, xs) => (

xs.reduce(({xs, b}, x) =>

(b && p(x)) ? {xs, b:true} : {xs:[...xs, x], b:false},

{xs:[], b:true}).xs

);

dropWhile(x => x > 3, [4,1,2,3,4,5] // [1,2,3,4,5]

немного были затыки с анонимной функцией, а так изи :D

Переменную b в JS можно не передавать в акумуляторном объекте, его можно мутировать в замыкании, тут я просто перенес один в один решение в Хаскелл-стиле где нельзя менять значения переменных :blush:

Например вот как будет в императивном стиле JS

const dropWhile = (p, xs) => {

var b = true; //исходное состояние

return xs.reduce((xs, x) =>

(b && p(x)) ? xs : (b = false, [...xs, x]),

// ^^ изменяем состояние

[])

};

как видите код в немного сократился, за счет выкидывания b из аккумуляторного объекта и замены его простым массивом.

Первые впечатления от Хаскелла в основном положительные :good:
Функциональный стиль, строгая типизация и т.д все классно,
но если сравнивать с моим кодингом на JS, на Хаскелл сложнее отлаживать хотя он и строго типизирован, но вот мессажи об ошибках, которые возникаю при компиляции, вгоняют меня в ступор, например

hof.hs:81:15: error:

* Couldn't match expected type `[a1]'

with actual type `([a1], Bool)'

* In the first argument of `(++)', namely `xs'

In the expression: xs ++ [x]

In the expression: (xs ++ [x], False)

* Relevant bindings include

x :: a1 (bound at hof.hs:81:10)

xs :: ([a1], Bool) (bound at hof.hs:81:7)

f :: ([a1], Bool) -> a1 -> ([a1], Bool) (bound at hof.hs:80:5)

:wacko:

да на JS было много ошибок в рантайме, но хз я их изи правил и находил, чего не скажу пока про Хаскелл :wall:
думаю если научусь их читать, то ваще будет шоколадно :D

Рекомендую ли я Haskell к изучению новичкам в программировании? Скорее нет, чем да :D
а вот тем кто уже мастер императивном программинге, то велком в Хаскелл найдете много интересного! И мозоль в мозге первое время будет большая :D
Эт я еще монады не трогал и не прогал GUI, БД и тп, знающие прогеры ну те кто круче меня :D пугают меня ими :lool:]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781537 Thu, 25 Oct 2018 17:54:52 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781537

dropWhile p xs = fst $ foldl f z xs

where

f (xs, b) x | b && p x = (xs, True)

f (xs, _) x = (xs ++ [x], False)

z = ([], True)

dropWhile (>3) [4,1,2,3,4,5] // [1,2,3,4,5]

p - предикат, xs - список
Надо преложить на JS. Думаем! :hang:
Хотя пока думаю один я :D]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781440 Wed, 24 Oct 2018 18:32:27 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781440

const drop = (n, xs) => (

xs.reduceRight(({xs, m}, x) => (

(m > 0) ? (xs.unshift(x), {xs, m: m-1}) : {xs, m:0}

), {xs:[], m: xs.length - n}).xs

);

Нравится мне эта шифрограмма! :D]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781362 Wed, 24 Oct 2018 05:25:34 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781362

drop n xs = fst $ foldr f z xs

where

f x (xs, m) | m > 0 = (x:xs, m-1)

f _ (xs, _) = (xs,0)

z = ([], m)

m = length xs - n

получилось длиннее, но более понятно :D

теперь надо перевести на JS :blink:

OK. будем думать.

ПС. в последнее время я стал адептом краткой нотации :D]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781319 Tue, 23 Oct 2018 07:38:08 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781319

function drop(n, array) {

const v = [...Array(n)].map((_,n) => n + 1);

return v.reduce(xs => {

xs.shift();

return xs;

}, [...array]);

}

Объясняю что тут происходит. Я не сразу допедрил как можно это решить без мутации n! :wall:
Сила императивного стиля моск реально морозит :D но после долгих насилований себя я прозрел! :jokingly:

если внимательно посмотреть на код Хаскелля видно что он просто производит свертку по числовому списку, а не по целевому списку! Вот где фокус то был! :blink:
Ну а дальше дело техники, генерирую массив чисел от 1 до n поскольку в JS нет встроенного генератора массива как в Хаскелле и далее делаю свертку хотя это на самом деле не свертка, а простая мутация исходного массива путем выкидывания лишних элементов :D
Все тоже можно было сделать тупо в цикле, но мне хотелось приблизить код к Хаскел-стилю, ну те. к функциональному стилю :blush:

Немного видоизменил код чтобы максимально приблизится к Haskell:

const genN = n => [...Array(n).map((_, n) => n + 1)];

const drop = (n, xs) => genN(n).reduce(xs => (xs.shift(), xs), [...xs]);

Вроде бы уже похоже на функциональный стиль :D]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781232 Mon, 22 Oct 2018 10:32:08 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781232 Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781208 Mon, 22 Oct 2018 08:00:32 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781208 Мде сложно переключаться с функционального на императивный режим, надо тернироваться :D
Вот решение, получается еще проще чем в Хаскелле

function drop(n, array) {

if (n === 0) return array;

if (array.length == 0) return [];

return array.reduce((accum, elem) =>

(n-- > 0) ? accum : [...accum, elem], //<--- ВОТ ТУТ ИЗМЕНЯЕМ n.

[]);

}

или через filter еще проще :D

function drop(n, array) {

if (n === 0) return array;

if (array.length == 0) return [];

return array.filter(() => (n-- <= 0));

}

да и начальные условия тут тоже можно опустить :D

function drop(n, array) {

return array.filter(() => (n-- <= 0));

}

Хотя я погорячился сказав что проще Хаскеля не проще! куда ж еще проще? :blink:

drop n xs = foldl (\(_:xs) _ -> xs) xs [1..n]

Да в JS уже есть функция удаления splice, но моя цель перевести с Haskell на JS в функциональном стиле, хотя в предыдущих вариантах был применен полу императивный стиль, а не фунциональный и решение в Haskell стиле требует еще покумекать :scratch:
ну т.е. сделать без мутации переменной n.]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781150 Sun, 21 Oct 2018 12:14:54 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781150
вот исходная задачка на удаление определенного числа элементов из списка с использованием рекусии:

drop 0 xs = xs

drop _ [] = []

drop n (x:xs) = drop (n-1) xs

а вот та же но через foldl (это аналог reduce в JS)

drop 0 xs = xs

drop _ [] = []

drop n xs = foldl (\xs _ -> tail xs) xs [1..n]

С рекурсией на JS не было проблем

function drop(n, array) {

if (n === 0) return array;

if (array.length == 0) return [];

array.shift();

return drop(n-1, array);

}

drop(1, [1,2,3]) // [2,3]

а вот как сделать тоже но через reduce? :wacko:

Небольшая поправочка в Хаскелле все данные иммутабельны, а у меня тут исходный массив array меняется, что не в Хаскел-стиле! Правим:

function drop(n, array) {

const origin = [...array];

if (n === 0) return origin;

if (array.length == 0) return [];

origin.shift();

return drop(n-1, origin);

}

]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781015 Fri, 19 Oct 2018 12:16:22 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3781015

function quicksort(array) {

if (array.length === 0) return [];

const origin = [...array];

const elem0 = origin.pop();

var res = origin.reduce((aa, elem) => (

(elem < elem0)

? [[...aa[0], elem], aa[1]]

: [aa[0], [...aa[1], elem]]

), [[],[]]);

return [...quicksort(res[0]), elem0, ...quicksort(res[1])];

}

Цикла? :facepalm:
Да-да не удивляйтесь! В JS все равно надо переключаться в императивный режим :jokingly:]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3780999 Fri, 19 Oct 2018 04:50:39 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3780999

function quicksort(array) {

if (array.length === 0) return [];

const origin = [...array];

const elem0 = origin.pop();

const left = origin.filter(elem => elem < elem0);

const right = origin.filter(elem => elem >= elem0);

return [...quicksort(left), elem0, ...quicksort(right)];

}

var nums = [10,2,5,3,1,6,7,4,2,3,4,8,9];

var sortedNums = quicksort(nums);

console.log(nuts); // [ 10, 2, 5, 3, 1, 6, 7, 4, 2, 3, 4, 8, 9 ]

console.log(sortedNums); // [ 1, 2, 2, 3, 3, 4, 4, 5, 6, 7, 8, 9, 10 ]

И все равно императивный стиль JS присутствует :D]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3780868 Wed, 17 Oct 2018 12:38:37 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3780868 Для того чтобы юзать их в функциях высшего порядка, например

const result = [[1,2,3,4,5],[6,7,8,9,10]].map(triples(aa)(bb));

console.log(result);

// [[[ 3, 4, 5 ]], [[ 6, 8, 10 ]]]

ну а на Haskell все проще :D

map (triples aa bb) [[1..5],[6..10]]

// [[(3,4,5)],[(6,8,10)]]

Кто не понял объясняю, каррированная функция передается функции высшего порядка путем частичного применения :blush:

Добавлено 17.10.18, 12:59
Очередной вопрос, вот на Haskell код так называемой быстрой сортировки

quicksort [] = []

quicksort (x : xs) =

quicksort [a | a <- xs, a <= x] ++

[x] ++

quicksort [a | a <- xs, a > x]

как его переделать на JS :wacko:]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3780640 Fri, 12 Oct 2018 11:23:13 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3780640 на JS это будет выглядеть так

// Каррированная версия triples

function triples(aa) {

return bb => {

return cc => {

var v = [];

aa.forEach(a => {

bb.forEach(b => {

cc.forEach(c => {

if ((a*a + b*b) === c*c) {

v.push([a,b,c]);

}

});

return v;

};

}

triples(aa)(bb)(cc);

зачем Хаскель это делает? :blink:
да хз я еще не дошел до этого... вроде бы это связано с его реализацией, а именно лямбда функциями :unsure:
в данном коде на JS это делать не обязательно :D]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3780530 Thu, 11 Oct 2018 12:05:41 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3780530 Еще одна задачка на поиск прямоугольных треугольников, дано три списка с числами от 1 до 10 например, надо найти все совпадения прямоугольных треугольников. На хаскеле изи! :D

aa =[1..10]

bb = [1..10]

cc = [1..10]

triples aa bb cc = [(a,b,c) | a <- aa, b <- bb, c <- cc, a^2 + b^2 == c^2]

Выхлоп

[(4,3,5),(3,4,5),(8,6,10),(6,8,10)]

Как теперь это на JS написать? :wacko:

Добавлено 11.10.18, 13:02
Переключил моск с функционального на императивный режим :lool:
Оказывается тут идет тупой перебор по трем циклам :D

const aa = [1,2,3,4,5,6,7,8,9,10];

const bb = [1,2,3,4,5,6,7,8,9,10];

const cc = [1,2,3,4,5,6,7,8,9,10];

function triples(aa, bb, cc) {

var v=[];

aa.forEach(a => {

bb.forEach(b => {

cc.forEach(c => {

if ((a*a + b*b) === c*c) {

v.push([a,b,c]);

}

});

return v;

}

]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3780435 Wed, 10 Oct 2018 08:13:41 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3780435

function mixin(nouns, adjs) {

return nouns.reduce((a, noun) => {

const v = adjs.map(adj => {

return adj + ' ' + noun;

});

return [...a, ...v];

}, []);

}

На хаскелле как то более проще думать такие задачи, лямбда исчисление рулит! :whistle:

Haskell:

mixin nouns adjs = [adj ++ " " ++ noun | adj <– adjs, noun <– nouns]

Так изменил в более функциональный стиль JS, но все равно не так очевидно как на Хаскеле :D

const mixin = (nouns, adjs) => nouns.reduce((a, noun) => [...a, ...adjs.map(adj => adj + ' ' + noun)], []);

]]> Cfon JavaScript, DOM/DHTML https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3780356 Tue, 09 Oct 2018 07:01:23 +0000 Изучаю Haskell https://forum.sources.ru/index.php?showtopic=413629&view=findpost&p=3780356
начал изучать Haskell :D
вот пытаюсь перевести на JS код с Haskell но тока в функциональном стиле JS

nouns = ["frog","raven","ribbit"]

adjectives = ["lazy","angry","tiny","happy","shy"]

mixin nouns adjectives = [adj ++ " " ++ noun | adj <– adjectives, noun <– nouns]

Выхлоп

[ "lazy frog","angry frog","tiny frog","happy frog","shy frog",

"lazy raven","angry raven","tiny raven","happy raven","shy raven",

"lazy ribbit","angry ribbit","tiny ribbit","happy ribbit","shy ribbit" ]

Пробую через Array,reduce, пока стена :wall:]]> Cfon JavaScript, DOM/DHTML