Tantangan

Buat program yang mengembalikan nilai kebenaran ketika dijalankan di Microsoft Windows (untuk kesederhanaan kami akan tetap menggunakan Windows 7, 8.1 dan 10) dan nilai falsey ketika dijalankan pada sistem operasi lain (OSX, FreeBSD, Linux).

Aturan

• Kode yang gagal dijalankan / dikompilasi pada platform tidak dihitung sebagai nilai falsey.

Kriteria menang

Saya memberi label ini sebagai kode-golf , sehingga skor terendah menang, tetapi saya juga sangat tertarik melihat solusi kreatif untuk masalah ini.

Vim, 2 byte

<C-a>1

Di Windows, <C-a>(ctrl + a) dipetakan secara default ke Select All. Jika Anda mengetik a 1dalam mode pilih di Windows, itu menggantikan pilihan dengan apa yang Anda ketikkan (1) meninggalkan 1 di buffer.

Pada sistem operasi lain, <C-a>secara default dipetakan ke Increment number. Karena tidak ada angka untuk ditambahkan, itu adalah no-op, dan kemudian 1 meningkatkan jumlah tetapi dalam hal buffer adalah no-op.

1 benar di Vim, dan string kosong adalah palsu

MATLAB, 4 byte

ispc

Dari dokumentasi :

tf = ispcmengembalikan logis 1 (benar) jika versi perangkat lunak MATLAB® untuk platform Microsoft® Windows®. Kalau tidak, ia mengembalikan logis 0 (salah).

Ada juga fungsi ismacdan isunix. Saya akan menyerahkannya kepada pembaca untuk mencari tahu apa fungsi-fungsi itu lakukan. Mego meminta diagram menjelaskan ismacdan isunixjadi saya sudah mencoba untuk menggambarkannya di sini:

Itu tidak diminta untuk diagram ispctetapi saya dapat mengungkapkan bahwa perilakunya sangat mirip, kecuali pengganti OSXdan Unixdengan Windows.

Pendekatan kedua:

Inilah pendekatan kedua dengan getenvmenggunakan 23 byte yang seharusnya menjadi bukti, kecuali ada sistem operasi lain yang dimulai dengan W:

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

getenv 'name'mencari daftar lingkungan sistem operasi yang mendasari untuk teks formulir name=value, di mana namevektor karakter input. Jika ditemukan, MATLAB® mengembalikan nilai vektor karakter. Jika nama yang ditentukan tidak dapat ditemukan, matriks kosong dikembalikan.

Python 2.7.10 , 24 byte

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

Berkat FlipTack selama 3 byte

Program ini memanfaatkan fakta bahwa Windows adalah satu-satunya OS yang digunakan \sebagai pemisah jalur. Biasanya ini membuat frustrasi dan buruk, tetapi untuk sekali ini sebenarnya merupakan keuntungan. Pada Windows, '['>os.sepitu salah, dan karenanya 0/0dihitung, menyebabkan a ZeroDivisionErrordan keluar dengan kode keluar yang tidak nol. Pada platform non-Windows, '['>os.sepbenar, membuat ekspresi 0/1, yang tidak melakukan apa-apa, dan program keluar dengan kode keluar 0.

x86 Assembly, 7 byte (Terinspirasi oleh jawaban Runemoro )

31 DB 89 D8 40 CD 80

Atau

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

Deskripsi

Pertama-tama, kami akan mengatur eaxke 1(nomor panggilan sistem exit(int val)untuk Linux, FreeBSDdan OSX). Kemudian, kita akan memanggil gerbang interupsi 0x80yang merupakan gerbang panggilan sistem Linux, FreeBSDdan OSX. Itu akan menyebabkan program untuk keluar dengan status ebxadalah 0( false).

Pada Windows int 0x80adalah gerbang yang tidak valid (Ini digunakan 2esebagai gerbang syscall) dan akan crash program, menyebabkannya diakhiri dengan kode keluar positif ( true).

Sunting: Tidak akan berfungsi OSXkarena memiliki konvensi penyelesaian argumen yang berbeda pada 32 bit (oleh stack).

Referensi dan bacaan lebih lanjut

• FreeBSD - System Calls: Informasi tentang panggilan sistem masuk FreeBSD.
• System calls in the Linux kernel. Part 2.: Artikel yang bagus tentang panggilan sistem Linux.
• Linux Syscall Reference: referensi nomor panggilan sistem untuk Linux.
• Windows Syscall Shellcode: Artikel tentang langsung memanggil panggilan sistem windowsdari majelis.
• Making system calls from Assembly in Mac OS X: Artikel tentang panggilan sistem aktif OSX.

C, 44 43 38 36 byte

