LリトルエンディアンアーキテクチャでB実行されるif またはビッグエンディアンアーキテクチャで実行されるif を出力するプログラムまたは関数を作成します。小文字の出力lまたはb許容されます。

入力はありません。

得点はコードゴルフであるため、バイト数が最も少ないコードが勝ちます。

編集： 以下のコメントに従って、エントリはどちらのアーキテクチャでも実行できる必要があることを明確にしています。

これが影響する答えは1つだけであり、その答えはこれが事実であることを明確に示していると思います。

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関数は、実行されているコンピューターに関する情報を提供します。3番目の出力はエンディアンネスです。LまたはB、それぞれリトルエンディアンまたはビッグエンディアン用です。

Ideoneで試してみてください。

JavaScript ES6、50バイト

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

TypedArrayオブジェクトがインタープリターのネイティブエンディアンを公開するのが良い考えだと誰が決めたのかわかりませんが、ここにあります。

C、36 35バイト

@algmyrと@owacoderのおかげで1バイト。

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

• バージョン1：イデオネ！
• バージョン2：イデオネ！
• バージョン3：それをイデオン！

クレジットはこちら。

ビッグエンディアンのマシンがないので、テストされていません。

Mathematica、22

{B,L}[[$ByteOrdering]]

これはおそらく、組み込み関数を使用しないことに関するいくつかの規則を破りますが、私は代替案をゴールドベルグ化することにあまり興味がありません。

C、27

1バイト長くなりましたが、とにかくここにあります：

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

PowerPCマシンコード-20バイト

PowerPCはバイエンディアンです（エンディアンは起動時に設定できます）。したがって、このコードはBEマシンとLEマシンの両方で実行できるというチャレンジリクエストに準拠する必要があります。これは、¹を返す関数、または現在設定されているエンディアンに依存します。 'L''B'

AFAICTは、関数として、SVR4 PowerPC ABI（ppc32上のLinuxで使用）、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 リットル（現在位置0にあるように）1つの場所によってEFT及びmは 1（それら31,31によって生成されたマスクを用いてそれを要求²）。結果はGPレジスタ3に入れられます。
• 10和66によって結果を乗算（'B'）（10との間の差である'L'と'B'）
• 最後に、呼び出し元に戻ります

ノート

1. はい、質問は印刷するように求めていますが、異なるオペレーティングシステムで変更せずに実行されると予想されるアセンブリ内の内容をどのように印刷するべきかは明確ではありません。=）

2. 興味のある方は、rlwinmのドキュメントをご覧ください。PowerPCについてほとんど何も知らないので、この種の指示は非常に興味深いものでした。

   2018年の更新：Raymond Chenが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"

システムのデフォルトのバイト順で数値をパックし、それをリトルエンディアンのバイト順でパックされた数値と比較することにより機能します。

（G）Forth、24バイト

here $4200004C , c@ emit

セルは32ビットであると仮定します（ForthインタープリターはGforthのベースプレフィックスをサポートします）。単にメモリに数値0x4200004Cを格納し、ローエンドでバイトを表示します。

C、34バイト

これは、ASCII文字エンコードを想定しています

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

引数なしで呼び出します。

説明：

コールでは、a1になります。すること*(char*)aの最初のバイトアクセスaリトルエンディアンのプラットフォームでビッグエンディアンのプラットフォーム上で、1になり、0になります。

したがって、ビッグエンディアンプラットフォームでは、このコードは66 + 10 * 0 = 66をに渡しputcharます。66はのASCIIコードですB。リトルエンディアンプラットフォームでは、66 + 10 * 1 = 76を渡しますL。これはのASCIIコードです。

C＃、60 52バイト

これでC＃は驚くほど競争力があります。

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

C＃6構文に対するGrooの功績。

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バイト（isertusernamehereにTHX）

<?=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でテスト済み。ポータブルなアプローチの場合、trivial-featuresを使用する必要があります。

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

#+表記は、リードタイムの条件、読み出し条件式が真と評価された場合にのみ、次のフォームを。ここでの条件は、キーワードがリスト（プラットフォーム固有の情報を含むリスト）に属する#+big-endian場合にテストが満たされることを意味するテキスト全体です。次の式はで、テストの結果に応じて読み取られるかスキップされます。プラットフォームがビッグエンディアンであり、REPLで上記のフォームを記述する場合、次のように記述したのとまったく同じです。:big-endian*FEATURES*'B

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

^{（NB。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オブジェクトで始まる唯一のオブジェクトであるように、次の23バイトのコードとの部分一致によりe、オブジェクト.Platformを減らすことができます。

substr(.Platform$e,1,1)

Clojure、46 44バイト

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

これは、Javaビルトインを使用してマシンのエンディアンを取得する関数です。次に、"LITTLE_ENDIAN"またはのいずれかの文字列表現を取得し、"BIG_ENDIAN"選択された文字列の最初の文字を取得して返します。

@ cliffrootのおかげで2バイト節約されました。

ルビー、 3130文字。

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

うーん、より良い方法でなければなりません。他のソリューションでは印刷を省略していると思うので、charを出力する必要がない場合は5文字少なくしてください。つまり、何も印刷したくない場合は、「puts」部分を削除します。

Bash（および他のUNIXシェル）、32（33）バイト

1回目と2回目の試行：

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ユーティリティ16進値と、改行を出力し0A、かつない他の出力。以下のために<<<aそれがあります61 0A。

odユーティリティは、バイトの数が奇数の場合、デフォルトでは、ゼロパディング2バイト語として入力を解釈し、進に変換します。これにより、エコーの出力はとして解釈0A 00され005000、ビッグエンディアンまたはリトルエンディアンに変換され000012ます。61 0Aとなり005141リトルエンディアンにし、060412ビッグエンディアンで。ODのフル出力はまた、我々が使用することはできません意味のアドレスとサイズのデータを含む0、1または2テストのために。

このコマンドは、システムのエンディアンを公開するように明確に定義されています。標準から：

数値を解釈するときに使用されるバイト順序は実装で定義されますが、対応するタイプの定数がシステムのメモリに格納される順序に対応しなければなりません。

互換性に関する注意

echo|od二重引用符なしでバッククォートを入れるかどうか（結果として3ワードの引数になるcase）がすべてのシステムでサポートされているかどうかはわかりません。すべてのシステムが終了改行なしでシェルスクリプトをサポートするかどうかはわかりません。ビッグエンディアンシステムにパディングバイトを追加した場合のodの動作は100％ではありませんが、ほぼ確実です。必要に応じecho aて、ポータブルバージョンに使用できます。すべてのスクリプトはbash、ksh、およびzshで動作し、ポータブルなスクリプトはdashで動作します。

PHP、16バイト

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

これは、既存の2つのPHP回答で使用されていない2つのトリックを使用します。

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。「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）は、3つのUTF-8バイトとしてエンコードされますE4 89 8C。

iconvglibcの関数を使用し、UTF-8ロケールが使用されると想定されています。