Напишіть програму або функцію, яка виводить Lif, який виконується на маленькій архітектурі ендіану, або Bif, якщо він працює на великій архітектурі ендіан. Вихід з нижнього регістру lабо bтакож прийнятний.

Введення немає.

Підрахунок балів - це гольф з кодом, тому виграє код з найменшими байтами.

Редагувати: Відповідно до коментарів, наведених нижче, я уточнюю, що запис повинен бути спроможний працювати на будь-якій архітектурі.

Я вважаю, що на це впливає лише одна відповідь, і ця відповідь чітко вказує, що це так.

Пітон, 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 (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 / Октава, 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: Ідею!
• Версія 2: Ідеї ​​це!
• Версія 3: Ідею!

Кредити тут .

Не перевірений, оскільки у мене немає машини з великим ендіанством.

Математика, 22

{B,L}[[$ByteOrdering]]

Це, ймовірно, порушує якесь правило про невикористання вбудованої функції, але я не дуже зацікавлений в альтернативі золотій обробці.

С, 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 відміняє l eft на 1 місце (так що тепер знаходиться в положенні 0) і m запитує його з 1 (маска, згенерована тими 31,31 ² ); результат заноситься до реєстру лікарів 3;
• помножити результат на 10 і суму 66 ( 'B') (10 - різниця між 'L'і 'B')
• нарешті, поверніться до абонента

Примітки

1. так, питання задає друк , але не ясно, як я повинен надрукувати речі в зборах, які, як очікується, працюватимуть без змін у різних операційних системах. =)

2. для зацікавлених див. документацію на rlwinm ; знаючи майже нічого про PowerPC, я знайшов подібні інструкції надзвичайно цікавими.

   Оновлення 2018 року : Реймонд Чен публікує серію про архітектуру PowerPC, ви можете знайти тут його чудовий пост про rlwinm& друзів.

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 Я не маю доступу до машини великого ендіану.

Perl, 38 36 байт

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

Працює, упакувавши номер у порядку байтів за замовчуванням системи та порівнявши його з числом, упакованим у порядок байтів малої кількості.

(G) Далі, 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, на платформах big-endian буде 0.

Тому на великих платформах ендіану цей код передаватиме 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'

Це анонімна функція, яка не приймає даних і повертає a Char . Щоб викликати його, призначте його змінній. Передбачається, що цілі числа є 64-бітними.

ntohФункція перетворює байтів в значення , передане в нього з мережевого порядку байт (великий байтів) до свого хост - комп'ютером. На великих ендіанських машинах ntoh- це функція ідентичності, оскільки не потрібно здійснювати перетворення. На маленьких ендіанських машинах байти міняються місцями, так ntoh(5) == 360287970189639680. Що також, можливо, читабельніше, дорівнює: 0000010100000000000000000000000000000000000000000000000000000000у двійковій формі .

Якщо ми точно зрушимо результат ntoh(5)на 55, ми отримаємо 0 на великих ендіанських машинах і 10 на маленьких ендіанських машинах. Додавши це до константи символів 'B', ми отримаємо 'B'або 'L'для великих, або маленьких ендіанських машин відповідно.

Збережено 5 байт завдяки FryAmTheEggman та Dennis!

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

Лист звичайний, 27 байт

Тестували на SBCL та ECL. Для портативного підходу слід використовувати тривіальні функції .

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

#+Позначення є умовою для читання часу , який зчитує наступну форму , тільки якщо умовний вираз істинно. Тут умовою є весь #+big-endianтекст, що означає, що тест буде виконаний, якщо :big-endianключове слово належить до *FEATURES*списку (список, який містить, крім іншого, інформацію, що стосується платформи). Наступний вираз - 'Bце читання чи пропуск відповідно до результату тесту. Якщо ваша платформа є big-endian і ви пишете вищезазначену форму в 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 надає поточну небезпеку завантаження / зберігання.

Perl 5, 21 + 1 = 22 байти

Бігайте з perl -E.

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

Випробовується на amd64 (мало-ендіанський) та mips (big-endian).

R, 28 23 байти

substr(.Platform$endian,1,1)

.Platform$endianповертається, bigякщо працювати на великому ендіані та 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 байти завдяки @ cliffroot .

Рубі, 3130 символів.

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

Хм, повинен бути кращий спосіб. Налічіть 5 символів менше, якщо знака не потрібно виводити, як я думаю, інші рішення опускають друк. тобто видаліть частину "ставить", якщо ви нічого не хочете надрукувати.

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Утиліта виводить символ нового рядка, з шістнадцятковим значенням 0A, і ніякого іншого висновком. Бо <<<aвоно є 61 0A.

odУтиліта, за замовчуванням, інтерпретує введення як два байти слово, доповнені нулі , якщо кількість байт непарній, і перетворює в вісімкову системі . Це призводить до того, що вихід ехо буде інтерпред як 0A 00, який перетворюється на 005000велике-ендіанське або 000012мало-ендіанське. 61 0Aстає 005141в мало-ендіанський і 060412в великий-ендіанський. Повний вихід ода також включає в себе адресу і розмір даних означає , що ми не можемо використовувати 0, 1або 2для випробування.

Команда є чітко визначеною для викриття системи. Зі стандартного :

Порядок байтів, що використовується при інтерпретації числових значень, визначається реалізацією, але повинен відповідати порядку, в якому константа відповідного типу зберігається в пам'яті в системі.

Нотатки про сумісність

Я не впевнений, якщо введення echo|odзворотних цитат без подвійних лапок навколо них [що призводить до трисловного аргументу case] підтримується у всіх системах. Я не впевнений, чи всі системи підтримують сценарії оболонки без закінчення нового рядка. Я здебільшого впевнений, але не на 100% від поведінки од додавання байта для прокладки у великих ендіанських системах. При необхідності echo aможна використовувати для портативних версій. Усі сценарії працюють у bash, ksh та zsh, а портативні - у dash.

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. Булеве значення "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)

(не перевірено на архітектурі великого ендіану, але здається, що це повинно працювати!)

К, 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

Баш, 27 байт

iconv -tucs2<<<䉌|head -c1

䉌( U + 424C ) кодується в вигляді трьох UTF-8 байт: E4 89 8C.

Передбачається, що iconvвикористовується функція від glibc і що використовується локаль UTF-8.