Viết chương trình hoặc hàm tạo ra một Lif chạy trên một kiến ​​trúc endian nhỏ hoặc Bnếu chạy trên một kiến ​​trúc endian lớn. Đầu ra chữ thường lhoặc bcũng được chấp nhận.

Không có đầu vào.

Ghi điểm là mã golf, vì vậy mã có ít byte nhất sẽ thắng.

Chỉnh sửa: Theo các bình luận bên dưới, tôi làm rõ rằng mục nhập phải có thể chạy trên một trong hai kiến ​​trúc.

Tôi tin rằng chỉ có một câu trả lời mà điều này ảnh hưởng và câu trả lời đó đã chỉ ra rõ ràng rằng đây là trường hợp.

Python, 33 byte

import sys
exit(sys.byteorder[0])

sys.byteorderlà 'little'hoặc 'big'(và đối với những người bạn sẽ đọc câu này mà không cần nhìn vào mã, [0]có nghĩa là lấy ký tự đầu tiên).

C, 26 byte

a=66<<24|76;f(){puts(&a);}

Giả sử các intký tự 32-bit và ASCII. Đã thử nghiệm trên amd64 (little endian) và mips (big-endian).

GCC, 23 byte

00000000: 613d 2742 0000 4c27 3b66 2829 7b70 7574  a='B..L';f(){put
00000010: 7328 2661 293b 7d                        s(&a);}

Được đề xuất bởi frageum. Giá trị của hằng số đa ký tự phụ thuộc vào triển khai, nhưng điều này dường như hoạt động trong GCC. Đã thử nghiệm trên cùng một kiến ​​trúc.

MATLAB / Octave, 24 byte

[~,~,e]=computer;disp(e)

Các computerchức năng cung cấp thông tin về, tốt, máy tính nó đang chạy trên. Đầu ra thứ ba là endianness: Lhoặc Btương ứng với ít hoặc cuối lớn.

Hãy thử nó trên Ideone .

JavaScript ES6, 50 byte

_=>"BL"[new Int8Array(Int16Array.of(1).buffer)[0]]

Tôi không biết ai đã quyết định rằng đó là một ý tưởng tốt cho các đối tượng TypedArray để phơi bày tính cuối cùng của người phiên dịch, nhưng chúng ta ở đây.

C, 36 35 byte

1 byte nhờ @algmyr và @owacoder.

main(a){printf(*(char*)&a?"L":"B");}
main(a){putchar(66+10**(char*)&a);}
main(a){putchar("BL"[*(char*)&a]);}

• Phiên bản 1: Ideone nó!
• Phiên bản 2: Ideone nó!
• Phiên bản 3: Ideone nó!

Tín dụng ở đây .

Chưa được kiểm tra vì tôi không có máy móc lớn.

Toán học, 22

{B,L}[[$ByteOrdering]]

Điều này có thể phá vỡ một số quy tắc về việc không sử dụng chức năng tích hợp nhưng tôi không thực sự quan tâm đến việc thay thế vàng.

C, 27

Một byte dài hơn, nhưng đây là dù sao:

f(){putchar(htons(19522));}

Mã máy PowerPC - 20 byte

PowerPC là bi-endian (endian có thể được thiết lập khi khởi động), vì vậy mã này phải phù hợp với yêu cầu thách thức là có thể chạy cả trên máy BE và LE. Đây là một hàm trả về ¹ 'L' hoặc 'B'tùy thuộc vào độ bền hiện tại được đặt.

Là một chức năng, AFAICT nó phù hợp với SVR4 PowerPC ABI (được Linux sử dụng trên ppc32), PowerOpen ABI (được sử dụng bởi AIX) và OS X ABI. Cụ thể, nó chỉ dựa vào thực tế rằng GPR 0 là một thanh ghi cào dễ bay hơi và GPR 3 được sử dụng để trả về các giá trị "nhỏ".

00000000 <get_endian>:
   0:   7c 00 00 a6     mfmsr   r0
   4:   54 03 0f fe     rlwinm  r3,r0,1,31,31
   8:   1c 63 00 0a     mulli   r3,r3,10
   c:   38 63 00 42     addi    r3,r3,66
  10:   4e 80 00 20     blr

Bây giờ, nó như thế này:

