Pergunta
Eu sou novo para Erlang, por favor, perdoe a minha naïvety.
Eu estou tentando re-escrever funções que me foram escritos em outras línguas.Uma delas é a de jaccard bits de índice.
em python haskell e clojure funcionaria da seguinte forma:
xs = [1,1,0,0,1,1,0,0,1,1,0,0]
ys = [1,0,1,0,1,0,1,0,1,0,1,0]
# python 3.X
def jaccard_bit_index(A,B):
i = sum(map(operator.mul ,A,B))
return i / (sum(A) + sum(B) - i)
-- haskell
jaccrd_bit_index a b =
count / ((sum a) + (sum b) - count)
where
count = sum $ zipWith (*) a b
%% clojure
(defn jaccard-bit-index [a b]
(let [binarycount (apply + (map * a b))]
(/ binarycount
(- (+ (apply + a) (apply + b))
binarycount))))
Eu acho que o meu problema é que eu só sei de Erlang da
map(Fun, List1) -> List2
e cada vez que eu ter feito isso antes de eu ter utilizado objeto semelhante a:
map(Fun, List1, List2) -> List3
Solução
Eu aposto que você está procurando é o zipwith
função da list
módulo (http://www.erlang.org/doc/man/lists.html).Ele é semelhante ao zipWith
haskell função que você usou, e tem o tipo:
zipwith(Combine, List1, List2) -> List3
Você provavelmente vai usar algo como:
Count = lists:sum(lists:zipwith(fun(X, Y) -> X*Y end, A, B))
Licenciado em: CC-BY-SA com atribuição
Não afiliado a StackOverflow