| µ¥ÀÌÅÍ : ºÎÀ¯¹° Data :: FloatÀº ºÎµ¿ ¼Ò¼öÁ¡ µ¥ÀÌÅÍ À¯ÇüÀÇ ¼¼ºÎ »çÇ×ÀÌÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
µ¥ÀÌÅÍ : ºÎÀ¯¹° ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~zefram/
µ¥ÀÌÅÍ : ºÎÀ¯¹° ű×
µ¥ÀÌÅÍ : ºÎÀ¯¹° ¼³¸í
Data :: FloatÀº ºÎµ¿ ¼Ò¼öÁ¡ µ¥ÀÌÅÍ À¯ÇüÀÇ ¼¼ºÎ »çÇ×ÀÌÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. Data :: FloatÀº ºÎµ¿ ¼Ò¼öÁ¡ µ¥ÀÌÅÍ À¯Çü¿¡ ´ëÇÑ ÀÚ¼¼ÇÑ ³»¿ëÀ» °®´Â Perl ¸ðµâÀÔ´Ï´Ù. µ¥ÀÌÅÍ :: Float QW (have_signed_zero); if (have_signed_zero) {... # ¹× ´Ù¸¥ ¸¹Àº »ó¼ö; ÅؽºÆ® »ç¿ë µ¥ÀÌÅÍ :: Ç÷ÎÆ® QW (float_class float_is_normal float_is_subnormal float_is_nzfinite float_is_zero float_is_is_is_infinite float_is_nan float_is_nan); $ class = float_class ($ °ª); if (float_is_normal ($ value)) {... if (float_is_subnormal ($ °ª) {... if (float_is_nzfinite ($ value)) {... if (float_is_zero ($ °ª)) {... if ( float_is_finite ($ value)) {... if (float_is_infinite ($ value)) {... if (float_is_nan ($ value)) {... data :: float qw (float_sign signbit float_parts); $ sign = float_sign ($ value); $ sign_bit = signbit ($ value); ($ SIGN, $ ENGONENT, $ SURIPLAND ¹×) = float_parts ($ value); µ¥ÀÌÅÍ :: Ç÷ÎÆ® QW (float_hex hex_float); PRINT FLOAT_HEX ($ °ª); $ value = hex_float ($ string); µ¥ÀÌÅÍ :: Ç÷ÎÆ® QW (float_id_cmp totalorder); @sorted_floats = Á¤·Ä {float_id_cmp ($ a, $ b)} @floats; if (TotalOrder ($ a, $ b)) {... Data :: Float QW (Pow2 Mult_Pow2 CopSyne NextDown NextDown NextWowter)¸¦ »ç¿ëÇϽʽÿÀ. $ x = POW2 ($ EXP); $ x = mult_pow2 ($ °ª, $ EXP); $ x = copysign ($ Å©±â, $ sign_from); $ x = NEXTUP ($ x); $ x = NEXTDOWN ($ x); $ x = NextAfter ($ x, $ ¹æÇâ); ¿ä±¸ »çÇ× : ¡¤ Perl.
µ¥ÀÌÅÍ : ºÎÀ¯¹° °ü·Ã ¼ÒÇÁÆ®¿þ¾î