• các MSR được đọc vào GP đăng ký 0; MSR chứa ở bit 31 cài đặt endianness (0 = big endian; 1 = little endian);
• rlwinmchỉ trích xuất bit đó: nó lấy giá trị trong GPR0, r otates l eft 1 vị trí (để bây giờ ở vị trí 0) và m yêu cầu nó với 1 (mặt nạ được tạo bởi 31,31 ² ); kết quả được đưa vào thanh ghi GP 3;
• nhân kết quả với 10 và tổng 66 ( 'B') (10 là chênh lệch giữa 'L'và 'B')
• cuối cùng, trở lại với người gọi

Ghi chú

1. vâng, câu hỏi không yêu cầu in , nhưng không rõ tôi nên in thứ gì trong lắp ráp dự kiến ​​sẽ chạy không thay đổi trên các hệ điều hành khác nhau. =)

2. Đối với những người quan tâm, xem tài liệu rlwinm ; Không biết gì về PowerPC, tôi thấy loại hướng dẫn này cực kỳ thú vị.

   Cập nhật 2018 : Raymond Chen đang xuất bản một loạt về kiến ​​trúc PowerPC, bạn có thể tìm thấy ở đây bài viết tuyệt vời của anh ấy về rlwinm& bạn bè.

Java 8, 96, 64 52 byte

()->(""+java.nio.ByteOrder.nativeOrder()).charAt(0);

Một golf dựa trên câu trả lời SO này . Tất cả tín dụng được chuyển đến @LeakyNun và @AlanTuning. Java giữ cho vệt mất.

96 byte:

 char e(){return java.nio.ByteOrder.nativeOrder().equals(java.nio.ByteOrder.BIG_ENDIAN)?'b':'l';}

64 byte:

char e(){return(""+java.nio.ByteOrder.nativeOrder()).charAt(0);}

Chưa được kiểm tra b / c Tôi không có quyền truy cập vào một máy cuối lớn.

Perl, 38 36 byte

say+(pack"L",1 eq pack"V",1)?"L":"B"

Hoạt động bằng cách đóng gói một số theo thứ tự byte mặc định của hệ thống và so sánh nó với một số được đóng gói theo thứ tự byte cuối nhỏ.

(G) Forth, 24 byte

here $4200004C , c@ emit

Giả sử rằng các ô là 32 bit (và trình thông dịch Forth của bạn hỗ trợ các tiền tố cơ sở của Gforth ). Nó chỉ đơn giản là lưu trữ số 0x4200004C trong bộ nhớ và sau đó hiển thị byte ở mức thấp.

C, 34 byte

Điều này giả định mã hóa ký tự ASCII

main(a){putchar(66+10**(char*)a);}

Gọi mà không tranh luận.

Giải trình:

Khi có cuộc gọi, asẽ có 1. *(char*)atruy cập byte đầu tiên a, trên các nền tảng endian nhỏ sẽ là 1, trên các nền tảng lớn sẽ là 0.

Do đó, trên các nền tảng lớn, mã này sẽ chuyển 66 + 10 * 0 = 66 tới putchar. 66 là mã ASCII cho B. Trên các nền tảng nhỏ, nó sẽ vượt qua 66 + 10 * 1 = 76, đây là mã ASCII L.

C #, 60 52 byte

C # là cạnh tranh đáng ngạc nhiên trong cái này.

char e=>System.BitConverter.IsLittleEndian?'L':'B';

Tín dụng cho Groo cho cú pháp C # 6.

60 byte:

char e(){return System.BitConverter.IsLittleEndian?'L':'B';}

Julia, 24 19 byte

()->ntoh(5)>>55+'B'

Đây là một hàm ẩn danh không có đầu vào và trả về a Char. Để gọi nó, gán nó cho một biến. Nó giả định rằng số nguyên là 64 bit.

Các ntohchức năng chuyển đổi endianness giá trị được truyền cho nó từ trật tự mạng byte (về cuối lớn) để được sử dụng bởi các máy chủ. Trên các máy endian lớn, ntohlà chức năng nhận dạng do không có chuyển đổi nào được thực hiện. Trên các máy endian nhỏ, các byte được hoán đổi, vì vậy ntoh(5) == 360287970189639680. Đó cũng là, có lẽ dễ đọc hơn, bằng: 0000010100000000000000000000000000000000000000000000000000000000trong nhị phân.

Nếu chúng ta thay đổi đúng kết quả của ntoh(5)55, chúng ta sẽ nhận được 0 trên các máy endian lớn và 10 trên các máy endian nhỏ. Thêm vào hằng số ký tự 'B', chúng ta sẽ nhận được 'B'hoặc 'L'cho các máy endian lớn hoặc nhỏ tương ứng.

