From: Phil Tomson <rubyfan@...>
Date: 2006-07-16T02:35:24+09:00
Subject: Re: Who likes Sudoku?

On 7/15/06, studlee2@gmail.com <studlee2@gmail.com> wrote:
> Smaller still.  Thanks David/Daniel:
>
> $p = ARGV.shift.split(//)
>
> def s
>   h=Hash.new()
>   80.times do |j|
>     next if $p[j].to_i!=0
>
> 80.times{|k|h[k.to_i/9==j/9||k.to_i%9==j%9||k.to_i/27==j/27&&k.to_i%9/3==j%9/3?$p[k.to_i]:0]=1}
>     1.upto(9){|v|next if h.has_key?(v.to_s);$p[j]=v.to_s;s}
>       return $p[j]=0;
>   end
>   return (puts "\nSolution:#{$p}")
> end
>
> s
>
change  h=Hash.new() to h={}

Phil