Desafio

Crie um programa que retorne um valor verdadeiro quando executado no Microsoft Windows (por uma questão de simplicidade, usaremos o Windows 7, 8.1 e 10) e um valor falsey quando executado em qualquer outro sistema operacional (OSX, FreeBSD, Linux).

Regras

• Código que falha ao executar / compilar em uma plataforma não conta como um valor falsey.

Critérios de vitória

Estou rotulando isso como código-golfe , então a pontuação mais baixa vence, mas também estou muito interessado em encontrar soluções criativas para esse problema.

Vim, 2 bytes

<C-a>1

No Windows, <C-a>(ctrl + a) é mapeado por padrão para Select All. Se você digitar a 1no modo de seleção no Windows, ele substituirá a seleção pelo que você digitou (1), deixando 1 no buffer.

Em outros sistemas operacionais, <C-a>por padrão, é mapeado para Increment number. Como não há número para incrementar, é um no-op e o 1 aumenta a contagem, mas em termos de buffer é um no-op.

1 é verdade no Vim, e uma string vazia é falsa

MATLAB, 4 bytes

ispc

A partir da documentação :

tf = ispcretorna 1 lógico (verdadeiro) se a versão do software MATLAB® for para a plataforma Microsoft® Windows®. Caso contrário, ele retornará 0 lógico (falso).

Existem também as funções ismace isunix. Vou deixar para o leitor descobrir o que essas funções fazem. Mego gentilmente pediu diagramas explicando ismace, isunixportanto, tentei ilustrá-lo aqui:

Não foi solicitado um diagrama de, ispcmas posso revelar que o comportamento é bastante semelhante, exceto substituto OSXe Unixcom Windows.

Segunda abordagem:

Aqui está uma segunda abordagem com o getenvuso de 23 bytes que deve ser à prova de balas, a menos que haja outro sistema operacional começando com W:

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

getenv 'name'procura na lista de ambiente do sistema operacional subjacente o texto do formulário name=value, onde nameestá o vetor de caracteres de entrada. Se encontrado, o MATLAB® retorna o valor do vetor de caracteres. Se o nome especificado não puder ser encontrado, uma matriz vazia será retornada.

Python 2.7.10 , 24 bytes

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

Graças ao FlipTack por 3 bytes

Este programa tira proveito do fato de o Windows ser o único sistema operacional a ser usado \como um separador de caminhos. Normalmente isso é frustrante e ruim, mas pela primeira vez é realmente uma vantagem. No Windows, '['>os.sepé falso e, portanto, 0/0é calculado, causando ZeroDivisionErrore saindo com um código de saída diferente de zero. Em plataformas não Windows, '['>os.sepé verdade, criando a expressão 0/1, que não faz nada, e o programa sai com o código de saída 0.

Montagem x86, 7 bytes (Inspirado na resposta de Runemoro )

31 DB 89 D8 40 CD 80

Ou

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

Descrição

Primeiro de tudo, vamos definir eaxa 1(o número de chamada do sistema para exit(int val)para Linux, FreeBSDe OSX). Então, chamaremos o portão de interrupção, 0x80que é o portão de chamada do sistema para Linux, FreeBSDe OSX. Isso faria com que o programa para sair com o status de ebxque é 0(false ).

No Windows, int 0x80existe um portão inválido (ele usa 2ecomo um portão syscall) e travaria o programa, fazendo com que ele terminasse com um código de saída positivo ( true).

Editar: não funcionariaOSX pois possui uma convenção de passagem de argumentos diferente em 32 bits (pela pilha).

Referências e leituras adicionais

• FreeBSD - System Calls: Informações sobre chamadas do sistema FreeBSD.
• System calls in the Linux kernel. Part 2.: Um ótimo artigo sobre as chamadas de sistema do Linux.
• Linux Syscall Reference: uma referência de números de telefone do sistema para Linux.
• Windows Syscall Shellcode: Um artigo sobre como chamar diretamente o sistema chama windowsda montagem.
• Making system calls from Assembly in Mac OS X: Um artigo sobre o sistema é chamado OSX.