Đã lưu 5 byte nhờ FryAmTheEggman và Dennis!

PHP 5.6, 41 31 byte (thx đến isertusernamehere)

<?=unpack(S,"\x01\x00")[1]-1?B:L;

PHP 7, 41 byte

echo unpack('S',"\x01\x00")[1]-1?'B':'L';

Ý tưởng bị đánh cắp từ: https://stackoverflow.com/a/24785578/2496717

Lisp thông thường, 27 byte

Đã thử nghiệm trên SBCL và ECL. Đối với một phương pháp di động, người ta nên sử dụng các tính năng tầm thường .

(lambda()'L #+big-endian'B)

Các #+ký hiệu là một điều kiện đọc thời gian , mà đọc các hình thức tiếp theo chỉ khi biểu thức điều kiện để đánh giá đúng. Ở đây điều kiện là toàn bộ #+big-endianvăn bản có nghĩa là thử nghiệm được thỏa mãn nếu :big-endiantừ khóa thuộc *FEATURES*danh sách (một danh sách chứa trong số những thứ khác thông tin cụ thể về nền tảng). Biểu thức sau đây là 'B, được đọc hoặc bỏ qua theo kết quả của bài kiểm tra. Nếu nền tảng của bạn là big endian và bạn viết mẫu ở trên trong REPL, thì chính xác như thể bạn đã viết như sau:

CL-USER>(lambda()'L 'B)

^{(NB. CL-USER>Là lời nhắc)}

Phần thân của hàm là một ẩn PROGN, nghĩa là chỉ đánh giá biểu thức cuối cùng được trả về. Vì vậy, trên thực tế trả về biểu tượng B. Tuy nhiên, nếu điều kiện thời gian đọc đánh giá là sai, biểu mẫu sẽ đọc như thể bạn đã viết:

CL-USER>(lambda()'L)

... mà chỉ đơn giản là trả lại biểu tượng L.

ARMv6 trở lên: mã máy 20 byte

0xE10F1000 : MRS   r0,CPSR        ; read current status register
0xE3110C02 : TST   r0,#1<<9       ; set Z flag if bit 9 set
0x03A0004C : MOVEQ r0,#'L'        ; return 'L' if Z clear
0x13A00042 : MOVNE r0,#'B'        ; return 'B' if Z set
0xEBxxxxxx : BL    putchar        ; print it (relative branch)

Chưa được kiểm tra, vì tôi không có máy phù hợp. Bit 9 của CPSR cung cấp cho tuổi thọ tải / lưu trữ hiện tại.

Perl 5, 21 + 1 = 22 byte

Chạy với perl -E.

say ord pack(S,1)?L:B

Đã thử nghiệm trên amd64 (little endian) và mips (big-endian).

R, 28 23 byte

substr(.Platform$endian,1,1)

.Platform$endiantrả về bignếu chạy trên endian lớn và littlenếu ít. Ở đây, bằng cách sử dụng substr, nó trả về chữ cái đầu tiên của đầu ra, hoặc là bhoặc l.

Là endianđối tượng duy nhất bắt đầu với một eđối tượng .Platformcó trong đối tượng, chúng ta có thể giảm nó nhờ khớp một phần với mã 23 byte sau:

substr(.Platform$e,1,1)

Clojure, 46 44 byte

#(nth(str(java.nio.ByteOrder/nativeOrder))0)

Đây là một chức năng sử dụng dựng sẵn Java để có được độ bền của máy. Sau đó, lấy đại diện chuỗi của nó sẽ là "LITTLE_ENDIAN"hoặc "BIG_ENDIAN"và lấy ký tự đầu tiên của bất kỳ chuỗi nào được chọn và trả về chuỗi đó.

Đã lưu 2 byte nhờ @ cliffroot .

Hồng ngọc 3130 ký tự.

puts [1].pack("s")>"\01"??L:?B

Hmm, phải là một cách tốt hơn. Đếm ít hơn 5 ký tự nếu char không cần xuất ra như tôi nghĩ các giải pháp khác bỏ qua in. tức là loại bỏ phần "đặt" nếu bạn không muốn in bất cứ thứ gì.

Bash (và các shell unix khác), 32 (33) byte

Nỗ lực thứ nhất và thứ hai:

case `echo|od` in *5*)echo B;;*)echo L;;esac # portable
[[ `echo|od` =~ 5 ]]&&echo B||echo L         # non-portable

Nhờ Dennis, phiên bản ngắn hơn:

