LKüçük bir endian mimarisinde Bçalışan bir if veya büyük bir endian mimarisinde çalışan bir ifşa veren bir program veya fonksiyon yazın . Küçük harf çıktı lveya bkabul edilebilir.

Giriş yok.

Puanlama kod golf, bu yüzden en az bayt olan kod kazanır.

Düzenleme: Aşağıdaki yorumlara göre, girişin her iki mimaride de çalışabilmesi gerektiğini açıklığa kavuşturuyorum.

Bunun etkileyebileceği tek bir cevap olduğuna inanıyorum ve bu cevap bunun böyle olduğunu açıkça ortaya koydu.

Python, 33 bayt

import sys
exit(sys.byteorder[0])

sys.byteorderya 'little'da 'big'(ve bu cümleyi okuyacak olanlar için, koda bakmadan [0], ilk karakteri almanız anlamına gelir).

C, 26 bayt

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

32 bit intve ASCII karakterleri varsayar . AMD64 (küçük endian) ve miplerde (büyük endian) test edilmiştir.

GCC, 23 bayt

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

Feersum tarafından önerildi. Çok karakterli sabitlerin değeri uygulamaya bağlıdır, ancak bunun GCC'de işe yaradığı görülmektedir. Aynı mimarilerde test edilmiştir.

MATLAB / Octave, 24 bayt

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

computerFonksiyonu, iyi, bilgisayar üzerinde çalıştığı hakkında bilgi verir. Üçüncü çıktı endianness: Lya Bda sırasıyla küçük ya da büyük endian için.

Ideone'da dene .

JavaScript ES6, 50 bayt

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

TypedArray nesnelerinin tercümanın yerelliğini ortaya koymasının iyi bir fikir olduğuna kim karar verdiğini bilmiyorum , ama işte buradayız.

C 36 35 bayt

@Algmyr ve @owacoder 'a 1 bayt teşekkürler.

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

• Sürüm 1: İdeone!
• Sürüm 2: İdeone!
• Sürüm 3: İdeone!

Buraya kredi .

Büyük bir endian makinem olmadığından beri denenmemiş.

Mathematica, 22

{B,L}[[$ByteOrdering]]

Bu muhtemelen yerleşik bir işlevi kullanmama konusunda bazı kurallara aykırıdır, ancak alternatif bir seçenek olarak altın madalyonun gerçekten kullanımıyla ilgilenmiyorum.

C, 27

Bir bayt daha uzun, ama yine de burada:

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

PowerPC makine kodu - 20 bayt

PowerPC bi-endian (başlangıçta endianness ayarlanabilir), bu nedenle bu kod hem BE hem de LE makinelerinde çalışabilme zorluğuna uygun olmalıdır. Bu, ¹ döndüren veya ayarlanmış olan endianliğe bağlı olarak bir işlevdir . 'L''B'

Bir işlev olarak AFAICT, SVR4 PowerPC ABI (ppc32'de Linux tarafından kullanılır), PowerOpen ABI (örneğin, AIX tarafından kullanılır) ve OS X ABI ile uyumludur. Özellikle, sadece GPR 0'ın geçici bir kayıt defteri olması ve GPR3'ün "küçük" değerleri döndürmek için kullanılmasına dayanır.

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

Şimdi, bu böyle gider:

• MSR GP kayıt 0 okunduğunda; MSR, bit 31'de endianness ayarlarını içerir (0 = big endian; 1 = little endian);
• rlwinmekstraktlar sadece biraz: bu GPR0 değeri alır, R Otates L (ki hemen 0 konumunda) ve 1 yer tarafından EFT m 1 (o 31,31 tarafından üretilen maske ile sorar ² ); sonuç GP siciline 3 eklenir;
• 10 ile sonucu çarpma ve 66 (toplamı 'B') (10 arasındaki farktır 'L've 'B')
• Sonunda, arayan kişiye geri dön

notlar

1. evet, soru yazdırmak istiyor , ancak farklı işletim sistemlerinde değiştirilmemiş şekilde çalışması beklenen montajı nasıl yazdırmam gerektiği açık değil. =)

2. ilgilenenler için rlwinm belgelerine bakın; PowerPC hakkında hiçbir şey bilmeden, bu tür talimatlar son derece ilginç buldum.

   2018 güncellemesi : Raymond Chen, PowerPC mimarisi hakkında bir dizi yayınlıyor, buradarlwinm ve arkadaşları hakkında harika yazılarını bulabilirsiniz .

Java 8, 96, 64 52 bayt

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

