เขียนโปรแกรมหรือฟังก์ชั่นที่ให้ผลลัพธ์Lถ้าเรียกใช้บนสถาปัตยกรรม endian เล็ก ๆ น้อย ๆ หรือBถ้าเรียกใช้บนสถาปัตยกรรม endian ขนาดใหญ่ ตัวพิมพ์เล็กlหรือbเป็นที่ยอมรับ

ไม่มีอินพุต

การให้คะแนนคือโค้ดกอล์ฟดังนั้นโค้ดที่มีจำนวนไบต์น้อยที่สุดจะเป็นผู้ชนะ

แก้ไข: ตามความคิดเห็นด้านล่างฉันชี้แจงว่ารายการจะต้องสามารถทำงานบนสถาปัตยกรรมใดก็ได้

ฉันเชื่อว่ามีคำตอบเดียวที่ส่งผลกระทบต่อและคำตอบนั้นระบุอย่างชัดเจนว่าเป็นกรณีนี้

Python ขนาด 33 ไบต์

import sys
exit(sys.byteorder[0])

sys.byteorderเป็นอย่างใดอย่างหนึ่ง'little'หรือ'big'(และสำหรับผู้ที่จะอ่านประโยคนี้โดยไม่ต้องดูรหัส[0]หมายถึงใช้อักขระตัวแรก)

C, 26 ไบต์

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

ถือว่าintอักขระ32 บิตและ ASCII ทดสอบกับ amd64 (little-endian) และ mips (big-endian)

GCC 23 ไบต์

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

แนะนำโดย feersum ค่าของค่าคงที่แบบหลายตัวอักษรนั้นขึ้นอยู่กับการนำไปใช้ แต่ดูเหมือนว่าจะใช้งานได้ใน GCC ทดสอบกับสถาปัตยกรรมเดียวกัน

MATLAB / Octave, 24 ไบต์

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

computerฟังก์ชั่นให้ข้อมูลเกี่ยวกับดีคอมพิวเตอร์จะทำงานบน เอาท์พุทที่สามคือ endianness: LหรือBสำหรับน้อยหรือใหญ่ endian ตามลำดับ

ลองบน Ideone

JavaScript ES6, 50 ไบต์

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

ฉันไม่รู้ว่าใครเป็นคนตัดสินใจว่ามันเป็นความคิดที่ดีสำหรับวัตถุTypedArrayที่จะเปิดเผยความเป็นพื้นเมืองดั้งเดิมของล่าม แต่ที่นี่เราเป็น

C, 36 35 ไบต์

1 ไบต์ต้องขอบคุณ @algmyr และ @owacoder

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

• รุ่นที่ 1: Ideone มัน!
• รุ่นที่ 2: Ideone มัน!
• เวอร์ชัน 3: ออกแบบอย่างดี!

เครดิตที่นี่

ยังไม่ทดลองเนื่องจากฉันไม่มีเครื่องจักรขนาดใหญ่

Mathematica, 22

{B,L}[[$ByteOrdering]]

นี่อาจจะเป็นการทำลายกฎบางอย่างเกี่ยวกับการไม่ใช้ฟังก์ชั่นในตัว แต่ฉันไม่ได้สนใจที่จะรูเบอร์ทองคำเป็นทางเลือก

C, 27

หนึ่งไบต์ยาวขึ้น แต่ที่นี่มันคือ:

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

รหัสเครื่อง PowerPC - 20 ไบต์

PowerPC เป็น bi-endian (endianness สามารถตั้งค่าเมื่อเริ่มต้น) ดังนั้นรหัสนี้ควรเป็นไปตามคำขอความท้าทายในการเรียกใช้ทั้งบนเครื่อง BE และ LE นี่คือฟังก์ชั่นที่ส่งกลับ¹ 'L'หรือ'B'ขึ้นอยู่กับ endianness ที่ตั้งค่าไว้ในปัจจุบัน

เป็นฟังก์ชั่น AFAICT ซึ่งเป็นไปตาม SVR4 PowerPC ABI (ใช้โดย Linux บน ppc32), PowerOpen ABI (ใช้โดย AIX) และ OS X ABI โดยเฉพาะอย่างยิ่งมันขึ้นอยู่กับความจริงที่ว่า GPR 0 เป็นตัวลงทะเบียนรอยขีดข่วนแบบระเหยและ GPR 3 ถูกใช้เพื่อส่งกลับค่า "เล็ก"

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

ตอนนี้มันเป็นเช่นนี้:

