Виклик

Створіть програму, яка повертає просте значення при запуску в Microsoft Windows (для простоти ми будемо дотримуватися Windows 7, 8.1 та 10) та значення фальси при запуску в будь-якій іншій операційній системі (OSX, FreeBSD, Linux).

Правила

• Код, який не запускається / компілюється на платформі, не враховується як значення фальси.

Критерії виграшу

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

Vim, 2 байти

<C-a>1

У Windows <C-a>(ctrl + a) відображено за замовчуванням на Select All. Якщо ви введете 1режим вибору у Windows, він замінить вибір тим, що ви ввели (1), залишивши 1 у буфері.

В інших операційних системах <C-a>за замовчуванням відображається карта Increment number. Оскільки збільшення кількості немає, це не-оп, і тоді 1 збільшує кількість, але з точки зору буфера - неоперативний.

1 - це правда у Vim, а порожня струна - хибна

MATLAB, 4 байти

ispc

З документації :

tf = ispcповертає логічний 1 (вірно), якщо версія програмного забезпечення MATLAB® призначена для платформи Microsoft® Windows®. В іншому випадку він повертає логічний 0 (false).

Є також функції ismacі isunix. Я залишу це читачеві, щоб зрозуміти, що ці функції виконують. Мего ласкаво попросив пояснити схеми, ismacі isunixтому я спробував проілюструвати це тут:

Це не було запитання для діаграми, ispcале я можу виявити, що поведінка досить схожа, за винятком замінника OSXі Unixз Windows.

Другий підхід:

Ось другий підхід із getenvвикористанням 23 байтів, які мають бути захищеними від куль, якщо тільки інша операційна система не починається з W:

x=getenv('OS');x(1)==87

getenv 'name'здійснює пошук у нижньому списку середовища операційної системи для тексту форми name=value, де nameзнаходиться вектор вхідних символів. Якщо його знайдено, MATLAB® повертає значення векторного символу. Якщо вказане ім'я неможливо знайти, повертається порожня матриця.

Python 2.7.10 , 24 байти

import os
0/('['>os.sep)

Завдяки FlipTack за 3 байти

Ця програма користується тим, що Windows є єдиною ОС, яка використовується \як роздільник шляхів. Зазвичай це розчаровує і погано, але колись це фактично перевага. У Windows, '['>os.sepпомилково, і, таким чином 0/0, обчислюється, спричиняючи ZeroDivisionErrorі виходить із ненульовим кодом виходу. На платформах, що не '['>os.sepє Windows, є істинним, роблячи вираз 0/1, який нічого не робить, і програма виходить з кодом виходу 0.

x86 Асамблея, 7 байт (натхненний відповіддю Рунеморо )

31 DB 89 D8 40 CD 80

Або

xor ebx, ebx 
mov eax, ebx
inc eax
int 0x80

Опис

Перш за все, ми встановимо eaxв 1(номер системного виклику для exit(int val)для Linux, FreeBSDі OSX). Потім ми зателефонуємо на ворота переривання, 0x80що є воротом системного виклику Linux, FreeBSDі OSX. Це призведе до виходу програми зі статусом ebxякого є 0( false).

У Windows int 0x80є недійсним 2eворотом (він використовується як шлюз системного виклику), і він призведе до збою програми, що призведе до завершення позитивним кодом виходу ( true).

Редагувати: Не працюватиме, OSXоскільки у нього є інша конвенція про передачу аргументів щодо 32-бітного (стеком).

Список літератури та подальше читання

• FreeBSD - System Calls: Інформація про системні дзвінки в FreeBSD.
• System calls in the Linux kernel. Part 2.: Чудова стаття про системні дзвінки Linux.
• Linux Syscall Reference: посилання на номери системних викликів для Linux.
• Windows Syscall Shellcode: Стаття про прямий виклик системних дзвінків windowsіз збирання.
• Making system calls from Assembly in Mac OS X: Стаття про системні дзвінки OSX.

C, 44 43 38 36 байт

Дякуємо @Downgoat за байт! ^{перекреслено 44 все ще регулярно 44}
Дякуємо @Neil за два байти!

f(){return
#ifdef WIN32
!
#endif
0;}

PHP, 22 байти

`<?=PATH_SEPARATOR>":";`  

друкує, 1якщо роздільник шляху є крапкою з комою (двокрапка або порожня для всіх інших ОС, крім DOS та OS / 2), нічого іншого.

також 22 байти , але це не так безпечно:

<?=strpos(__FILE__,92);

друкує додатне ціле число, якщо шлях до файлу містить зворотну косу рису; інше нічого.
Безпечна альтернатива з 27 байтами : <?=DIRECTORY_SEPARATOR>"/";відбитки 1чи нічого.

