Desafío

Cree un programa que devuelva un valor verdadero cuando se ejecuta en Microsoft Windows (por simplicidad nos quedaremos con Windows 7, 8.1 y 10) y un valor falso cuando se ejecuta en cualquier otro sistema operativo (OSX, FreeBSD, Linux).

Reglas

• El código que no se ejecuta / compila en una plataforma no cuenta como un valor falso.

Criterios ganadores

Estoy etiquetando esto como código de golf , por lo que gana la puntuación más baja, pero también estoy muy interesado en ver soluciones creativas a este problema.

Vim, 2 bytes

<C-a>1

En Windows, <C-a>(ctrl + a) se asigna de forma predeterminada a Select All. Si escribe un 1modo de selección en Windows, reemplaza la selección con lo que escribió (1) dejando un 1 en el búfer.

En otros sistemas operativos, <C-a>de forma predeterminada se asigna a Increment number. Debido a que no hay un número para incrementar, es un no-op, y luego el 1 aumenta el conteo, pero en términos del búfer es un no-op.

1 es verdadero en Vim, y una cadena vacía es falsa

MATLAB, 4 bytes

ispc

De la documentación :

tf = ispcdevuelve 1 lógico (verdadero) si la versión del software MATLAB® es para la plataforma Microsoft® Windows®. De lo contrario, devuelve 0 lógico (falso).

También están las funciones ismacy isunix. Le dejaré al lector que descubra qué hacen esas funciones. Mego amablemente pidió diagramas para explicar ismacy isunixpor lo que he tratado de ilustrar aquí:

No se le pidió un diagrama de, ispcpero puedo revelar que el comportamiento es bastante similar, excepto sustituto OSXy Unixcon Windows.

Segundo enfoque:

Aquí hay un segundo enfoque con el getenvuso de 23 bytes que deberían ser a prueba de balas, a menos que haya otro sistema operativo que comience con W:

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

getenv 'name'busca en la lista del entorno del sistema operativo subyacente el texto del formulario name=value, donde se nameencuentra el vector de caracteres de entrada. Si se encuentra, MATLAB® devuelve el valor del vector de caracteres. Si no se puede encontrar el nombre especificado, se devuelve una matriz vacía.

Python 2.7.10 , 24 bytes

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

Gracias a FlipTack por 3 bytes

Este programa aprovecha el hecho de que Windows es el único sistema operativo que se utiliza \como separador de ruta. Normalmente esto es frustrante y malo, pero por una vez es realmente una ventaja. En Windows, '['>os.sepes falso y, por lo tanto, 0/0se calcula, provocando una ZeroDivisionErrorsalida y un código de salida distinto de cero. En plataformas que no son Windows, '['>os.sepes cierto, haciendo la expresión 0/1, que no hace nada, y el programa sale con el código de salida 0.

Ensamblaje x86, 7 bytes (inspirado por la respuesta de Runemoro )

31 DB 89 D8 40 CD 80

O

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

Descripción

En primer lugar, vamos a establecer eaxa 1(el número de llamadas al sistema para exit(int val)para Linux, FreeBSDy OSX). Luego, llamaremos a la puerta de interrupción, 0x80que es la puerta de llamada del sistema Linux, FreeBSDy OSX. Eso haría que el programa salga con el estado de ebxque es 0( false).

En Windows int 0x80es una puerta inválida (se usa 2ecomo puerta syscall) y bloqueará el programa, haciendo que termine con un código de salida positivo ( true).

Editar: no funcionaría OSXya que tiene una convención de paso de argumento diferente en 32 bits (por la pila).

Referencias y lecturas adicionales

• FreeBSD - System Calls: Información sobre llamadas del sistema FreeBSD.
• System calls in the Linux kernel. Part 2.: Un gran artículo sobre las llamadas al sistema de Linux.
• Linux Syscall Reference: una referencia de números de llamada del sistema para Linux.
• Windows Syscall Shellcode: Un artículo sobre cómo llamar directamente al sistema windowsdesde el ensamblado.
• Making system calls from Assembly in Mac OS X: Un artículo sobre llamadas al sistema OSX.

