テキストファイルをbrainf*ckにエンコードするスクリプト。とりあえず思いつくままに書いた。

brain.rb

def square op,len
  s = (len**(0.5)).to_i
  t = (s<8)? "+"*s : square("+",s)
  m = len - (s**2)
  m = (m< 8) ? op * m : square( op,m)
  ">"+t+"[<"+op*s+">-]<"+m
end


def encode ch,point
  if ch > point 
    if ch - point >= 8
      str = square("+",(ch - point))
      [str+".",ch]
    else
      ["+"*(ch - point)+".",ch]
    end
  elsif ch < point
    if point - ch >= 8
      str = square("-",(point - ch))
      [str+".",ch]
    else
      ["-"*(point -ch)+".",ch]
    end
  else
    [".",point]
  end
end


file = File.open(ARGV[0])
point = 0
str = ""
file.each do |line|
 line.each_byte do |ch|
   tmp,point = encode ch,point
   str += tmp
 end
end

str2 = ""
str.split("<>").each do |s|
 str2 += s
end
puts str2