C, 44 43 38 36 bytes

Obrigado a @Downgoat por um byte! ^{riscado 44 ainda é regular 44}
Obrigado a @ Neil por dois bytes!

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

PHP, 22 bytes

`<?=PATH_SEPARATOR>":";`  

imprime 1se o separador de caminho é ponto-e-vírgula (dois pontos ou vazio para todos os outros sistemas operacionais, exceto para DOS e OS / 2), senão nada.

também 22 bytes , mas não tão seguro:

<?=strpos(__FILE__,92);

imprime um número inteiro positivo se o caminho do arquivo contiver uma barra invertida; mais nada.
Uma alternativa segura com 27 bytes : <?=DIRECTORY_SEPARATOR>"/";imprime 1ou nada.

Uma descoberta estranha : <?=__FILE__[1]==":";( 20 bytes ) também deve ser, não segura, mas ok. Mas, embora __FILE__finge ser um string (eu tentei var_dumpe gettype), indexando ele lança um erro, a menos que você copiá-lo em outro lugar (concatenação também funciona) ou usá-lo como um parâmetro de função.

Edit:
<?=(__FILE__)[1]==":";(também 22 bytes ) funciona no PHP 7; mas isso ocorre porque os parênteses copiam o valor da constante para uma variável temporária.

27 bytes : <?=stripos(PHP_OS,win)===0;
testa se a PHP_OSconstante predefinida começa com win(sem distinção entre maiúsculas e minúsculas; Windows, WIN32, WINNT, mas não CYGWIN ou Darwin); imprime 1para Windows, senão nada.

17/18 bytes :

