読者です 読者をやめる 読者になる 読者になる

Tamflexの貯蔵庫

やる気のない備忘録

aoj 0058

直交 | Aizu Online Judge

  • やる気のないコード(110byte)
#!ruby -n
l=$_.split.map(&:to_f)
puts ((l[3]-l[1])*(l[7]-l[5])+(l[2]-l[0])*(l[6]-l[4])).abs<1e-12? 'YES': 'NO'
  • すごい答え(91byte)
$<.map{|s|a,b,c,d,e,f,g,h=s.split.map(&:to_f);puts ((d-b)*(h-f)+(c-a)*(g-e))==0?"YES":"NO"}