Berkat @Downgoat untuk satu byte! ^{dicoret 44 masih teratur 44}
Terima kasih kepada @Neil selama dua byte!

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

PHP, 22 byte

`<?=PATH_SEPARATOR>":";`  

mencetak 1jika pemisah path adalah titik koma (titik dua atau kosong untuk semua OS lain kecuali untuk DOS dan OS / 2), tidak ada yang lain.

juga 22 byte , tetapi tidak aman:

<?=strpos(__FILE__,92);

mencetak bilangan bulat positif jika path file berisi garis miring terbalik; selain itu tidak ada.
Alternatif aman dengan 27 byte : <?=DIRECTORY_SEPARATOR>"/";cetakan 1atau tidak sama sekali.

Temuan aneh : <?=__FILE__[1]==":";( 20 byte ) seharusnya, tidak aman juga, tapi ok. Tetapi meskipun __FILE__berpura-pura menjadi string (saya mencoba var_dumpdan gettype), pengindeksan itu melemparkan kesalahan, kecuali jika Anda menyalinnya di tempat lain (concatenation juga berfungsi) atau menggunakannya sebagai parameter fungsi.

Sunting:
<?=(__FILE__)[1]==":";(juga 22 byte ) berfungsi di PHP 7; tapi itu karena tanda kurung menyalin nilai konstanta ke variabel sementara.

27 byte : <?=stripos(PHP_OS,win)===0;
tes jika PHP_OSkonstanta yang sudah ditentukan dimulai dengan win(case-sensitive; Windows, WIN32, WINNT, tetapi tidak CYGWIN atau Darwin); mencetak 1untuk Windows, tidak ada yang lain.

17/18 byte :