C, 44 43 38 36 bytes

¡Gracias a @Downgoat por un byte! ^{tachado 44 sigue siendo regular 44 ¡}
Gracias a @Neil por dos bytes!

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

PHP, 22 bytes

`<?=PATH_SEPARATOR>":";`  

se imprime 1si el separador de ruta es punto y coma (dos puntos o vacío para todos los demás sistemas operativos excepto DOS y OS / 2), de lo contrario, nada.

También 22 bytes , pero no es tan seguro:

<?=strpos(__FILE__,92);

imprime un entero positivo si la ruta del archivo contiene una barra invertida; de lo contrario nada.
Una alternativa segura con 27 bytes : <?=DIRECTORY_SEPARATOR>"/";impresiones 1o nada.

Un hallazgo extraño : <?=__FILE__[1]==":";( 20 bytes ) debería ser, tampoco seguro, pero está bien. Pero aunque __FILE__pretende ser una cadena (lo intenté var_dumpy gettype), indexarlo arroja un error, a menos que lo copie en otro lugar (la concatenación también funciona) o lo use como un parámetro de función.

Editar:
<?=(__FILE__)[1]==":";(también 22 bytes ) funciona en PHP 7; pero eso se debe a que los paréntesis copian el valor de la constante en una variable temporal.

27 bytes : <?=stripos(PHP_OS,win)===0;
comprueba si la PHP_OSconstante predefinida comienza con win(mayúsculas y minúsculas; Windows, WIN32, WINNT, pero no CYGWIN o Darwin); impresiones 1para Windows, de lo contrario nada.

17/18 bytes :

<?=strlen("
")-1;

imprime 1si se almacenó con Windows linebreak (también en DOS, OS / 2 y Atari TOS, aunque dudo que alguien haya compilado PHP para TOS), de lo contrario 0.

También puede verificar la constante PHP_EOL.

mas opciones:

PHP_SHLIB_SUFFIXestá dllen Windows, pero no necesariamente solo allí.
php_uname()devuelve información sobre el sistema operativo y más; comienza con Windowspara Windows.
$_SERVER['HTTP_USER_AGENT']contendrá Windowscuando se llame en un navegador en Windows.
<?=defined(PHP_WINDOWS_VERSION_BUILD);(38 bytes) funciona en PHP> = 5.3

conclusión

La única forma segura de saber si realmente es Windows, y no nada parecido, es verificar el nombre del sistema operativo. Para PHP: php_os()puede deshabilitarse por razones de seguridad; pero PHP_OSprobablemente siempre contendrá la información deseada.

Befunge-98, 7 bytes

6y2%!.@

Pruébalo en línea!

Esto funciona consultando el separador de ruta del sistema, que está \en Windows y /en otros sistemas operativos.

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

¡Un agradecimiento especial a Olivier Grégoire por sugerir separatorChar, y Kritixi Lithos por -1 byte!

Esta es una expresión lambda que devuelve un valor booleano. Esto se puede asignar Supplier<Boolean> f = ...;y llamar con f.get().

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

Pruébalo en línea! - el servidor no es Windows, así que esto se imprimefalse. Sin embargo, en mi máquina Windows, se imprime el mismo códigotrue.

Lo que hace este código es obtener el separador de archivos del sistema y verificar si su punto de código es más grande que el carácter [. Esto es cierto para Windows, ya que se usa \como separador, pero cualquier otro sistema operativo usa /, que tiene un código más bajo en la tabla ASCII.

J, 7 bytes

6=9!:12

Este es un verbo (similar a una función) que utiliza la conjunción extranjera incorporada 9!:12para adquirir el tipo de sistema donde 5 es Unix y 6 es Windows32.

R, 15 bytes

.Platform$O>"v"

Gracias a plannapus por la sugerencia de utilizar una coincidencia parcial para la extracción de elementos de lista.

.Platform es una lista con algunos detalles de la plataforma bajo la cual se construyó R. Hay un elemento OS.type(el único elemento con nombre que comienza con "O") que es una cadena de caracteres, que proporciona el sistema operativo (familia) de la computadora. Uno de "unix"o "windows".

Entonces "unix"es menor entonces "v", pero "windows"es mayor entonces "v". Otras respuestas válidas de 15 bytes son

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

R se está desarrollando para las familias de sistemas operativos tipo Unix, Windows y Mac . No se admiten otras familias de sistemas operativos.

Perl, 11 bytes

print$^O=~MS

^O debe ser reemplazado por un Control-O literal.

Salidas 1en Windows, nada en otro sistema operativo.

Tenga en cuenta que no estoy usando, sayya que agrega una nueva línea final, lo cual es cierto en Perl.

-2 bytes gracias a primo. (y problemas potenciales corregidos)
-1 bytes gracias a ais523.

julia, 10 bytes

is_windows

Una función que devuelve verdadero para windows

código de máquina x86, 9 bytes

40 39 04 24 75 02 CD 80 C3

Compilado 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
)())