<?=strlen("
")-1;

imprime 1se foi armazenado com quebra de linha do Windows (também no DOS, OS / 2 e Atari TOS - embora eu duvide que alguém tenha compilado o PHP para o TOS) 0.

Você também pode verificar a constante PHP_EOL.

mais opções:

PHP_SHLIB_SUFFIXestá dllno Windows, mas não necessariamente lá.
php_uname()retorna informações sobre o sistema operacional e muito mais; começa com Windowspara Windows.
$_SERVER['HTTP_USER_AGENT']conterá Windowsquando chamado em um navegador no Windows.
<?=defined(PHP_WINDOWS_VERSION_BUILD);(38 bytes) funciona em PHP> = 5.3

conclusão

A única maneira segura de dizer se é realmente o Windows, não algo parecido, parece ser uma verificação do nome do sistema operacional. Para PHP: php_os()pode ser desativado por motivos de segurança; mas PHP_OSprovavelmente sempre conterá as informações desejadas.

Befunge-98, 7 bytes

6y2%!.@

Experimente online!

Isso funciona consultando o separador de caminho do sistema, que está \no Windows e /em outros sistemas operacionais.

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 bytes

$OperatingSystem=="Windows"&

Java 8, 33 bytes

Agradecimentos especiais a Olivier Grégoire por sugerir separatorChare a Kritixi Lithos por -1 byte!

Esta é uma expressão lambda que retorna um booleano. Isso pode ser atribuído Supplier<Boolean> f = ...;e chamado com f.get().

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

Experimente online! - o servidor não é o Windows, então isso é impressofalse. No entanto, na minha máquina Windows, o mesmo código é impressotrue.

O que esse código faz é obter o separador de arquivos do sistema e verificar se o ponto de código é maior que o caractere [. Isso vale para o Windows, pois é usado \como separador - mas todos os outros sistemas operacionais usam /, que possui um código mais baixo na tabela ASCII.

J, 7 bytes

6=9!:12

Este é um verbo (semelhante a uma função) que usa a conjunção externa interna 9!:12para adquirir o tipo de sistema em que 5 é Unix e 6 é Windows32.

R, 15 bytes

.Platform$O>"v"

Graças a plannapus pela sugestão de usar correspondência parcial para extração de elementos da lista.

.Platform é uma lista com alguns detalhes da plataforma sob a qual R foi construído. Há um elemento OS.type(o único elemento com o nome começando com "O") que é a cadeia de caracteres, fornecendo o sistema operacional (família) do computador. Um de"unix" ou "windows".

Então "unix"é menos então "v", mas "windows"é maior então "v". Outras respostas válidas de 15 bytes são

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

R está sendo desenvolvido para as famílias de sistemas operacionais do tipo Unix, Windows e Mac . Outras famílias de SO não são suportadas.

Perl, 11 bytes

print$^O=~MS

^O deve ser substituído por um literal Control-O.

Saídas 1no Windows, nada em outro sistema operacional.

Note que eu não estou usando say , pois adiciona uma nova linha à direita, que é verdadeira no Perl.

-2 bytes graças ao primo. (e possíveis problemas corrigidos)
-1 bytes graças ao ais523.

julia, 10 bytes

is_windows

Uma função que retorna true para windows

código de máquina x86, 9 bytes

40 39 04 24 75 02 CD 80 C3

Compilado a partir de:

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 bytes

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

Testado com o Firefox. (O Chrome não possui a oscpupropriedade.) Como as letras minúsculas têm um código de caracteres mais alto que as letras maiúsculas, isso depende da primeira letra navigator.oscpuestar em maiúscula e não ser W , X , Y ou Z em qualquer plataforma compatível com o Firefox (exceto Windows, é claro). De acordo com este post , esse é o caso.

Editar% s

1. Economizou 12 bytes graças a Neil .
2. Salvo outros quatro bytes
3. Salvo outro byte, graças ao Blender .

C #, 61 48 bytes

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

Economizou 13 bytes graças ao TheLethalCoder

Ou um programa completo com 83 bytes:

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

Várias variantes do Windows usam valores de enumeração 0 a 3 na implementação do Microsoft .NET . 4 é Unix, 5 é Xbox [360] (que não considerarei "Windows"), 6 é MacOSX. Mono usa os mesmos valores , adicionando 128 para Unix / Linux em versões anteriores.

Portanto, qualquer coisa <4 é Windows e todo o resto não é Windows.

Lote, 50 bytes

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

Editar: corrigido para ignorar o DOS em vez de afirmar que é o Windows.

A única outra maneira que eu conheço de correr Batch fora do Windows é usar vinho, que por padrão irá mapear Z:a /. Portanto, se Z:\bin\shexistir, é provável que sim /bin/sh, e não o MS Windows.

Não sei o que o WINE define% OS%, mas se não for Windows_NT, eu poderia salvar 23 bytes.

QBasic, 31 bytes

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

Imprime diferente de zero no Windows, 0 em todo o resto.

COMSPECé uma variável de ambiente exclusiva para os SOs da Microsoft. Aponta para o intérprete de comando, normalmente command.comou cmd.exe. No Windows, o interpretador de comandos fica em algum lugar do diretório do Windows; no MS-DOS, ele fica no diretório DOS ou na raiz do disco e, em qualquer outro sistema operacional, ele não existe.

Ao verificar se o valor de COMSPECcontém um "W", podemos dizer a diferença entre Windows e não-Windows.

Node.js, 27 16 15 13 bytes

Graças a @Patrick , que removeu 12 bytes da minha solução usando o REPL do Node:

_=>os.EOL>`
`

Solução original:

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

Excel VBA, 41 40 30 29 26 24 bytes

Função imediata do Windows que retorna truese o código do sistema operacional iniciar mais do que o comprimento 3, porque as informações estão restritas à saída macou pcdosretornam trueapenas nos computadores com Windows

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

Versões prévias

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

Alterar

-1 Agradecimentos a Neil por usar Left(...,1)maisMid(...,1,1)

-10 Obrigado a ChrisH por apontar o truque do separador de caminhos do Mego

-1 para verificar o WorkbookPathpara"\" vez de usarApplication.Path Separator

-4 Para mudar para Environ()

-2 Para mudar para [Len(Info(...

Solução nova, 51 bytes

Nova subrotina que gera, para o VBE, janela imediata, a 1 (truthy)sob janelas e 0 (falsey)sob mac pelo método de compilação condicional.

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

Perl 6 ,  19  18 bytes

put $*DISTRO.is-win

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

Saída True␤ou False␤dependendo do sistema em que é executado.

APL (Dyalog) , 21 bytes

'W'∊∊#⎕WG'APLVersion'

Experimente online!

#⎕WG'APLVersion' Raiz ( # ) W indow G et propriedade APL Versão

∊ alistar-se (achatar)

'W'∊W  é um membro? (nenhum valor de retorno que não seja do Windows contém um W maiúsculo)

tcl, 38 bytes

 expr [lsearch $tcl_platform windows]>0

PHP 17 bytes

A seguir, será exibido 1 se janelas e nada se houver outra coisa. Ignorando avisos de conversão de string.

<?=PHP_OS==WINNT;

Experimente testes on- line on- line para linux porque o sandbox é linux para PoC.

Java 8, 49 bytes

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

Mais longo que a outra resposta Java , mas adota uma abordagem diferente.

Este lambda se encaixa em um Supplier<Boolean>e pode ser testado com o seguinte programa:

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 bytes

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

Verifico a saída da primeira letra de "m", que deve ser "mingw" para janelas. Até onde eu sei, não há outro sistema operacional que comece com M. As informações vêm de https://github.com/ghc/ghc/blob/master/compiler/utils/Platform.hs

bash + coreutils, 5 bytes

rm $0

Também funciona na maioria dos outros shells POSIXy. (Observe que as portas Windows existem bashe rmexistem; mesmo sendo normalmente usadas apenas com sistemas operacionais POSIXy mais pesados, essa não é uma entrada totalmente vazia). Saídas via código de saída (0 = false, 1 = true). Pode ser contado como 4 bytes se você puder assumir um nome de arquivo (por exemplo rm a). Observe que isso pode falhar potencialmente no caso de nomes de arquivos muito estranhos (querm serão interpretados como argumentos devido à falta de citação e possivelmente excluirão os arquivos de seu interesse, por isso aconselho a não executar este programa a partir de um arquivo com um nome estranho )

Nota: exclui o programa do disco como efeito colateral, ou pelo menos tenta. No caso em que estamos executando no Windows, o sistema operacional falhará ao excluir o arquivo em execução (uma operação que o Windows não permite por padrão ou por ponto final) e, portanto, rmocorrerá um erro. bashcaptura o erro e o converte em um código de saída (assim, o programa como um todo termina normalmente). A maioria das outras entradas aqui estão usando 0 para falsey e 1 para verdade nos códigos de saída, portanto, isso faz o mesmo; observe que basha ifinstrução não aceita números inteiros (em vez disso, aceita comandos e ramificações com base em sua execução com êxito, e testes aritméticos são feitos por meio de programas comotestque relatam intencionalmente um "travamento" em uma comparação com falha), portanto, isso é mais embaraçoso em termos de legalidade do que os programas que saem via código de saída nos idiomas em que 0 é válido em umifteste de instrução e envia o programa para a elsefilial.

8o , 11 bytes

 
os 1- not .
 

Imprime trueno Windows, falseno Linux e no macOS. Outras plataformas suportadas pelo 8th são Android, iOS e Raspberry Pi, mas não consigo testá-las.

Versão ungolfed (com comentários)

 
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 bytes)

import winreg

Retorna com o código de saída zero (geralmente verdadeiro em shells) se estiver no Windows e com um código de saída diferente de zero.

Se preferir o contrário, há uma solução de 12 bytes: import posix.

TrumpScript , 17 bytes

America is great.

Experimente online!

Este programa, se executado no Windows, imprimirá:

The big problem this country has is being PC

Este é considerado um valor verdadeiro.

Saída vazia e o seguinte valor é falso:

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

A saída vazia ocorrerá em qualquer sistema Linux (para este programa), a longa resposta da Apple obviamente ocorre no Mac (para qualquer programa). No TIO, o back-end (suponho) é um sistema operacional Unix, então você só pode obter o valor falso; no meu computador, recebo a mensagem do PC.

Não tenho 100% de certeza se isso conta como uma mensagem de erro (o que invalidaria a resposta), mas se você não soubesse disso, provavelmente valeria a pena rir.