• MSRจะอ่านใน GP ทะเบียน 0; MSR มีการตั้งค่าบิต endianness ที่ 31 (0 = endianness ขนาดใหญ่ 1 = endian น้อย);
• rlwinmแยกเพียงบิตนั้น: มันต้องใช้ค่าใน GPR0, r otates l eft โดย 1 สถานที่ (เพื่อให้ตอนนี้อยู่ในตำแหน่ง 0) และmถามด้วย 1 (หน้ากากที่สร้างโดย 31,31 ² ); ผลลัพธ์จะถูกใส่ใน GP register 3
• คูณผลลัพธ์ด้วย 10 กับผลรวม 66 ( 'B') (10 คือความแตกต่างระหว่าง'L'และ'B')
• ในที่สุดให้กลับไปที่ผู้โทร

หมายเหตุ

1. ใช่คำถามขอให้พิมพ์แต่ยังไม่ชัดเจนว่าฉันควรพิมพ์สิ่งต่าง ๆ ในแอสเซมบลีที่คาดว่าจะเรียกใช้ unmodified บนระบบปฏิบัติการที่แตกต่างกันอย่างไร =)

2. สำหรับผู้ที่สนใจดูเอกสารrlwinm ; ถัดจากการรู้อะไรเกี่ยวกับ PowerPC ฉันพบว่าคำแนะนำประเภทนี้น่าสนใจมาก

   2018 ปรับปรุง : เรย์มอนด์เฉินถูกเผยแพร่ชุดเกี่ยวกับสถาปัตยกรรม PowerPC ที่คุณสามารถหาที่นี่โพสต์ที่ยอดเยี่ยมของเขาเกี่ยวกับrlwinm& เพื่อน

Java 8, 96, 64 52 ไบต์

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

สนามกอล์ฟตามคำตอบ SOนี้ เครดิตทั้งหมดไปที่ @LeakyNun และ @AlanTuning Java เก็บแนวการสูญเสีย

96 ไบต์:

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

64 ไบต์:

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

b / c ที่ยังไม่ทดลองฉันไม่สามารถเข้าถึงเครื่องจักรขนาดใหญ่ได้

Perl, 38 36 ไบต์

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

ทำงานโดยการบรรจุหมายเลขในลำดับไบต์เริ่มต้นของระบบและเปรียบเทียบกับหมายเลขที่บรรจุตามลำดับไบต์แบบ little-endian

(G) Forth, 24 ไบต์

here $4200004C , c@ emit

สมมติว่าเซลล์เป็น 32 บิต (และล่าม Forth ของคุณรองรับคำนำหน้าพื้นฐานของ Gforth ) มันเพียงเก็บหมายเลข 0x4200004C ในหน่วยความจำแล้วแสดงไบต์ที่ระดับต่ำสุด

C, 34 ไบต์

นี่ถือว่าการเข้ารหัสอักขระ ASCII

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

โทรโดยไม่มีข้อโต้แย้ง

คำอธิบาย:

ทางโทรศัพท์aจะเป็น 1 *(char*)aเข้าถึงไบต์แรกaซึ่งบนแพลตฟอร์มขนาดเล็กจะเป็น 1 โดยบนแพลตฟอร์มขนาดใหญ่จะเป็น 0

บนแพลตฟอร์ม big-รหัสนี้จึงจะผ่าน 66 + 10 * 0 = putchar66 66 เป็นรหัส ASCII Bสำหรับ บนแพลตฟอร์มน้อย endian ก็จะผ่าน 66 + 10 * 1 = 76 ซึ่งเป็นรหัส ASCII Lสำหรับ

C #, 60 52 ไบต์

C # มีการแข่งขันที่น่าประหลาดใจในครั้งนี้

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

เครดิตไปที่ Groo สำหรับไวยากรณ์ C # 6

60 ไบต์:

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

Julia, 24 19 ไบต์

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

Charนี้เป็นฟังก์ชั่นที่ไม่ระบุชื่อที่ใช้เวลาไม่ป้อนข้อมูลและการส่งกลับ หากต้องการเรียกใช้กำหนดค่าให้กับตัวแปร มันถือว่าเป็นจำนวนเต็ม 64- บิต

ntohฟังก์ชันแปลง endianness ของค่าที่ส่งไปได้จากเครือข่ายเพื่อ byte (endian ใหญ่) กับที่ใช้โดยโฮสต์คอมพิวเตอร์ บนเครื่อง endian ขนาดใหญ่ntohเป็นฟังก์ชันตัวตนเนื่องจากไม่มีการแปลงให้ทำ บนเครื่อง endian ntoh(5) == 360287970189639680น้อยไบต์จะสลับดังนั้น ซึ่งก็อาจจะอ่านได้มากขึ้นเท่ากับ: 0000010100000000000000000000000000000000000000000000000000000000ในไบนารี

