编写一个程序或函数，该程序或函数输出L在小端架构上B运行的if 或在大端架构上运行的if。小写输出l还是b可以的。

没有输入。

计分是代码高尔夫，因此字节最少的代码获胜。

编辑： 根据下面的评论，我澄清一下，该条目必须能够在两种体系结构上运行。

我相信只有一个答案会受到影响，并且该答案已明确表明确实如此。

Python，33个字节

import sys
exit(sys.byteorder[0])

sys.byteorder是'little'或'big'（对于在不看代码的情况下阅读此句子的人，则[0]表示第一个字符）。

C，26个字节

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

假定32位int和ASCII字符。在amd64（小端）和mips（大端）上进行了测试。

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 /八度，24字节

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

该computer函数提供有关正在运行的计算机的信息。第三个输出是字节序：L或分别B用于小字节序或大字节序。

在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：Ideone！

学分在这里。

由于我没有大端机，因此未经测试。

Mathematica，22岁

{B,L}[[$ByteOrdering]]

这可能会违反一些关于不使用内置函数的规则，但是我对替代项并不十分感兴趣。

C，27

再长一个字节，但是无论如何这里是：

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

PowerPC机器码-20个字节

PowerPC是双字节序的（可以在启动时设置字节序），因此此代码应符合能够在BE和LE机器上运行的挑战要求。此函数返回¹ 'L'或'B'取决于当前设置的字节序。

作为功​​能，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在第31位包含字节序设置（0 =大字节序； 1 =小字节序）；
• rlwinm提取物只是位：它需要在GPR0的值，- [R otates 升由1所代替EFT（使得现在是在位置0）和米与1（由那些31,31所产生的掩模要求它²）; 结果存入GP寄存器3；
• 乘以10的结果，总结66（ 'B'）（10 之间的差别'L'和'B'）
• 最后，返回给呼叫者

笔记

1. 是的，这个问题确实要求打印，但是目前尚不清楚我应该如何打印预期在不同操作系统上运行的程序集中的内容。=）

2. 对于那些感兴趣的人，请参阅rlwinm文档。几乎不了解PowerPC，我发现这种说明非常有趣。

   2018年更新：Raymond Chen发布了有关PowerPC架构的系列文章，您可以在此处找到有关rlwinm＆friends的精彩文章。

Java 8、96、64 52字节

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

基于此答案的高尔夫。所有的功劳归@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我无法使用big-endian机器。

Perl，38个36字节

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

通过按系统的默认字节顺序打包数字并将其与按小尾数字节顺序打包的数字进行比较来工作。

（G）四十四字节

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-endian平台上，此代码会将66 + 10 * 0 = 66传递给putchar。66是的ASCII码B。在小端平台上，它将传递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';}

朱莉娅，24 19字节

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

这是一个匿名函数，不接受任何输入并返回Char。要调用它，请将其分配给变量。假定整数是64位。

该ntoh函数将传递给它的值的字节序从网络字节顺序（大字节序）转换为主机使用的字节序。在大型字节序计算机上，ntoh由于无需进行转换，因此是身份函数。在小字节序计算机上，字节被交换，所以ntoh(5) == 360287970189639680。也可能更可读地等于：0000010100000000000000000000000000000000000000000000000000000000二进制。

如果将结果右移ntoh(5)55，则在大字节序计算机上将得到0，在小字节序计算机上将得到10。并称，在字符常量'B'，我们会得到'B'或'L'对或大或小端机，分别。

多亏了FryAmTheEggman和Dennis，节省了5个字节！

PHP 5.6，41 31个字节（Thx至isertusernamehere）

<?=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，根据测试结果可以读取或跳过。如果您的平台是big-endian，并且您在REPL中编写了以上表格，则就像您编写了以下内容一样：

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

^{（CL-USER>提示。）}

函数的主体是一个隐式PROGN，意味着仅返回最后一个表达式的求值。所以上面的实际返回符号B。但是，如果读取时间条件评估为false，则该表单的读取就像您编写的一样：

CL-USER>(lambda()'L)

...只是返回symbol 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)

未经测试，因为我没有合适的机器。CPSR的位9给出了当前的加载/存储字节序。

Perl 5，21 +1 = 22字节

用运行perl -E。

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

在amd64（小端）和mips（大端）上进行了测试。

R，28 23字节

substr(.Platform$endian,1,1)

.Platform$endianbig如果在大字节序little上运行，而在小字节序上运行，则返回。在这里，使用substr，它返回输出的第一个字母，所以b或l。

作为endian唯一一个e包含在对象中的对象.Platform，由于与以下23个字节的代码部分匹配，我们可以减少它：

substr(.Platform$e,1,1)

Clojure，46 44字节

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

这是一个使用Java内置函数获取计算机字节序的函数。然后获取它的字符串表示形式，该字符串表示形式将为"LITTLE_ENDIAN"或，"BIG_ENDIAN"并采用所选字符串中的第一个字符并将其返回。

由于@，节省了2个字节悬崖根。

红宝石， 3130个字符。

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

嗯，一定是更好的方法。如果不需要输出char，请少计算5个字符，因为我认为其他解决方案可以省略打印。例如，如果您不想打印任何内容，请删除“放置”部分。

Bash（和其他unix shell），32（33）字节

第一次和第二次尝试：

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

多亏了丹尼斯（Dennis），缩短了版本：

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

该echo实用程序输出带有十六进制值的换行符0A，而没有其他输出。因为<<<a是61 0A。

od默认情况下，该实用程序将输入解释为两个字节的单词，如果字节数为奇数，则将其填充为零，然后转换为八进制。这导致回声的输出解释为0A 00，将其转换005000为大端或000012小端。61 0A成为005141小端和060412大端。OD的完整输出也包括地址和尺寸数据意味着我们不能使用0，1或2用于测试。

该命令定义明确，可以公开系统的字节序。从标准：

解释数值时使用的字节顺序是实现定义的，但应与相应类型的常量存储在系统内存中的顺序相对应。

相容性说明

我不确定是否在所有系统上都支持echo|od在反引号中使用双引号将其引起来的三字参数case。我不确定是否所有系统都支持不带换行符的shell脚本。我大都可以肯定，但是在big-endian系统上添加padding字节并不是od的100％。如果需要，echo a可用于便携式版本。所有脚本都可以在bash，ksh和zsh中使用，而可移植脚本则可以在破折号中使用。

PHP，16字节

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

这使用了两个现有PHP答案中未使用的技巧：

1. 传递给pack（）或unpack（）的值可以是任何值，而不仅仅是0或1。
2. 按位XOR运算符（^）对字符串起作用，结果仅与较短的字符串一样长，从而避免了使用字符串索引或三进制运算符。

节点，42字节

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

优点：有内置功能。缺点：属性名称很长

PowerShell，44字节

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

字符66是B，后面10个字符是数字76 L。1转换为数字时，布尔值“ true”变为。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语言环境。