Burrows-Wheeler transform in J

[_navi_]

До 3 ночи пытался написать BWT на J. Первый вариант написал относительно быстро, но он состоял из трёх отдельных глаголов, а хотелось написать «чтоб модно»: одной строкой, без явных ссылок на переменные (эдакий point-free стиль). Так как J я практически не знаю, а документация по словам в J меня до сих пор приводит в ужас, написать point-free у

Comments

[antilamer]

А слабо алгоритм, который за O(n log n)? :)

// круто было бы написать статью, состоящую чисто из разборов десятка примеров алгоритмов на J

[_navi_]

А слабо алгоритм, который за O(n log n)? :)

Дяденька, я не настоящий сварщик :-)

Пошёл читать, как сделать O(n log n).

[antilamer]

Кажется, получилось более читаемо :grin:

({. & /: & /: ; {:"1 @: /:~) (i.&# |."0 _ ]) s
┌─┬──────┐
│3│NNBAAA│
└─┴──────┘

[_navi_]

Можно левую часть элегантнее: ((i.&0)&/:)

[antilamer]

Точно! Я просто вспомнил идиому /:/: и решил выпендриться :)

[_navi_]

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