od<<<a|grep -q 5&&echo L||echo B  # non-portable
echo|od|grep -q 5&&echo B||echo L # portable

Các echotiện ích kết quả đầu ra một dòng mới, với giá trị hex 0A, và không có đầu ra khác. Đối với <<<anó là 61 0A.

Theo odmặc định, tiện ích diễn giải đầu vào dưới dạng các từ hai byte, không đệm nếu số byte là số lẻ và chuyển đổi thành bát phân. Điều này dẫn đến kết quả đầu ra của tiếng vang được hiểu là 0A 00, được chuyển đổi thành âm 005000cuối lớn hoặc 000012cuối nhỏ. 61 0Atrở thành 005141ít endian và 060412lớn endian. Sản lượng đầy od cũng bao gồm địa chỉ và kích thước dữ liệu có nghĩa là chúng ta không thể sử dụng 0, 1hoặc 2cho kỳ thi này.

Lệnh được xác định rõ để hiển thị độ bền của hệ thống. Từ tiêu chuẩn :

Thứ tự byte được sử dụng khi diễn giải các giá trị số được xác định theo thực hiện, nhưng sẽ tương ứng với thứ tự trong đó một hằng số của loại tương ứng được lưu trữ trong bộ nhớ trên hệ thống.

Ghi chú tương thích

Tôi không chắc chắn nếu đưa echo|odvào các backquote không có dấu ngoặc kép xung quanh chúng [dẫn đến một đối số ba từ case] được hỗ trợ trên tất cả các hệ thống. Tôi không chắc chắn nếu tất cả các hệ thống hỗ trợ tập lệnh shell mà không có dòng mới kết thúc. Tôi chủ yếu là chắc chắn nhưng không phải là 100% hành vi của od với việc thêm byte đệm vào các hệ thống lớn. Nếu cần, echo acó thể được sử dụng cho các phiên bản di động. Tất cả các tập lệnh hoạt động trong bash, ksh và zsh, và các tập lệnh di động hoạt động trong dấu gạch ngang.

PHP, 16 byte

<?=pack(S,14)^B;

Điều này sử dụng hai thủ thuật không được sử dụng trong hai câu trả lời PHP hiện có:

1. Giá trị được truyền cho pack () hoặc unpack () có thể là bất cứ thứ gì, không chỉ 0 hoặc 1.
2. Toán tử XOR bitwise ( ^) hoạt động trên các chuỗi và kết quả chỉ dài bằng chuỗi ngắn hơn, tránh sự cần thiết phải lập chỉ mục chuỗi hoặc toán tử ternary.

Nút, 42 byte

n=>require('os').endianness()[0]

Pro: có một nội dung. Con: tên tài sản rất dài

PowerShell, 44 byte

[char](66+10*[BitConverter]::IsLittleEndian)

Ký tự 66 là Bvà 10 ký tự sau là số 76 , L. Giá trị Boolean của "true" trở thành 1khi chuyển thành số. BitConverterlà một lớp .NET tiêu chuẩn.

Vợt, 35 28 byte

(if(system-big-endian?)'B'L)

'Bhoặc 'Ltương ứng. Hãy cho tôi biết nếu điều này không đủ cụ thể :)

PHP, 22 byte

<?=ord(pack(S,1))?L:B;

Haskell (sử dụng các loại số bị giới hạn kích thước chỉ GHC), 75 byte

import Unsafe.Coerce
import GHC.Int
f="BL"!!fromEnum(unsafeCoerce 1::Int8)

(không được thử nghiệm trên một kiến ​​trúc lớn về cuối, nhưng có vẻ như nó phải hoạt động!)

K, 15 byte

    ("bl")@*6h$-8!`
    ,"l"

Giải trình;

    From right to left;
    -8!`       /serialises the back tick and returns (0x010000000a000000f500)
    6h$-8!`    /This casts the result to `int which is type 6h(could have used `int$-8!`) - the result is (1 0 0 0 10 0 0 0 245 0i)
    *6h$-8!`   /* means first, we take the first item which is 1. Since it will be either 1 or 0, we can use it to index (@) into the two element list on the left i.e. ("bl")1 returns "l" and ("bl")0 returns b

Bash, 27 byte

iconv -tucs2<<<䉌|head -c1

䉌( U + 424C ) được mã hóa dưới dạng ba byte UTF-8 : E4 89 8C.

Giả định rằng iconvsử dụng chức năng từ glibc và sử dụng ngôn ngữ UTF-8.