Resistor mesh: Difference between revisions

m
m (→‎{{header|Perl 6}}: flatten output from cross operators)
m (→‎{{header|Sidef}}: updated code)
Line 1,261:
var total_diff = 0
for i,j in (^h ~X ^w) {
var pw = n[i][j].map { |a| v.dig(a...) }.sum
vard[i][j] = (w = 0(v[i][j] - w/n[i][j].len))
p.each { |a| w += v.dig(a...) }
d[i][j] = (w = (v[i][j] - w/p.len))
f[i][j] || (total_diff += w*w)
}
2,747

edits