Дивна знахідка : <?=__FILE__[1]==":";( 20 байт ) має бути, не безпечним, але добре. Але хоча __FILE__видає себе за рядок (я намагався var_dumpі gettype), його індексація видає помилку, якщо ви не скопіюєте її деінде (конкатенація також працює) або не використаєте її як функціональний параметр.

Правка:
<?=(__FILE__)[1]==":";(також 22 байти ) працює в PHP 7; але це тому, що дужки копіюють значення константи у тимчасову змінну.

27 байт : <?=stripos(PHP_OS,win)===0;
тестує, якщо заздалегідь визначена PHP_OSконстанта починається win(регістр нечутливий; Windows, WIN32, WINNT, але не CYGWIN чи Darwin); принти 1для Windows, інакше нічого.

17/18 байт :

<?=strlen("
")-1;

друкує, 1якщо він зберігався з Windows linebreak (також на DOS, OS / 2 та Atari TOS - хоча я сумніваюся, що хтось коли-небудь компілював PHP для TOS), інше 0.

Ви також можете перевірити константу PHP_EOL.

більше опцій:

PHP_SHLIB_SUFFIXє dllв Windows, але не обов'язково тільки там.
php_uname()повертає інформацію про операційну систему та інше; починається з WindowsWindows.
$_SERVER['HTTP_USER_AGENT']міститиме, Windowsколи викликається в браузері в Windows.
<?=defined(PHP_WINDOWS_VERSION_BUILD);(38 байт) працює в PHP> = 5.3

висновок

Єдиний надійний спосіб визначити, чи справді це Windows, а не все схоже на це, здається, перевірка назви ОС. Для PHP: php_os()може бути відключено з міркувань безпеки; але PHP_OS, ймовірно, завжди буде містити бажану інформацію.

Befunge-98, 7 байт

6y2%!.@

Спробуйте в Інтернеті!

Це працює за допомогою запиту роздільника системного шляху, який знаходиться \в Windows та /інших операційних системах.

6y            System information query: #6 returns the path separator.
  2%          Test the low bit - this will be 1 for '/' and 0 for '\'.
    !         Not the value, so it becomes 0 for '/' and 1 for '\'.   
     .@       Output the result and exit.

Математика, 28 байт

$OperatingSystem=="Windows"&

Java 8, 33 байти

Особлива подяка Олів'є Грегоару за те separatorChar, що вони запропонували , та Критіксі Літос за -1 байт!

Це лямбда-вираз, який повертає булеве. Це можна призначити Supplier<Boolean> f = ...;та зателефонувати за допомогою f.get().

()->java.io.File.separatorChar>90

Спробуйте в Інтернеті! - сервер не windows, тому це друкуєfalse. Однак у моїй машині Windows той же код друкуєtrue.

Цей код робить, це отримати сепаратор файлів системи та перевірити, чи більша його кодова точка, ніж символ [. Це справедливо для Windows, оскільки він використовується \як сепаратор, але використовує будь-яка інша ОС /, яка має нижчий код у таблиці ASCII.

J, 7 байт

6=9!:12

Це дієслово (подібне до функції), яке використовує вбудований іноземний сполучник 9!:12для придбання системного типу, де 5 - Unix, а 6 - Windows32.

R, 15 байт

.Platform$O>"v"

Завдяки планувалу за пропозицію використовувати часткове узгодження для вилучення елементів списку.

.Platform - це список із деякими деталями платформи, під якою побудований R. Є елемент OS.type(єдиний елемент з ім'ям, що починається з "O"), який є рядком символів, що дає Операційній системі (сім'ї) комп'ютера. Один з "unix"або "windows".

Так "unix"менше "v", але "windows"більше, ніж тоді "v". Інші дійсні відповіді на 15 байт є

.Platform$O>"V"
.Platform$O>"w"
.Platform$O>"W"

R розробляється для сімейств операційних систем, схожих на Unix, Windows та Mac . Інші сімейства ОС не підтримуються.

Perl, 11 байт

print$^O=~MS

^O слід замінити буквальним Control-O.

Виходи 1на Windows, нічого на іншій ОС.

Зауважте, що я не використовую, sayоскільки він додає зворотний новий рядок, який є перламутровим в Perl

-2 байти завдяки приму. (і виправлені потенційні проблеми)
-1 байт завдяки ais523.

Джулія, 10 байт

is_windows

Функція, яка повертає true для Windows

машинний код x86, 9 байт

40 39 04 24 75 02 CD 80 C3

Складено з:

inc eax        ; set eax to 1
cmp [esp], eax ; check if [esp] == 1 (linux)
jne windows    ; jump over "int 0x80" if on windows
int 0x80       ; exit with exit code 0 (ebx)
windows:
ret            ; exit with exit code 1 (eax)

JavaScript, 42 30 26 25 байт

console.log((
//Begin
_=>navigator.oscpu[0]>'V'
//End
)())

Тестували за допомогою Firefox. (У Chrome немає oscpuвластивості.) Оскільки малі літери мають вищий код символів, ніж великі літери, це залежить від того, що перша літера navigator.oscpuє великими і не має значення W , X , Y або Z на будь-якій платформі, що підтримує Firefox (крім Windows, звичайно). Відповідно до цієї посади , це так.

Правки

1. Збережено 12 байт завдяки Нілу .
2. Збережено ще чотири байти
3. Збережено ще один байт завдяки Blender .

C #, 61 48 байт

()=>(int)System.Environment.OSVersion.Platform<4

Збережено 13 байт завдяки TheLethalCoder

Або повна програма на 83 байти:

class P{static int Main(){return(int)System.Environment.OSVersion.Platform<4?1:0;}}

Різні варіанти Windows використовують значення перерахунків від 0 до 3 у впровадженні Microsoft .NET . 4 - Unix, 5 - Xbox [360] (який я не вважатиму "Windows"), 6 - MacOSX. Mono використовує ті самі значення , додаючи 128 для Unix / Linux у попередніх версіях.

Тому що-небудь <4 - це Windows, а все інше - це не Windows.

Пакет, 50 байт

@if %OS%==Windows_NT if not exist Z:\bin\sh echo 1

Редагувати: виправлено ігнорування DOS, а не твердження, що це Windows.

Тільки інший спосіб я знаю, працює Batch поза Windows , полягає в використанні WINE , який за замовчуванням буде відображати Z:в /. Тому, якщо Z:\bin\shіснує, шанси на те, що це /bin/shтак, а не MS Windows.

Я не знаю, на що WINE встановлює% OS%, але якщо це не так, Windows_NTя міг би зберегти 23 байти.

QBasic, 31 байт

?INSTR(ENVIRON$("COMSPEC"),"W")

Друкує без нуля під Windows, 0 під усім рештою.

COMSPEC- це змінна середовище, унікальна для ОС Microsoft. Він вказує на інтерпретатора команд, як правило, command.comабо cmd.exe. У Windows командний інтерпретатор сидить десь у каталозі Windows; в MS-DOS він знаходиться в каталозі DOS або в корені диска, а в будь-якій іншій ОС він не існує.

Перевіривши, чи не COMSPECмістить значення "W", ми можемо визначити різницю між Windows та не-Windows.

Node.js, 27 16 15 13 байт

Завдяки @Patrick , який збрив 12 байт мого рішення, використовуючи REPL Node:

_=>os.EOL>`
`

Оригінальне рішення:

_=>require('path').sep!='/'

Excel VBA, 41 40 30 29 26 24 байт

Функція негайного вікна, яка повертається, trueякщо код ОС системи запускається довше тривалості 3, тому що інформація обмежена для виведення або інакше, macабо pcdosповертається trueлише на ПК Windows

?[Len(Info("SYSTEM"))>3]

Попередні версії

''# Ignore the second `"` that follows every `\` - its only there for highlighting 

?Left(Environ("OS"),1)="W"                 # 24 Bytes

?InStr(ThisWorkbook.Path,"\"")             # 29 Bytes

?Mid(ThisWorkbook.Path,3,1)="\""           # 30 Bytes, Restricted to local Files

?Application.PathSeparator="\""            # 30 Bytes

?Left(Application.OperatingSystem,1)="W"   # 40 Bytes

Зміни

-1 Завдяки Neil для використання Left(...,1)більшMid(...,1,1)

-10 Дякую Крішу за те, що він вказав трюк @ Mego's Path Separator Trick

-1 для перевірки WorkbookPathдля "\" замість того щоб використовуватиApplication.Path Separator

-4 Для переходу на Environ()

-2 Для переходу на [Len(Info(...

Нове рішення, 51 байт

Новий subрозпорядок, який виводить у вікно VBE безпосередньо, вікно 1 (truthy)під вікном та 0 (falsey)під mac методом умовної компіляції.

Sub a
i=1
#If Mac Then
i=0
#End If
Debug.?i
End Sub

Perl 6 ,  19  18 байт

put $*DISTRO.is-win

put ?($*CWD~~/\\/)

Як вихід, так True␤і False␤залежно від системи, на якій він працює.

APL (Dyalog) , 21 байт

'W'∊∊#⎕WG'APLVersion'

Спробуйте в Інтернеті!

#⎕WG'APLVersion' Корінь ( # ) W indow G і ін властивість APL Version

∊ заручитися (згладити)

'W'∊ є членом W ? (жодні значення, що повертаються для Windows, не містять великої літери W)

tcl, 38 байт

 expr [lsearch $tcl_platform windows]>0

PHP 17 байт

Далі буде виведено 1, якщо windows, і нічого, якщо нічого іншого. Ігнорування повідомлень про перетворення рядків.

<?=PHP_OS==WINNT;

Спробуйте в Інтернеті Інтернет-тести для Linux, тому що пісочниця є Linux для PoC.

Java 8, 49 байт

()->System.getenv().get("OS").contains("Windows")

Більше, ніж інші відповіді на Java , але використовує інший підхід.

Ця лямбда вписується в Supplier<Boolean>і може бути протестована за допомогою наступної програми:

public class DetectMSWindows {

  public static void main(String[] args) {
    System.out.println(f(() -> System.getenv().get("OS").contains("Windows")));
  }

  private static boolean f(java.util.function.Supplier<Boolean> s) {
    return s.get();
  }

}

Haskell, 39 31 байт

import System.Info
f=os!!0=='m'

Я перевіряю наявність виводу першої літери "m", яка повинна бути "mingw" для windows. Наскільки я міг сказати, немає іншої ОС, яка починається з М. Інформація надходить з https://github.com/ghc/ghc/blob/master/compiler/utils/Platform.hs

bash + coreutils, 5 байт

rm $0

Також працює в більшості інших оболонок POSIXy. (Зверніть увагу, що порти Windows існують bashі rmіснують; хоча вони зазвичай використовуються лише в більш інтенсивних операційних системах POSIXy, це не зовсім вакуумний запис.) Виводиться через вихідний код (0 = false, 1 = true). Можна вважати 4 байтами, якщо вам дозволяється приймати ім’я файлу (наприклад, rm a). Зауважте, що це може бути невдалим у випадку дуже дивних імен файлів (що rmтрактуватиметься як аргументи через відсутність цитування, і можливо видалення файлів, які вас хвилюють, тому я б радив не запускати цю програму з файлу із дивним іменем ).

Примітка: видаляє програму з диска як побічний ефект, або принаймні намагається. У випадку, коли ми працюємо в Windows, ОС не вдасться видалити запущений файл (операція, яку Windows забороняє або за замовчуванням, або повну зупинку), і, таким чином, rmвийде помилка. bashвиявляє помилку і перетворює її в код виходу (таким чином програма в цілому закінчується нормально). Більшість інших записів тут використовують 0 для falsey та 1 для truthy у вихідних кодах, тому це робить те саме; зауважте, що оператор bash's ifвзагалі не приймає цілі числа (скоріше, він приймає команди та гілки залежно від того, чи успішно вони працюють, а тести арифметики виконуються за допомогою таких програм, якtestщо навмисно повідомляють про «збій» при невдалому порівнянні), тож це є більш хитким в плані законності, ніж програми, які виводять за допомогою коду виходу мовами, де 0 є дійсним у ifтесті операторів і надсилає програму у elseвідділення.

8-й , 11 байт

 
os 1- not .
 

Друкує trueв Windows, falseна Linux та macOS. Інші платформи, які підтримують 8-й, - це Android, iOS та Raspberry Pi, але я не в змозі перевірити їх.

Безгольова версія (з коментарями)

 
G:os  \ Return a number n indicating the operating system 
      \ 0 for Linux
      \ 1 for Windows 
      \ 2 for macOS
      \ 3 for Android 
      \ 4 for iOS 
      \ 5 for Raspberry Pi
n:1-  \ Subtract 1
G:not \ If Windows --> true, otherwise --> false
.     \ Print result
 

Python 3 (13 байт)

import winreg

Повертається з кодом виходу нуля (як правило, в оболонках), якщо у Windows, а з ненульовим кодом виходу в іншому випадку.

Якщо ви віддаєте перевагу навпаки, є рішення 12 байт: import posix.

TrumpScript , 17 байт

America is great.

Спробуйте в Інтернеті!

Ця програма, якщо вона запущена на Windows, буде друкувати:

The big problem this country has is being PC

Це вважається правдивою цінністю.

Порожній вихід і наступне значення є хибними:

Boycott all Apple products  until such time as Apple gives cellphone info to authorities regarding radical Islamic terrorist couple from Cal

Порожній вихід буде відбуватися в будь-якій системі Linux (для цієї програми), тривалий відгук яблука, очевидно, відбувається на Mac (для будь-якої програми). У TIO, бекенд (я припускаю) є операційною системою Unix, тому ви можете отримати лише хибне значення; на комп’ютері я отримую повідомлення на ПК.

Не на 100% впевнений, що це вважатиметься повідомленням про помилку (що може визнати недійсною відповідь), але якщо ви про це не знали, то, мабуть, варто сміятися над вами.