hundredsgolf.rb

#f '123456789',100

def f(d,t)
  a=[]
  0.upto(3**(d.size-1)).map do |n|
    l,n=[d,n.to_s(3)].map {|t| t.chars.map(&:to_i)}
    k,m,z=[l.shift],1,1
    l.map {|i| o=n.pop||0;z=(1-(o&1)*2); o&2>0 ? k<<k.pop*10+i*m : k<<i*m=z }
    a<<k.join(?+).gsub('+-',?-) if k.reduce(&:+)==t
  end
  a
end

if __FILE__ == $0
  p f('123456789', 100)
end