<?=strlen("
")-1;

mencetak 1jika itu disimpan dengan linebreak Windows (juga pada DOS, OS / 2 dan Atari TOS - walaupun saya ragu ada yang mengompilasi PHP untuk TOS), yang lain 0.

Anda juga dapat memeriksa konstanta PHP_EOL.

lebih banyak pilihan:

PHP_SHLIB_SUFFIXada dlldi Windows, tetapi tidak harus hanya di sana.
php_uname()mengembalikan info tentang sistem operasi dan banyak lagi; dimulai dengan Windowsuntuk Windows.
$_SERVER['HTTP_USER_AGENT']akan berisi Windowsketika dipanggil di browser di Windows.
<?=defined(PHP_WINDOWS_VERSION_BUILD);(38 byte) berfungsi di PHP> = 5.3

kesimpulan

Satu-satunya cara yang gagal untuk mengetahui apakah itu benar-benar Windows, bukan sesuatu yang tampak seperti itu, tampaknya merupakan pemeriksaan pada nama OS. Untuk PHP: php_os()dapat dinonaktifkan karena alasan keamanan; tetapi PHP_OSmungkin akan selalu berisi info yang diinginkan.

Befunge-98, 7 byte

6y2%!.@

Cobalah online!

Ini berfungsi dengan menanyakan pemisah jalur sistem, yang ada \di Windows dan /sistem operasi lainnya.

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 byte

$OperatingSystem=="Windows"&

Java 8, 33 byte

Terima kasih khusus kepada Olivier Grégoire untuk sarannya separatorChar, dan Kritixi Lithos untuk -1 byte!

Ini adalah ekspresi lambda yang mengembalikan boolean. Ini dapat ditugaskan Supplier<Boolean> f = ...;dan dipanggil dengan f.get().

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

Cobalah online! - server bukan windows, jadi ini mencetakfalse. Namun, di mesin windows saya, kode yang sama dicetaktrue.

Apa yang dilakukan kode ini adalah mendapatkan pemisah file Sistem, dan memeriksa apakah codepoint-nya lebih besar dari karakter [ . Ini berlaku untuk Windows, karena digunakan \sebagai pemisah - tetapi setiap OS lainnya menggunakan /, yang memiliki kode lebih rendah dalam tabel ASCII.

J, 7 byte

6=9!:12

Ini adalah kata kerja (mirip dengan fungsi) yang menggunakan konjungsi asing bawaan 9!:12untuk mendapatkan jenis sistem di mana 5 adalah Unix dan 6 adalah Windows32.

R, 15 byte

.Platform$O>"v"

Terima kasih pada plannapus untuk saran untuk menggunakan pencocokan sebagian untuk ekstraksi elemen daftar.

.Platform adalah daftar dengan beberapa perincian platform tempat R dibangun. Ada elemen OS.type(satu-satunya elemen dengan nama yang dimulai dengan "O") yang merupakan karakter string, memberikan Sistem Operasi (keluarga) komputer. Salah satu "unix"atau"windows" .

Jadi "unix"kurang dari itu "v", tetapi "windows"lebih besar dari itu "v". Jawaban 15 byte yang valid lainnya adalah

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

R sedang dikembangkan untuk keluarga sistem operasi Unix-like, Windows dan Mac . Keluarga OS lainnya tidak didukung.

Perl, 11 byte

print$^O=~MS

^O harus diganti dengan Control-O literal.

Output 1di windows, tidak ada pada OS lain.

Perhatikan bahwa saya tidak menggunakan saykarena menambahkan baris tambahan, yang benar di Perl.

-2 byte berkat primo. (dan memperbaiki masalah potensial)
-1 byte berkat ais523.

julia, 10 byte

is_windows

Fungsi yang mengembalikan true untuk windows

kode mesin x86, 9 byte

40 39 04 24 75 02 CD 80 C3

Dikompilasi dari:

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 byte

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

Diuji dengan Firefox. (Chrome tidak memiliki oscpuproperti.) Karena huruf kecil memiliki kode karakter yang lebih tinggi daripada huruf besar, ini tergantung pada huruf pertama navigator.oscpumenjadi huruf besar dan bukan W , X , Y atau Z pada platform apa pun yang didukung Firefox (selain Windows, tentu saja). Menurut posting ini , itulah masalahnya.

Suntingan

1. Disimpan 12 byte berkat Neil .
2. Menyimpan empat byte lagi
3. Menyimpan byte lain berkat Blender .

C #, 61 48 byte

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

Disimpan 13 byte berkat TheLethalCoder

Atau program lengkap dengan 83 byte:

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

Berbagai varian Windows menggunakan nilai enum 0 hingga 3 dalam implementasi Microsoft .NET . 4 adalah Unix, 5 adalah Xbox [360] (yang saya tidak akan menganggap "Windows"), 6 adalah MacOSX. Mono menggunakan nilai yang sama , menambahkan 128 untuk Unix / Linux di versi sebelumnya.

Karenanya, apa pun <4 adalah Windows, dan yang lainnya bukan Windows.

Batch, 50 byte

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

Sunting: Diperbaiki untuk mengabaikan DOS alih-alih mengklaim itu Windows.

Satu- satunya cara saya tahu menjalankan Batch di luar Windows adalah dengan menggunakan WINE yang secara default akan dipetakan Z:ke /. Karena itu jika Z:\bin\shada, kemungkinannya adalah itu /bin/sh, jadi bukan MS Windows.

Saya tidak tahu apa yang WINE atur% OS%, tetapi jika tidak Windows_NTmaka saya bisa menghemat 23 byte.

QBasic, 31 byte

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

Mencetak non-nol di bawah Windows, 0 di bawah segalanya.

COMSPECadalah variabel lingkungan yang unik untuk Microsoft OS. Ini menunjuk ke penerjemah perintah, biasanya command.comatau cmd.exe. Di bawah Windows, juru bahasa perintah duduk di suatu tempat di direktori Windows; di bawah MS-DOS, itu duduk di direktori DOS atau di root disk, dan di bawah OS lain, itu tidak ada.

Dengan memeriksa untuk melihat apakah nilai COMSPECmengandung "W", kita dapat mengetahui perbedaan antara Windows dan bukan-Windows.

Node.js, 27 16 15 13 byte

Terima kasih kepada @Patrick , yang mencukur 12 byte dari solusi saya menggunakan REPL Node:

_=>os.EOL>`
`

Solusi asli:

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

Excel VBA, 41 40 30 29 26 24 Bytes

Fungsi windows langsung yang kembali truejika kode OS sistem dimulai lebih panjang dari panjang 3, karena info dibatasi untuk output yang lain macatau pcdosini truehanya kembali pada windows pcs

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

Versi sebelumnya

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

Perubahan

-1 Terima kasih kepada Neil untuk menggunakan Left(...,1) lebihMid(...,1,1)

-10 Terima kasih kepada ChrisH karena menunjukkan Trik Pemisah Jalur @ Mego

-1 Untuk Memeriksa WorkbookPathuntuk"\" daripada menggunakanApplication.Path Separator

-4 Untuk beralih ke Environ()

-2 Untuk beralih ke [Len(Info(...

Solusi Baru, 51 byte

Novel subrutin yang menampilkan, ke VBE jendela segera, 1 (truthy)jendela di 0 (falsey)bawah dan di bawah mac dengan metode kompilasi bersyarat.

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

Perl 6 ,  19  18 byte

put $*DISTRO.is-win

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

Baik output True␤atau False␤tergantung pada sistem itu dijalankan.

APL (Dyalog) , 21 byte

'W'∊∊#⎕WG'APLVersion'

Cobalah online!

#⎕WG'APLVersion' Root ( # ) W indow G et properti APL Versi

∊ minta (ratakan)

'W'∊ apakah W anggota? (tidak ada nilai pengembalian non-Windows yang mengandung huruf kapital W)

tcl, 38 byte

 expr [lsearch $tcl_platform windows]>0

PHP 17 Bytes

Berikut ini akan menampilkan 1 jika windows dan tidak ada jika ada yang lain. Mengabaikan pemberitahuan konversi string.

<?=PHP_OS==WINNT;

Coba online tes online untuk linux karena sandbox adalah linux untuk PoC.

Java 8, 49 byte

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

Lebih lama dari jawaban Java lainnya , tetapi mengambil pendekatan yang berbeda.

Lambda ini cocok dalam Supplier<Boolean>dan dapat diuji dengan program berikut:

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 byte

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

Saya memeriksa keluaran huruf pertama dari "m", yang seharusnya menjadi "mingw" untuk windows. Sejauh yang saya tahu, tidak ada OS lain yang dimulai dengan M. Informasi ini berasal dari https://github.com/ghc/ghc/blob/master/compiler/utils/Platform.hs

bash + coreutils, 5 byte

rm $0

Juga berfungsi di sebagian besar shell POSIXy lainnya. (Perhatikan bahwa port Windows ada bashdan rmada; meskipun mereka biasanya hanya digunakan dengan sistem operasi POSIXy yang lebih berat, ini bukan entri yang sepenuhnya kosong.) Keluaran melalui kode keluar (0 = false, 1 = true). Dapat dihitung sebagai 4 byte jika Anda diizinkan untuk menggunakan nama file (misrm a ). Perhatikan bahwa ini berpotensi gagal dalam kasus nama file yang sangat aneh (yang rmakan menafsirkan sebagai argumen karena kurangnya mengutip, dan mungkin menghapus file yang Anda pedulikan, jadi saya akan menyarankan agar tidak menjalankan program ini dari file dengan nama aneh ).

Catatan: menghapus program dari disk sebagai efek samping, atau setidaknya mencoba. Dalam kasus di mana kita menjalankan pada Windows, OS akan gagal untuk menghapus file yang sedang berjalan (operasi yang Windows tidak diizinkan baik secara default atau berhenti penuh), dan dengan demikian rmakan kesalahan keluar. bashmenangkap kesalahan dan mengubahnya menjadi kode keluar (dengan demikian program secara keseluruhan berakhir secara normal). Sebagian besar entri lain di sini menggunakan 0 untuk falsey dan 1 untuk kebenaran dalam kode keluar, jadi ini melakukan hal yang sama; dicatat bahwa bash'sif pernyataan tidak menerima bilangan bulat sama sekali (lebih tepatnya, ia menerima perintah dan cabang berdasarkan apakah mereka berjalan dengan sukses, dan tes aritmatika dilakukan melalui sarana program sepertitestyang dengan sengaja melaporkan "crash" pada perbandingan yang gagal), jadi ini lebih beralasan dalam hal legalitas daripada program yang menghasilkan melalui kode keluar dalam bahasa di mana 0 valid dalam iftes pernyataan dan mengirimkan program ke elsecabang.

8 , 11 byte

 
os 1- not .
 

Mencetak truepada Windows, falsepada Linux dan macOS. Platform lain yang didukung oleh 8 adalah Android, iOS dan Raspberry Pi, tetapi saya tidak dapat mengujinya.

Versi tidak digabungkan (dengan komentar)

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

import winreg

Kembali dengan kode keluar nol (umumnya benar di shell) jika di windows, dan dengan kode keluar non-nol sebaliknya.

Jika Anda lebih suka sebaliknya, ada solusi 12 bytes: import posix.

TrumpScript , 17 byte

America is great.

Cobalah online!

Program ini, jika dijalankan di windows, akan mencetak:

The big problem this country has is being PC

Ini dianggap sebagai nilai kebenaran.

Output kosong dan nilai berikut adalah falsy:

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

Output kosong akan terjadi pada sistem linux apa pun (untuk program ini), respons apel lama jelas terjadi pada Mac (untuk program apa pun). Pada TIO, backend (saya berasumsi) adalah sistem operasi Unix, jadi Anda hanya bisa mendapatkan nilai falsy; di komputer saya, saya mendapatkan pesan PC.

Tidak 100% yakin jika ini dianggap sebagai pesan kesalahan (yang akan membatalkan jawaban), tetapi jika Anda tidak tahu tentang hal ini, itu mungkin layak untuk ditertawakan.