$<.map{|a|n=a.to_i b=15 b+=1until(r=(m,v=n,[] (v<<m%b m/=b)while m>0 v)).count(14)>1&&r.each_cons(3).any?{|s|s==[14,14,11]} p b}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page