Wyzwanie

Utwórz program, który zwraca prawdziwą wartość podczas uruchamiania w systemie Microsoft Windows (dla uproszczenia będziemy trzymać się Windows 7, 8.1 i 10) oraz wartość falsey w przypadku uruchamiania w dowolnym innym systemie operacyjnym (OSX, FreeBSD, Linux).

Zasady

• Kod, który nie działa / nie kompiluje się na platformie, nie jest liczony jako wartość falsey.

Kryteria wygranej

Oznaczam to jako kod-golf , więc wygrywa najniższy wynik, ale jestem również bardzo zainteresowany kreatywnymi rozwiązaniami tego problemu.

Vim, 2 bajty

<C-a>1

W systemie Windows <C-a>(ctrl + a) jest domyślnie mapowany na Select All. Jeśli wpiszesz „a” 1w trybie wyboru w systemie Windows, zastąpi on to, co wpisałeś (1), pozostawiając 1 w buforze.

W innych systemach operacyjnych <C-a>domyślnie jest mapowany na Increment number. Ponieważ nie ma liczby do zwiększenia, jest to brak operacji, a następnie 1 zwiększa liczbę, ale pod względem bufora jest to brak operacji.

1 jest prawdą w Vimie, a pusty ciąg znaków to fałsz

MATLAB, 4 bajty

ispc

Z dokumentacji :

tf = ispczwraca logiczną 1 (prawda), jeśli wersja oprogramowania MATLAB® jest przeznaczona dla platformy Microsoft® Windows®. W przeciwnym razie zwraca logiczne 0 (fałsz).

Istnieją również funkcje ismaci isunix. Pozostawię czytelnikowi ustalenie, jakie funkcje pełnią te funkcje. Mego proszeni o schematy wyjaśniające ismaci isunixtak starałem się zilustrować go tutaj:

To nie było pytanie o schemat ispc, ale mogę ujawnić, że zachowanie jest dość podobna, z wyjątkiem substytut OSXi Unixz Windows.

Drugie podejście:

Oto drugie podejście z getenvwykorzystaniem 23 bajtów, które powinny być kuloodporne, chyba że istnieje inny system operacyjny zaczynający się od W:

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

getenv 'name'przeszukuje bazową listę środowisk systemu operacyjnego w celu znalezienia tekstu formularza name=value, gdzie namejest wejściowy wektor znaków. Jeśli znaleziono, MATLAB® zwraca wartość wektora znaku. Jeśli nie można znaleźć określonej nazwy, zwracana jest pusta macierz.

Python 2.7.10 , 24 bajty

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

Dzięki FlipTack za 3 bajty

Ten program wykorzystuje fakt, że Windows jest jedynym systemem operacyjnym używanym \jako separator ścieżek. Zwykle jest to frustrujące i złe, ale choć raz jest to zaleta. W systemie Windows '['>os.sepjest fałszem, a zatem 0/0jest obliczany, powodując ZeroDivisionErrori wychodzenie z niezerowym kodem wyjścia. Na platformach innych niż Windows '['>os.sepjest to prawda, co powoduje wyrażenie 0/1, które nic nie robi, a program kończy działanie z kodem wyjścia 0.

Zestaw x86, 7 bajtów (zainspirowany odpowiedzią Runemoro )

31 DB 89 D8 40 CD 80

Lub

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

Opis

Przede wszystkim będziemy ustawiony eaxna 1(liczba wywołań systemowych dla exit(int val)dla Linux, FreeBSDi OSX). Następnie wywołamy bramkę przerwania, 0x80która jest bramą wywołania systemowego Linux, FreeBSDi OSX. To by spowodować, że program, aby wyjść ze statusem ebx, który jest 0( false).

W systemie Windows int 0x80jest niepoprawna brama (służy 2ejako brama syscall) i powoduje awarię programu, powodując, że kończy się dodatnim kodem wyjścia ( true).

Edycja: nie działałby, OSXponieważ ma inną konwencję przekazywania argumentów w wersji 32-bitowej (stos).

Referencje i dalsze czytanie

• FreeBSD - System Calls: Informacje o wywołaniach systemowych FreeBSD.
• System calls in the Linux kernel. Part 2.: Świetny artykuł na temat wywołań systemowych Linuksa.
• Linux Syscall Reference: odniesienie do numerów wywołań systemowych dla Linux.
• Windows Syscall Shellcode: Artykuł na temat bezpośredniego wywoływania wywołań systemowych windowsz zestawu.
• Making system calls from Assembly in Mac OS X: Artykuł na temat wywołań systemowych OSX.

C, 44 43 38 36 bajtów

Dzięki @Downgoat za bajt! ^{przekreślony 44 jest nadal regularny 44}
Dzięki @Neil za dwa bajty!

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