หากเราเปลี่ยนผลการค้นหาเป็นntoh(5)55 เราจะได้รับ 0 สำหรับเครื่องจักรขนาดใหญ่และ 10 สำหรับเครื่องจักรเล็ก ๆ น้อย ๆ การเพิ่มเข้าไปในค่าคงที่ของตัวละคร'B'เราจะได้รับ'B'หรือ'L'สำหรับเครื่องจักร endian ขนาดเล็กหรือใหญ่ตามลำดับ

บันทึก 5 ไบต์ด้วย FryAmTheEggman และ Dennis!

PHP 5.6, 41 31 ไบต์ (ขอบคุณเพื่อ isertusername ที่นี่)

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

PHP 7, 41 ไบต์

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

แนวคิดถูกขโมยจาก: https://stackoverflow.com/a/24785578/2496717

Common Lisp, 27 ไบต์

ทดสอบกับ SBCL และ ECL สำหรับวิธีการแบบพกพาหนึ่งควรใช้คุณสมบัติที่น่ารำคาญ

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

#+สัญกรณ์เป็นเงื่อนไขในการอ่านเวลาที่อ่านรูปแบบต่อไปเท่านั้นถ้านิพจน์เงื่อนไขการประเมินผลให้เป็นจริง นี่คือเงื่อนไขคือ#+big-endianข้อความทั้งหมดซึ่งหมายความว่าการทดสอบนั้นเป็นที่พอใจถ้า:big-endianคำหลักเป็นของ*FEATURES*รายการ (รายการที่มีข้อมูลเฉพาะแพลตฟอร์มอื่น ๆ ) นิพจน์ต่อไปนี้คือ'Bซึ่งอ่านหรือข้ามไปตามผลลัพธ์ของการทดสอบ หากแพลตฟอร์มของคุณใหญ่และคุณเขียนแบบฟอร์มด้านบนใน REPL มันจะเหมือนกับว่าคุณเขียนสิ่งต่อไปนี้:

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

^{(NB. CL-USER>เป็นพรอมต์)}

ร่างกายของฟังก์ชั่นเป็นนัยPROGNซึ่งหมายความว่าเฉพาะการประเมินผลของการแสดงออกครั้งสุดท้ายจะถูกส่งกลับ Bดังนั้นข้างต้นจริงผลตอบแทนที่สัญลักษณ์ อย่างไรก็ตามหากเงื่อนไขการอ่านประเมินว่าเป็นเท็จรูปแบบจะอ่านราวกับว่าคุณเขียน:

CL-USER>(lambda()'L)

... Lซึ่งก็จะส่งกลับสัญลักษณ์

ARMv6 และใหม่กว่า: รหัสเครื่อง 20 ไบต์

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)

ยังไม่ทดลองเนื่องจากฉันไม่มีเครื่องจักรที่เหมาะสม บิตที่ 9 ของ CPSR ให้การโหลดปัจจุบัน / endianness ปัจจุบัน

Perl 5, 21 + 1 = 22 ไบต์

perl -Eทำงานด้วย

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

ทดสอบกับ amd64 (little-endian) และ mips (big-endian)

R, 28 23 ไบต์

substr(.Platform$endian,1,1)

.Platform$endianผลตอบแทนbigถ้าวิ่งบน endian ใหญ่และlittleถ้าน้อย ที่นี่ใช้substrก็จะส่งกลับตัวอักษรตัวแรกของการส่งออกดังนั้นทั้งหรือbl

ในฐานะที่endianเป็นวัตถุเดียวที่เริ่มต้นด้วยวัตถุที่มีeอยู่ใน.Platformเราสามารถลดขอบคุณการจับคู่บางส่วนกับรหัส 23 ไบต์ต่อไปนี้:

substr(.Platform$e,1,1)

Clojure, 46 44 ไบต์

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

นี่คือฟังก์ชั่นที่ใช้ Java builtin เพื่อรับค่า endianness ของเครื่อง จากนั้นได้รับการเป็นตัวแทนสตริงของมันซึ่งจะเป็นอย่างใดอย่างหนึ่ง"LITTLE_ENDIAN"หรือ"BIG_ENDIAN"และใช้ตัวอักษรตัวแรกของสตริงแล้วแต่จำนวนใดจะถูกเลือกและกลับว่า

ที่บันทึกไว้ 2 ไบต์ขอบคุณที่ @ cliffroot

ทับทิม, วันที่ 3130 ตัวอักษร

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

อืมต้องเป็นวิธีที่ดีกว่า นับ 5 ตัวอักษรน้อยลงถ้า char ไม่จำเป็นต้องเอาท์พุทเพราะฉันคิดว่าวิธีการแก้ปัญหาอื่นละเว้นการพิมพ์ เช่นลบส่วน "ใส่" ถ้าคุณไม่ต้องการพิมพ์อะไรเลย