Probado con Firefox. (Chrome no tiene la oscpupropiedad). Dado que las letras minúsculas tienen un código de caracteres más alto que las mayúsculas, esto depende de que la primera letra navigator.oscpusea ​​mayúscula y no sea W , X , Y o Z en ninguna plataforma que admita Firefox (que no sea Windows, por supuesto). Según esta publicación , ese es el caso.

Ediciones

1. Guardado 12 bytes gracias a Neil .
2. Guardado otros cuatro bytes
3. Guardado otro byte gracias a Blender .

C #, 61 48 bytes

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

Guardado 13 bytes gracias a TheLethalCoder

O un programa completo a 83 bytes:

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

Varias variantes de Windows usan valores de enumeración 0 a 3 en la implementación de Microsoft .NET . 4 es Unix, 5 es Xbox [360] (que no consideraré "Windows"), 6 es MacOSX. Mono usa los mismos valores , agregando 128 para Unix / Linux en versiones anteriores.

Por lo tanto, cualquier cosa <4 es Windows, y todo lo demás no es Windows.

Lote, 50 bytes.

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

Editar: arreglado para ignorar DOS en lugar de afirmar que es Windows.

La única otra forma que conozco de ejecutar Batch fuera de Windows es usar WINE, que por defecto se asignará Z:a /. Por lo tanto, si Z:\bin\shexiste, lo más probable es que sí /bin/sh, así que no MS Windows.

No sé en qué WINE establece% OS%, pero si no es Windows_NTasí, podría ahorrar 23 bytes.

QBasic, 31 bytes

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

Imprime no cero en Windows, 0 en todo lo demás.

COMSPECes una variable de entorno exclusiva de los sistemas operativos de Microsoft. Apunta al intérprete de comandos, típicamente command.como cmd.exe. En Windows, el intérprete de comandos se encuentra en algún lugar del directorio de Windows; en MS-DOS, se encuentra en el directorio de DOS o en la raíz del disco, y en cualquier otro sistema operativo, no existe.

Al verificar si el valor de COMSPECcontiene una "W", podemos ver la diferencia entre Windows y no Windows.

Node.js, 27 16 15 13 bytes

Gracias a @Patrick , que eliminó 12 bytes de mi solución usando REPL de Node:

_=>os.EOL>`
`

Solución original:

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

Excel VBA, 41 40 30 29 26 24 Bytes

La función de Windows inmediata que se devuelve truesi el código del sistema operativo del sistema comienza es mayor que la longitud 3, porque la información está restringida a la salida maco solo se pcdosdevuelve trueen PC con Windows

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

Versión anterior

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

Cambios

-1 Gracias a Neil por usar Left(...,1)más deMid(...,1,1)

-10 Gracias a ChrisH por señalar el truco del separador de ruta de @ Mego

-1 Para verificar el WorkbookPathen "\" lugar de usarApplication.Path Separator

-4 Para cambiar a Environ()