PHP, 22 bajty

`<?=PATH_SEPARATOR>":";`  

wypisuje, 1jeśli separator ścieżek jest średnikiem (dwukropek lub pusty dla wszystkich innych systemów operacyjnych oprócz DOS i OS / 2), w przeciwnym razie nic.

także 22 bajty , ale nie tak bezpieczne:

<?=strpos(__FILE__,92);

wypisuje dodatnią liczbę całkowitą, jeśli ścieżka do pliku zawiera ukośnik odwrotny; inaczej nic.
Bezpieczna alternatywa z 27 bajtami : <?=DIRECTORY_SEPARATOR>"/";odbitki 1lub nic.

Dziwne znalezisko : <?=__FILE__[1]==":";( 20 bajtów ) również nie powinno być bezpieczne, ale jest w porządku. Ale chociaż __FILE__udaje, że jest łańcuchem (próbowałem var_dumpi gettype), indeksowanie generuje błąd, chyba że skopiujesz go gdzie indziej (konkatenacja również działa) lub użyjesz go jako parametru funkcji.

Edycja:
<?=(__FILE__)[1]==":";(także 22 bajty ) działa w PHP 7; ale to dlatego, że nawiasy kopiują wartość stałej do zmiennej tymczasowej.

27 bajtów : <?=stripos(PHP_OS,win)===0;
sprawdza, czy wstępnie zdefiniowana PHP_OSstała zaczyna się od win(bez rozróżniania wielkości liter; Windows, WIN32, WINNT, ale nie CYGWIN lub Darwin); drukuje 1dla Windows, w przeciwnym razie nic.

17/18 bajtów :

