lang_mutable.rb

langs = %w{bfkegkudem kfpozexksm owfmkcnyvl rahgdgzhwv bukisteksg fxjeegggdx qejjzctbti qvigekhpog bvsqmvedya ewrgfpfrlu
bzvuzuanzo zhxcmwkizu ohxyodxkyv oomrfibhfw fzegixttqa kxdzqivfhl hniomtqdqr apphyuifwj ujfcrapeyx djgrcxqrux
rvtvpxbnzx bziseafhdp mofuvdculv nffrquughc gwrrvndjur mvzqilbvpi mpptidaosr lfgaxqtduu ldyzyofyar xtgkueabdj
wqhmxhcasa yxeoufxrry sphdgsweik hhunpqjpnz fnkkbvirll ncdmbrcvqi hctoategou mqtdyycvun afncjfmngf wjxyvhcsuz
puefxeidio nyfllolsvw ghjygztrnv folnzvecis uvtannbdjx jurkwqiavv wmfpexcqch ugmptanwdn eslmaaefez jxqcpsvvwu
fellmtwzsw nixzgduncg vupbjbdqke olbdbzufhe pxygpqdwoi jkhjwnpvqz ywludqlmlw kqulfxgqiv wvujqpjjwt wkmwuyazjo
mqkqtwbzxv dfeleuxjlt rgoobzxbfr pyykqgaoid qcwdcogibq kwospdrebi fbyhvdjrey uakluudovp eglxbpqtkj nxqpeffrvb
rlehisdiuy rhhexyshob flpxyqcjcy indkhpjugw qaoclhadbf ctfhonsqll mvehaiypoq joegipqmds qsblkvrxky abmhqmwnxy
zduqzarnxr nuygfvuzge qapxbfzggm yhpeuenslm huknmeiolq noxfaqgmms qovhnrrkju kdvrccwzeh jsvdszywda ldqejpsnsk
bqhdoixppa pqpckcqthi rsdossixfr ejbqzelpbg erhhdsoqew spznwflpmw czimafdwqj xeekcxcmov wtcjahwfig qbjkmvjtqw
}

arr = langs.each_slice(10).to_a

def score_langs(a, b)
  a.each_char.zip(b.each_char).find_all {|i,j| i == j }.size
end

def neighbors(arr, i, j)
  res = []
  ((i-1) .. (i+1)).find_all { |a| a>-1 && a<10 }.each do |a|
    ((j-1) .. (j+1)).find_all { |b| b>-1 && b<10 }.each do |b|
      next if a == i && b == j
      res << [a, b]
    end
  end
  res
end

def neighbors_langs(arr, i, j)
  neighbors(arr, i, j).map { |a, b| arr[a][b] }
end

def score(arr)
  res_score = (0..9).map { (0..9).map { 0 }}
  arr.each.with_index do |row, i|
    row.each.with_index do |e, j|
      score = 0
      neighbors_langs(arr, i, j).shuffle[0..2].each do |n|
        score += score_langs(e, n)
      end
      res_score[i][j] = score
    end
  end
  res_score
end

def mutate(arr, score)
  arr.each.with_index do |row, i|
    row.each.with_index do |e, j|
      score = score[i][j]
      cands = neighbors(arr, i, j).sort_by { |a,b| score[a][b] }.reverse.map { |a,b| arr[a][b] }
      cands.each do |n|
        pos = rand(0..9)
        e[pos] = n[pos]
      end
    end
  end
  arr
end

(0..2000).each do
  mutate(arr, score(arr))
  arr.each do |row|
    puts row.join("   ")
  end
  puts
end