From: Masahiro Tanaka <masa@...>
Date: 2001-03-13T01:22:48+09:00
Subject: [ruby-dev:12439] Re: [ruby-talk:12373] Re: Math package

>From: matz@zetabits.com (Yukihiro Matsumoto)
>Subject: [ruby-dev:12429] Re: [ruby-talk:12373] Re: Math package

> |ていうことなので、パッチ書きました。availabilyは私も把握してませ
> |んが、math.h に書いてある分類を参考にしました。
> 
> ありがとうございます。1.7.0で取り込んで様子を見てみようと思
> います。

お願いしまーす。

> |hypot はない可能性がありそうですが、あると便利なので、
> |[ruby-talk:12404] を関数にしたものを missing に加えました。
> 
> 助かります。これpublic domainということで構いませんか？

結構です。コメントにもそう書きましたし。
と思ってコードを見たら、早速バグがありました。
すみませんすみません。

田中昌宏

diff -u20 hypot.c~ hypot.c
--- hypot.c~    Sun Mar 11 18:16:23 2001
+++ hypot.c     Mon Mar 12 11:08:50 2001
@@ -1,16 +1,17 @@
 /* public domain rewrite of hypot */
 
 #include <math.h>
 
 double hypot(x,y)
     double x, y;
 {
     if (x < 0) x = -x;
     if (y < 0) y = -y;
     if (x < y) {
        double tmp = x;
        x = y; y = tmp;
     }
+    if (y == 0.0) return x;
     y /= x;
     return x * sqrt(1.0+y*y);
 }