<?=strlen("
")-1;

wypisuje, 1jeśli był przechowywany z łamaniem linii systemu Windows (także na DOS, OS / 2 i Atari TOS - chociaż wątpię, aby ktokolwiek kiedykolwiek skompilował PHP dla TOS), inaczej 0.

Możesz także sprawdzić stałą PHP_EOL.

więcej opcji:

PHP_SHLIB_SUFFIXjest dllw systemie Windows, ale niekoniecznie tylko tam.
php_uname()zwraca informacje o systemie operacyjnym i nie tylko; zaczyna się Windowsna Windows.
$_SERVER['HTTP_USER_AGENT']będzie zawierać Windowspo wywołaniu w przeglądarce w systemie Windows.
<?=defined(PHP_WINDOWS_VERSION_BUILD);(38 bajtów) działa w PHP> = 5.3

wniosek

Jedyny niezawodny sposób stwierdzenia, czy to naprawdę Windows, a nie coś takiego, wygląda na sprawdzenie nazwy systemu operacyjnego. Dla PHP: php_os()może być wyłączone ze względów bezpieczeństwa; ale PHP_OSprawdopodobnie zawsze będzie zawierać pożądane informacje.

Befunge-98, 7 bajtów

6y2%!.@

Wypróbuj online!

Działa to poprzez zapytanie o separator ścieżki systemowej, który znajduje się \w systemie Windows i /innych systemach operacyjnych.

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.

Mathematica, 28 bajtów

$OperatingSystem=="Windows"&

Java 8, 33 bajty

Specjalne podziękowania dla Oliviera Grégoire'a za sugestie separatorChari Kritixi Lithos za -1 bajt!

To wyrażenie lambda, które zwraca wartość logiczną. Można to przypisać Supplier<Boolean> f = ...;i wywołać za pomocą f.get().

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

Wypróbuj online! - serwer nie jest systemem Windows, więc to się drukujefalse. Jednak w moim komputerze z systemem Windows drukowany jest ten sam kodtrue.

Ten kod pobiera separator plików Systemu i sprawdza, czy jego kod jest większy niż znak [. Dotyczy to systemu Windows, ponieważ używa go \jako separatora - ale używa go każdy inny system operacyjny /, który ma niższy kod w tabeli ASCII.

J, 7 bajtów

6=9!:12

Jest to czasownik (podobny do funkcji), który wykorzystuje wbudowaną koniunkcję obcą, 9!:12aby uzyskać typ systemu, w którym 5 to Unix, a 6 to Windows32.

R, 15 bajtów

.Platform$O>"v"

Dzięki plannapusowi za sugestię użycia częściowego dopasowania do wyodrębnienia elementu listy.

.Platform to lista z niektórymi szczegółami platformy, na której zbudowano R. Istnieje element OS.type(jedyny element o nazwie zaczynającej się od „O”), który jest ciągiem znaków, podającym system operacyjny (rodzinę) komputera. Jeden z "unix"lub "windows".

Więc "unix"jest mniej niż "v", ale "windows"jest większy niż "v". Inne prawidłowe 15 bajtów odpowiedzi to

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

R jest opracowywany dla systemów operacyjnych z rodziny Unix, Windows i Mac . Inne rodziny systemów operacyjnych nie są obsługiwane.

Perl, 11 bajtów

print$^O=~MS

^O należy zastąpić dosłownie Control-O.

Dane wyjściowe 1w systemie Windows, nic w innym systemie operacyjnym.

Zauważ, że nie używam, sayponieważ dodaje końcowy znak nowej linii, co jest prawdą w Perlu.

-2 bajty dzięki primo. (i naprawiono potencjalne problemy)
-1 bajtów dzięki ais523.

Julia, 10 bajtów

is_windows

Funkcja, która zwraca wartość true dla systemu Windows

kod maszynowy x86, 9 bajtów

40 39 04 24 75 02 CD 80 C3

Opracowano z:

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 bajtów

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

Testowane z Firefoksem. (Chrome nie ma tej oscpuwłaściwości.) Ponieważ małe litery mają większy kod znaków niż wielkie litery, zależy to od tego, czy pierwsza litera navigator.oscpuma duże litery, a nie W , X , Y lub Z na dowolnej platformie obsługiwanej przez Firefox (innej niż Windows oczywiście). Według tego postu tak właśnie jest.

Edycje

1. Zaoszczędzono 12 bajtów dzięki Neilowi .
2. Zapisano kolejne cztery bajty
3. Zaoszczędź kolejny bajt dzięki Blenderowi .

C #, 61 48 bajtów

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

Zaoszczędź 13 bajtów dzięki TheLethalCoder

Lub pełny program o wielkości 83 bajtów:

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

Różne warianty systemu Windows używają wartości wyliczeniowych od 0 do 3 w implementacji Microsoft .NET . 4 to Unix, 5 to Xbox [360] (którego nie będę uważał za „Windows”), 6 to MacOSX. Mono używa tych samych wartości , dodając 128 dla Unix / Linux we wcześniejszych wersjach.

Dlatego wszystko <4 to Windows, a wszystko inne to nie Windows.

Partia, 50 bajtów

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

Edycja: Naprawiono ignorowanie DOS zamiast twierdzenia, że ​​to Windows.

Tylko inny sposób znam działa Batch poza systemem Windows jest użycie wino, które domyślnie będzie mapować Z:do /. Dlatego jeśli Z:\bin\shistnieje, są szanse, że /bin/shtak, więc nie MS Windows.

Nie wiem, do czego WINE ustawia% OS%, ale jeśli nie, Windows_NTto mogę zapisać 23 bajty.

QBasic, 31 bajtów

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

Drukuje niezerowe pod Windows, 0 pod wszystkimi innymi.

COMSPECjest zmienną środowiskową unikalną dla systemów operacyjnych Microsoft. Wskazuje interpreter poleceń, zwykle command.comlub cmd.exe. W systemie Windows interpreter poleceń znajduje się gdzieś w katalogu Windows; pod MS-DOS, znajduje się w katalogu DOS lub w katalogu głównym dysku, a pod żadnym innym systemem operacyjnym nie istnieje.

Sprawdzając, czy wartość COMSPEC„W” zawiera wartość „W”, możemy odróżnić system Windows od systemu innego niż Windows.

Node.js, 27 16 15 13 bajtów

Dzięki @Patrick , który zgolił 12 bajtów mojego rozwiązania za pomocą REPL Node:

_=>os.EOL>`
`

Oryginalne rozwiązanie:

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

Excel VBA, 41 40 30 29 26 24 bajtów

Natychmiastowa funkcja truesystemu Windows, która zwraca się, jeśli kod systemu zaczyna się, jest dłuższy niż 3, ponieważ informacje są ograniczone do wyjścia albo inaczej, macalbo pcdoszwraca truetylko na Windows szt.

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

Poprzednie wersje

''# 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

Zmiany

-1 Podziękowania dla Neila za korzystanie Left(...,1)z niegoMid(...,1,1)

-10 Podziękowania dla ChrisH za wskazanie sztuczki Separator ścieżek @ Mego

-1 Kontrola WorkbookPathza "\" zamiast używaćApplication.Path Separator

-4 Do przełączania na Environ()

-2 Do przełączania na [Len(Info(...

Nowe rozwiązanie, 51 bajtów

Nowa subprocedura, która wyprowadza do VBE natychmiastowe okno, okno 1 (truthy)pod i okno 0 (falsey)pod mac, metodą kompilacji warunkowej.

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

Perl 6 ,  19  18 bajtów

put $*DISTRO.is-win

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

Zarówno wyjście, jak True␤i False␤zależnie od systemu, na którym jest uruchomiony.

APL (Dyalog) , 21 bajtów

'W'∊∊#⎕WG'APLVersion'

Wypróbuj online!

#⎕WG'APLVersion' Root ( # ) W indow G et właściwość Wersja APL

∊ zaciągnąć się (spłaszczyć)

'W'∊ Jest W członka? (żadne wartości zwracane poza Windows nie zawierają dużej W)

tcl, 38 bajtów

 expr [lsearch $tcl_platform windows]>0

PHP 17 bajtów

Poniższe wyświetli 1 jeśli Windows i nic, jeśli cokolwiek innego. Ignorowanie powiadomień o konwersji łańcucha.

<?=PHP_OS==WINNT;

Wypróbuj online testy online dla systemu Linux, ponieważ piaskownica jest systemem Linux dla PoC.

Java 8, 49 bajtów

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

Dłuższy niż druga odpowiedź Java , ale ma inne podejście.

Ta lambda pasuje do a Supplier<Boolean>i można ją przetestować za pomocą następującego programu:

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 bajtów

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

Sprawdzam, czy pierwsza litera ma „m”, która powinna być „mingw” dla systemu Windows. O ile mogę powiedzieć, nie ma innego systemu operacyjnego, który zaczyna się na M. Informacje pochodzą z https://github.com/ghc/ghc/blob/master/compiler/utils/Platform.hs

bash + coreutils, 5 bajtów

rm $0

Działa również w większości innych powłok POSIXy. (Zauważ, że istnieją bashi rmistnieją porty Windows ; chociaż są one zwykle używane tylko z większymi systemami operacyjnymi POSIXy, nie jest to całkowicie pusta pozycja.) Dane wyjściowe za pośrednictwem kodu wyjścia (0 = fałsz, 1 = prawda). Może być liczony jako 4 bajty, jeśli możesz założyć nazwę pliku (np rm a.). Pamiętaj, że może to potencjalnie zakończyć się niepowodzeniem w przypadku bardzo dziwnych nazw plików (które rmbędą interpretowane jako argumenty z powodu braku cytowania i prawdopodobnie usuwają pliki, na których Ci zależy, więc odradzam uruchamianie tego programu z pliku o dziwnej nazwie ).

Uwaga: usuwa program z dysku jako efekt uboczny lub przynajmniej próbuje. W przypadku, gdy działamy w systemie Windows, system operacyjny nie usunie uruchomionego pliku (operacja, którą system Windows domyślnie wyklucza lub zatrzyma), a zatem rmwystąpi błąd. bashwyłapuje błąd i konwertuje go na kod wyjścia (w ten sposób program jako całość kończy się normalnie). Większość innych wpisów tutaj używa 0 dla falsey i 1 dla prawdy w kodach wyjścia, więc robi to samo; pamiętać, że bash„s ifoświadczenie nie akceptuje liczby całkowite na wszystkich (raczej akceptuje polecenia i gałęzie na podstawie tego, czy działają one poprawnie, a testy arytmetyczne są wykonywane za pośrednictwem środków programów jaktestktóre celowo zgłaszają „awarię” przy nieudanym porównaniu), więc dzieje się to na chwiejniejszych podstawach pod względem legalności niż programy, które ifwysyłają kod wyjściowy w językach, w których 0 jest poprawne w teście instrukcji i wysyła program do elseoddziału.

8 , 11 bajtów

 
os 1- not .
 

Drukuje truew systemie Windows, falseLinux i macOS. Inne platformy obsługiwane przez 8th to Android, iOS i Raspberry Pi, ale nie jestem w stanie ich przetestować.

Wersja bez golfa (z komentarzami)

 
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 bajtów)

import winreg

Zwraca kod wyjścia zero (ogólnie prawda w powłokach), jeśli w systemie Windows, a kod niezerowy w przeciwnym razie.

Jeśli wolisz, to w drugą stronę, nie jest rozwiązaniem 12 bajtów: import posix.

TrumpScript , 17 bajtów

America is great.

Wypróbuj online!

Ten program, jeśli zostanie uruchomiony w systemie Windows, wydrukuje:

The big problem this country has is being PC

Jest to uważane za prawdziwą wartość.

Puste wyjście i następująca wartość są fałszem:

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

Puste wyjście pojawi się na dowolnym systemie Linux (dla tego programu), odpowiedź długiego jabłka oczywiście występuje na Macu (dla dowolnego programu). W TIO backend (zakładam, że) jest systemem operacyjnym uniksowym, więc możesz uzyskać tylko wartość fałsz; na moim komputerze pojawia się komunikat PC.

Nie jestem w 100% pewien, czy liczy się to jako komunikat o błędzie (który unieważniłby odpowiedź), ale jeśli nie wiedziałeś o tym, prawdopodobnie warto się z ciebie pośmiać.