Bash (และเชลล์ unix อื่น ๆ ), 32 (33) ไบต์

ความพยายามครั้งแรกและครั้งที่สอง:

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

ขอบคุณเดนนิสรุ่นที่สั้นกว่า:

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

echoยูทิลิตี้เอาท์พุทขึ้นบรรทัดใหม่ที่มีค่า hex 0Aและไม่มีการส่งออกอื่น ๆ สำหรับมันเป็น<<<a61 0A

odยูทิลิตี้โดยค่าเริ่มต้นตีความการป้อนข้อมูลที่เป็นคำสองไบต์ศูนย์เบาะถ้าจำนวนไบต์เป็นเลขคี่และแปลงไปเป็นฐานแปด สิ่งนี้ส่งผลให้เอาท์พุตของเสียงก้องถูก interpred 0A 00ซึ่งถูกแปลง005000เป็น big-endian หรือ000012ใน little-endian 61 0Aกลายเป็นคน005141ตัวเล็ก ๆ และคนหัว060412โต เอาท์พุทเต็มรูปแบบของ od ยังรวมถึงที่อยู่และข้อมูลขนาดหมายความว่าเราไม่สามารถใช้0, 1หรือ2สำหรับการทดสอบ

คำสั่งได้รับการกำหนดอย่างดีเพื่อให้เห็นถึง endianness ของระบบ จากมาตรฐาน :

ลำดับไบต์ที่ใช้เมื่อตีความค่าตัวเลขกำหนดการใช้งาน แต่จะสอดคล้องกับลำดับที่ค่าคงที่ประเภทที่สอดคล้องกันถูกเก็บไว้ในหน่วยความจำบนระบบ

บันทึกความเข้ากันได้

ฉันไม่แน่ใจว่าจะใส่echo|odbackquotes โดยไม่ต้องใส่เครื่องหมายอัญประกาศคู่ล้อมรอบ [ซึ่งผลลัพธ์ในอาร์กิวเมนต์สามคำถึงcase] ได้รับการสนับสนุนในทุกระบบ ฉันไม่แน่ใจว่าทุกระบบรองรับเชลล์สคริปต์โดยไม่ต้องยกเลิกบรรทัดใหม่ ฉันแน่ใจว่าส่วนใหญ่ แต่ไม่ 100% ของพฤติกรรมของ od ด้วยการเพิ่ม padding byte ในระบบขนาดใหญ่ หากจำเป็นecho aสามารถใช้สำหรับรุ่นพกพา สคริปต์ทั้งหมดทำงานใน bash, ksh และ zsh และสคริปต์แบบพกพาทำงานได้อย่างรวดเร็ว

PHP, 16 ไบต์

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

ใช้สองเทคนิคที่ไม่ได้ใช้ในคำตอบ PHP สองคำตอบที่มีอยู่:

1. ค่าที่ส่งผ่านไปยัง pack () หรือ unpack () สามารถเป็นอะไรก็ได้ไม่ใช่แค่ 0 หรือ 1
2. ตัวดำเนินการ XOR bitwise ( ^) ทำงานบนสตริงและผลลัพธ์นั้นยาวเพียงแค่สตริงที่สั้นกว่าเท่านั้นโดยหลีกเลี่ยงความจำเป็นในการสร้างดัชนีสตริงหรือตัวดำเนินการที่ประกอบไปด้วยสามส่วน

โหนด, 42 ไบต์

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

Pro: มีแบบบิลท์อิน คอนดิชั่น: ชื่อคุณสมบัติยาวมาก

PowerShell ขนาด 44 ไบต์

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

ตัวละครที่ 66 Bและ 10 ตัวอักษรต่อมาเป็นจำนวน L76, ค่าบูลีนของ "true" จะกลายเป็น1เมื่อร่ายไปที่ตัวเลข BitConverterเป็นคลาส NET. มาตรฐาน

แร็กเก็ต, 35 28 ไบต์

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

'Bหรือ'Lตามลำดับ แจ้งให้เราทราบหากนี่ไม่เจาะจงพอ :)

PHP, 22 ไบต์

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

Haskell (ใช้ประเภทตัวเลขที่ จำกัด ขนาดโดย GHC เท่านั้น) 75 ไบต์

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

(ไม่ได้ทดสอบกับสถาปัตยกรรมขนาดใหญ่ แต่ดูเหมือนว่ามันควรจะทำงาน!)

K, 15 ไบต์

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

คำอธิบาย;

    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 ไบต์

iconv -tucs2<<<䉌|head -c1

䉌( U + 424C ) จะถูกเข้ารหัสเป็นสาม UTF-8 E4 89 8Cไบต์:

มีการสันนิษฐานว่าiconvใช้ฟังก์ชันจาก glibc และมีการใช้โลแคล UTF-8