Tương đương perl của MAX_INT là bao nhiêu?

Question

Tôi mới dùng perl và tìm giá trị thấp nhất trong một @array. Có một số hằng số đại diện cho một số nguyên rất lớn không?

Tôi biết tôi có thể sắp xếp mảng và bắt đầu, nhưng dường như có rất nhiều chu kỳ CPU bị lãng phí. Một giải pháp thanh lịch cho vấn đề của tôi trong Perl là gì?

Answer 1

Trong trường hợp chung, bạn có thể sử dụng undef để báo hiệu giá trị không tồn tại; perl vô hướng không bị giới hạn để giữ chỉ số nguyên. Điều đó sẽ được viết:

my $min; # undef by default 
for my $value (@array) { 
    $min = $value if !defined $min or $value < $min; 
} 

Nhưng có một số tùy chọn đơn giản hơn tại đây. Ví dụ, khởi $min với giá trị đầu tiên trong mảng, sau đó so sánh với phần còn lại:

my $min = $array[0]; 
for my $i (1 .. $#array) { 
    $min = $array[$i] if $array[$i] < $min; 
} 

Hoặc chỉ cần sử dụng một hàm built-in:

use List::Util 'min'; 
my $min = min @array; 

Answer 2

Giá trị số nguyên lớn nhất perl có thể lưu trữ là 9,007,199,254,740,992

Tôi không biết liệu có liên tục cụ thể cho điều đó hay không.

Answer 3

9**9**9 công trình. Vì vậy, không 0+'inf' trên nhiều phiên bản/nền tảng của perl.

Answer 4

Perl không phải là C; nếu bạn cố gắng tính toán một số nguyên quá lớn, bạn sẽ nhận được kết quả dấu phẩy động thay thế (trừ khi bạn use bigint, làm cho số nguyên không bị chặn). Ngoài ra, bạn nhận được inf.

Bạn có thể thấy điều này với Devel::Peek, trong đó cho thấy bạn trình bày nội Perl của một giá trị:

$ perl -E 'use Devel::Peek; Dump(1000); Dump(1000**100); Dump(1000**100 + 1)' 
SV = IV(0xcdf290) at 0xcdf2a0 
    REFCNT = 1 
    FLAGS = (PADTMP,IOK,READONLY,pIOK) 
    IV = 1000 
SV = NV(0xd04f20) at 0xcdf258 
    REFCNT = 1 
    FLAGS = (PADTMP,NOK,READONLY,pNOK) 
    NV = 1e+300 
SV = NV(0xd04f18) at 0xcdf228 
    REFCNT = 1 
    FLAGS = (PADTMP,NOK,READONLY,pNOK) 
    NV = 1e+300 

IV chỉ ra một giá trị số nguyên; NV cho biết giá trị dấu phẩy động (Số?).

Bạn chắc chắn nên sử dụng một công cụ phù hợp với mục đích của bạn thay vì hack mờ; List::Util::min như đã đề cập trong câu trả lời khác là tuyệt vời. Chỉ cần nghĩ bạn có thể muốn xác nhận về câu hỏi của bạn ban đầu :)

Answer 5

Để trả lời cho bạn những câu hỏi mà bạn thực sự yêu cầu (mặc dù nó không thực sự sử dụng cho bạn):

1. giá trị số nguyên lớn nhất có thể được lưu trữ dưới dạng số nguyên đã ký.

   say ~0 >> 1; 
   

2. Giá trị nguyên lớn nhất có thể được lưu trữ dưới dạng số nguyên không dấu.

   say ~0; 
   

3. Tất cả giá trị nguyên từ 0 đến số này có thể được lưu trữ mà không bị mất dưới dạng số dấu phẩy động.

   Lưu ý rằng một số số nguyên lớn hơn có thể được lưu trữ mà không bị mất số dấu phẩy động, chứ không phải số 1 cao hơn số này.

Answer 6

đây: http://www.perlmonks.org/?node_id=718414

tôi nhận được câu trả lời rằng tôi có thể xác minh trên Linux 64

18.446.744.073.709.551.615 = (2^64) -1