- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
-- GUESS THE NAME OF "algorithmX":
import qualified Data.List as DL
infinity = 1/0
adjacencyMatrix =
[[0,3,1,6,0,0],
[3,0,5,0,3,0],
[1,5,0,5,6,4],
[6,0,5,0,0,2],
[0,3,6,0,0,6],
[0,0,4,2,6,0]] :: [[Double]]
replaceZerosWithInfinity matrix =
map (map (\e -> if e == 0 then infinity else e)) matrix
type Edge = (Int,Int,Double)
algorithmX adjacencyMatrix initialVertex = (minimumTotalCost,minimumEdges)
where
third (_,_,t) = t
minimumTotalCost = sum $ map third minimumEdges
(_,minimumEdges) = foldl iterate ([initialVertex],[]) [1..n-1]
matrix = replaceZerosWithInfinity adjacencyMatrix
n = length matrix
getIndexes visited =
filter (\(i,j) -> not $ elem j visited) [(i,j) | i <- visited, j <- [0..n-1]]
iterate :: ([Int],[Edge]) -> Int -> ([Int],[Edge])
iterate (visited,edges) iteration = (newVisited:visited,minimumEdge:edges)
where
(_,newVisited,_) = minimumEdge
minimumEdge = DL.minimumBy compareEdges $ map newEdge (getIndexes visited)
newEdge (i,j) = (i,j,matrix !! i !! j)
compareEdges e0 e1 = compare (third e0) (third e1)
удивило, что в прилюде из коробки нет replace
Вникать лень
Я предложил юзать kruskal's mst
А таки можно не предлагать таких больших функций?
Написано на скучном митинге, наверняка можно многое улучшить. Запилил свой UF и incidence list:
> А таки можно не предлагать таких больших функций?
Сделай короче (не в ущерб понятности), жду пулл-реквест.
Эх, как же хорошо окунуться в хаскель после ебаного ксамарина...
З.Ы. Ну Qt разве что.
"java.exe" exited with code 2
Так же потрясающие штуки - "я не буду деплоиться, иди нахуй" или черного экрана вообще без какой либо инфы об ошибках
Ты только что описал половину пофиксанных мной багов 😉
https://habrahabr.ru/post/188130/
---
Для Android интереснее. При компиляции приложения происходит перевод кода на C# в промежуточный байт-код, понятный виртуальной машине Mono и сама эта виртуальная машина также добавляется в упакованное приложение. И Mono и Dalvik написаны на Си и работают поверх ядра Linux (а мы помним, что Android основана на Linux).
---
Но причем тут тогда жава?
кордова, нейтивскрипт
но мы тоже выбрали замарин
a=:(/:{:@>)graph
kruskal =: a#~>&0@+/"1@((3 2)&$)@(<#)@((i.&#@]i.~]#~#>])@]i.i.@#)@,(}:@>)a
но там где то что то по дороге наебнулось и кароч не работает
хер отдебажишь
a=:(/:{:@>)graph
kruskal=:a#~>&0@+/"1@($~(,&2)@-:@#)@(<#)@((i.&#@]i.~]#~#>])@]i.i.@#)@,(}:@>)a
таки отладил. Юледь, в 100раз проще, чем бороться с багами ксамарина
Сканер памяти обнаружил вредоносную программу! Очень опасно работать на компьютере, в памяти которого активен вирус. Рекомендуется назначить загрузочное сканирование.
Поэтому намёки Грэма Хэнкока о том, что он передаёт нам наследие наших предков, – это издёвка. Почему Грэм Хэнкок не возмущается, что Сионо-Нацисты Украины сейчас утюжат Градами мегалитические пирамиды в Луганске?
Вообще говоря, в этой функции как раз самое смешное. Причём даже не в реализации (твоя с liftM2 мне нравится ещё меньше, кстати), а в идее. Из-за того, что код перебирает O(n^2) ребёр на каждой из n-1 итераций, алгоритм становится O(n^3), хотя мог бы быть O(e * log n).
Ну и самый цимус: если подать на вход несвязный граф, алгоритм зарепортит бесконечную стоимость и перечислит рёбра бесконечного веса.
А чем тебе лифт лифтов неугодил?
Indices!
https://en.wiktionary.org/wiki/moduli
https://en.wiktionary.org/wiki/formulae
ну это уже блядство
(compare `on` third) e0 e1