-2 Para cambiar a [Len(Info(...

Solución nueva, 51 bytes

subRutina novedosa que emite, a la ventana VBE inmediata, una ventana 1 (truthy)debajo y 0 (falsey)debajo de mac por método de compilación 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~~/\\/)

Tanto la salida True␤como False␤el sistema en el que se ejecuta.

APL (Dyalog) , 21 bytes

'W'∊∊#⎕WG'APLVersion'

Pruébalo en línea!

#⎕WG'APLVersion' Root ( # ) W indow G et property Versión APL

∊ alistarse (aplanar)

'W'∊ ¿Es W un miembro? (ningún valor de retorno que no sea de Windows contiene una W mayúscula)

tcl, 38 bytes

 expr [lsearch $tcl_platform windows]>0

PHP 17 bytes

Lo siguiente generará 1 si Windows y nada si algo más. Ignorando los avisos de conversión de cadenas.

<?=PHP_OS==WINNT;

Pruebe en línea Pruebas en línea para Linux porque el sandbox es Linux para PoC.

Java 8, 49 bytes

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

Más largo que la otra respuesta de Java , pero adopta un enfoque diferente.

Esta lambda encaja en ay Supplier<Boolean>puede probarse con el siguiente 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'

Compruebo la salida de la primera letra de "m", que debería ser "mingw" para Windows. Por lo que pude ver, no hay otro sistema operativo que comience con M. La información proviene de https://github.com/ghc/ghc/blob/master/compiler/utils/Platform.hs

bash + coreutils, 5 bytes

rm $0

También funciona en la mayoría de los otros shells POSIXy. (Tenga en cuenta que los puertos de Windows existen bashy rm, aunque normalmente solo se usan con sistemas operativos POSIXy más pesados, esta no es una entrada completamente vacía.) Salidas a través del código de salida (0 = falso, 1 = verdadero). Se puede contar como 4 bytes si se le permite asumir un nombre de archivo (por ejemplo rm a). Tenga en cuenta que esto puede fallar en el caso de nombres de archivo muy extraños (que rmse interpretarán como argumentos debido a la falta de comillas, y posiblemente eliminen los archivos que le interesan, por lo que le aconsejaría que no ejecute este programa desde un archivo con un nombre extraño )

Nota: elimina el programa del disco como efecto secundario, o al menos lo intenta. En el caso en el que estamos ejecutando en Windows, el sistema operativo no podrá eliminar el archivo en ejecución (una operación que Windows no permite de forma predeterminada o por completo), y por rmlo tanto se producirá un error. bashdetecta el error y lo convierte en un código de salida (por lo tanto, el programa en su conjunto termina normalmente). La mayoría de las otras entradas aquí están usando 0 para falsey y 1 para la verdad en los códigos de salida, por lo que esto hace lo mismo; tenga en cuenta que bashla ifdeclaración no acepta enteros en absoluto (más bien, acepta comandos y ramas en función de si se ejecutan correctamente, y las pruebas aritméticas se realizan a través de programas comotestque informan intencionalmente un "bloqueo" en una comparación fallida), por lo que esto es más inestable en términos de legalidad que los programas que salen a través del código de salida en los idiomas donde 0 es válido en una ifprueba de declaración y envía el programa a la elserama.

8o , 11 bytes

 
os 1- not .
 

Imprime trueen Windows, falseen Linux y macOS. Otras plataformas compatibles con 8th son Android, iOS y Raspberry Pi, pero no puedo probarlas.

Versión sin golf (con comentarios)

 
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

Regresa con el código de salida cero (generalmente verdadero en shells) si está en Windows, y con un código de salida distinto de cero de lo contrario.

Si lo prefiere a la inversa, hay una solución de 12 bytes: import posix.

TrumpScript , 17 bytes

America is great.

Pruébalo en línea!

Este programa, si se ejecuta en Windows, imprimirá:

The big problem this country has is being PC

Esto se considera un valor verdadero.

La salida vacía y el siguiente valor son falsos:

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

La salida vacía ocurrirá en cualquier sistema Linux (para este programa), la respuesta larga de Apple obviamente ocurre en Mac (para cualquier programa). En TIO, el backend (supongo) es un sistema operativo Unix, por lo que solo puede obtener el valor falso; en mi computadora recibo el mensaje de PC.

No estoy 100% seguro si esto cuenta como un mensaje de error (lo que invalidaría la respuesta), pero si no lo sabía, probablemente valiera la pena reírse por usted.