Bu SO cevabını temel alan bir golf . Tüm kredi @LeakyNun ve @AlanTuning'e gider. Java kaybedilen çizgiyi koruyor.

96 bayt:

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

64 bayt:

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

Denenmemiş b / c Büyük-endian makinesine erişimim yok.

Perl, 38 36 bayt

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

Sistemin varsayılan bayt sırasındaki bir sayıyı paketleyerek ve küçük endian bayt sırasına sahip bir sayı ile karşılaştırarak çalışır.

(G) İleri, 24 bayt

here $4200004C , c@ emit

Hücrelerin 32 bit olduğunu varsaymaktadır (ve Forth tercümanınızın Gforth'un temel öneklerini desteklediğini ). Sadece 0x4200004C sayısını hafızada saklar ve daha sonra alt ucundaki baytı görüntüler.

C, 34 bayt

Bu ASCII karakter kodlamasını varsayar

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

Argüman olmadan arayın.

Açıklama:

Çağrıda, 1 aolacaktır . Küçük-endian platformlarında 1 olacak büyük-endian platformlarında 0 olacak *(char*)ailk bayta aerişecektir.

Büyük endian platformlarında bu kod bu nedenle 66 + 10 * 0 = 66 'ya geçer putchar. 66, ASCII kodudur B. Küçük endian platformlarında, ASCII kodu olan 66 + 10 * 1 = 76'yı geçecektir L.

C #, 60 52 bayt

C # bu konuda şaşırtıcı derecede rekabetçi.

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

C # 6 sözdizimi için Groo kredisi.

60 bayt:

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

Julia, 24 19 bayt

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

Bu, giriş yapmayan ve a döndüren adsız bir işlevdir Char. Aramak için değişkene atayın. Tam sayıların 64 bit olduğunu varsayar.

ntohFonksiyon ana bilgisayarı tarafından kullanılan ağ bayt sırası (büyük endian) tarafından kendisine iletilen değerin endianness'ın dönüştürür. Büyük endian makinelerde, yapılacak ntohişlem olmadığından kimlik işlevidir. Küçük endian makinelerde, bayt değiştirilir, yani ntoh(5) == 360287970189639680. Aynı zamanda, belki daha kolay, eşittir: 0000010100000000000000000000000000000000000000000000000000000000İkili olarak.

Eğer bit değerini ntoh(5)55 ile değiştirirsek, büyük endian makinelerinde 0 ve küçük endian makinelerinde 10 elde ederiz. Karakter sabite sözlerine ekleyen 'B'biz alırsınız 'B'veya 'L'sırasıyla büyük ya da küçük endian makineleri için.

FryAmTheEggman ve Dennis sayesinde 5 bayt kurtarıldı!

PHP 5.6, 41 31 bayt (isertusernamehere için thx)

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

PHP 7, 41 bayt

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

Fikir çalındı: https://stackoverflow.com/a/24785578/2496717

Ortak Lisp, 27 bayt

SBCL ve ECL'de test edilmiştir. Taşınabilir bir yaklaşım için önemsiz özellikler kullanılmalıdır .

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

#+Notasyonu bir olan okuma zamanı koşulu , okur koşullu ifade doğru olarak değerlendirilirse, sonraki formu. Buradaki şart, #+big-endianmetnin tamamı (platforma özel bilgilerin arasında yer alan bir liste) listeye :big-endianaitse testin tatmin olduğu anlamına gelir *FEATURES*. Aşağıdaki ifade, 'Btestin sonucuna göre okunan veya atlanan şudur. Eğer platformunuz büyük-endian ise ve yukarıdaki formu REPL'de yazarsanız, aynen aşağıdakini yazmışsınız gibidir:

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

^{(NB. CL-USER>İstemidir)}

Bir fonksiyonun gövdesi örtüktür PROGN, yani yalnızca son ifadenin değerlendirmesinin iade edilmesi anlamına gelir. Yani yukarıdaki aslında sembolü döndürür B. Bununla birlikte, okuma zamanı koşulu false olarak değerlendirilirse, form yazmış gibi okur:

CL-USER>(lambda()'L)

... basitçe sembol döndürür L.

ARMv6 ve üstü: 20 bayt makine kodu

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)

Test edilmemiş, elime uygun bir makinem olmadığı için. CPSR'nin Bit 9'u geçerli yük / depo ennisitesini verir.

Perl 5, 21 + 1 = 22 bayt

İle koş perl -E.

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

AMD64 (küçük endian) ve miplerde (büyük endian) test edilmiştir.

R, 28 23 bayt

substr(.Platform$endian,1,1)

.Platform$endianbigeğer büyük endian ile ve küçükse koşarsa döner little. Burada, kullanarak substr, çıktının ilk harfini döndürür, ya bda l.

Olarak endianbir ile başlayan tek amacı, enesnenin içerdiği .Platformbiz, aşağıdaki 23 bayt kod için kısmi eşleme sayesinde azaltabilir:

substr(.Platform$e,1,1)

Clojure, 46 44 bayt

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

Bu, makinenin soyluluğunu elde etmek için Java yerleşikini kullanan bir işlevdir. Sonra, onun ya "LITTLE_ENDIAN"da dilin temsilini "BIG_ENDIAN"alın ve hangi dizenin seçildiğini seçin ve onu geri döndürün.

@ Cliffroot sayesinde 2 bayt kaydedildi .

Yakut, 3130 karakter.

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

Hmm, daha iyi bir yol olmalı. Karakterin basılması gerekmediği için diğer karakterlerin baskı almayı ihmal ettiği için 5 karakterden daha az sayın. Örneğin, herhangi bir şeyin yazdırılmasını istemiyorsanız "koyar" kısmını çıkarın.

Bash (ve diğer unix kabukları), 32 (33) bayt

Birinci ve ikinci deneme:

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

Dennis sayesinde, kısa versiyon:

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

Yardımcı echoprogram, hex değeri 0Aolan ve başka bir çıktı içermeyen yeni bir satır çıkarır . İçin <<<aöyle61 0A .

Yardımcı odprogram, varsayılan olarak, girişi iki baytlık sözcükler olarak kullanır, baytların sayısı tek ise sıfır dolgulu ve sekizlik değerine dönüştürür. Bu, eko çıktısının çıkması ile sonuçlanır 0A 00, ki bunlar 005000büyük-endian veya 000012küçük-endian olarak dönüştürülür . 61 0Aolur 005141biraz endian ve 060412büyük endian içinde. Od dolu çıkışı da biz kullanamaz anlam adres ve boyut verileri içerir 0, 1ya da2 test için.

Komut, sistemin doğruluğunu ortaya çıkarmak için iyi tanımlanmıştır. Gönderen standardı :

Sayısal değerlerin yorumlanmasında kullanılan bayt sırası, uygulama tarafından tanımlanır, ancak karşılık gelen tipte bir sabitin sistemdeki belleğe kaydedildiği sıraya karşılık gelir.

Uyumluluk notları

Tüm sistemlerde echo|odçift ​​tırnak işareti içermeyen (yani üç kelimeli bir argümanla sonuçlanan) arkasına çift tırnak işareti koyduğundan emin değilim case. Tüm sistemlerin sonlandırıcı yeni satır olmadan kabuk komut dosyalarını destekleyip desteklemediğinden emin değilim. Büyük-endian sistemlerine doldurma baytı ekleyerek od davranışının% 100'ünden emin değilim. Gerekirse echo a, taşınabilir sürümler için kullanılabilir. Tüm scriptler bash, ksh ve zsh olarak, taşınabilirler ise çizgi şeklinde çalışır.

PHP, 16 bayt

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

Bu, mevcut iki PHP cevabında kullanılmayan iki numara kullanır:

1. Pack () veya unpack () öğesine iletilen değer yalnızca 0 veya 1 değil, herhangi bir şey olabilir.
2. Bitsel XOR işleci ( ^) dizgelerde çalışır ve sonuç yalnızca kısa dizge olduğu sürece dizge endeksleme veya üçlü işleç gereksiniminden kaçınır.

Düğüm, 42 bayt

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

Pro: Bir yerleşik var. Con: mülk adları çok uzun

PowerShell, 44 bayt

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

Karakter 66 Bve 10 karakter sonra 76 numaradır L. Boolean "true" değeri 1bir sayıya çevrildiğinde olur . BitConverterstandart bir .NET sınıfıdır.

Raket, 35 28 bayt

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

'Bveya 'Lsırasıyla. Bu yeterince spesifik değilse bana bildirin :)

PHP, 22 bayt

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

Haskell (yalnızca GHC boyut sınırlamalı sayısal türlerini kullanarak), 75 bayt

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

(büyük bir endian mimarisinde denenmedi, ancak çalışması gerekiyor gibi görünüyor !)

K, 15 bayt

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

Açıklama;

    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 bayt

iconv -tucs2<<<䉌|head -c1

䉌( U + 424c ) üç UTF-8 bayt olarak kodlanır: E4 89 8C.

iconvFonksiyonu glibc'den kullanan ve UTF-8 yerel ayarının kullanıldığı varsayılmaktadır .