Meydan okuma

Microsoft Windows'ta çalıştırıldığında bir truthy değeri (basitlik için Windows 7, 8.1 ve 10 ile yapışacağız) ve başka bir işletim sisteminde (OSX, FreeBSD, Linux) çalıştırıldığında falsey değeri veren bir program oluşturun.

kurallar

• Bir platformda çalıştırılamayan / derlenmeyen kod, falsey değeri olarak sayılmaz.

Kazanan kriterler

Bunu kod-golf olarak etiketliyorum , bu yüzden en düşük puan kazanıyor, ama aynı zamanda bu soruna yaratıcı çözümler görmekle de ilgileniyorum.

Vim, 2 bayt

<C-a>1

Windows'ta, <C-a>(ctrl + a) varsayılan olarak olarak eşleştirilir Select All. 1Windows'da seçme modunda a yazarsanız , seçiminizi yazdığınızla (1) arabellekte 1 bırakarak değiştirir.

Diğer işletim sistemlerinde, <C-a>varsayılan olarak eşleştirilir Increment number. Artış için bir sayı olmadığı için, bu bir işlem dışıdır ve sonra 1 sayımı arttırır, ancak arabellek açısından işlem dışıdır.

1, Vim'de truthy'dir ve boş bir dize sahtedir

MATLAB, 4 bayt

ispc

Gönderen belgeler :

tf = ispcMATLAB® yazılımının sürümü Microsoft® Windows® platformundaysa mantıksal 1 (doğru) değerini döndürür. Aksi takdirde, mantıksal 0 (yanlış) döndürür.

Ayrıca fonksiyonlar ismacve vardır isunix. Bu fonksiyonların ne yaptığını anlamak için onu okuyucuya bırakacağım. Mego nazikçe açıklayan diyagramlar istedi ismacve isunixbu yüzden onu burada göstermeye çalıştım:

Bunun bir diyagramı istenmedi ispc, ancak yerine OSXve Unixile davranışın oldukça benzer olduğunu ortaya çıkarabilirim Windows.

İkinci yaklaşım:

Aşağıda getenv, başka bir işletim sistemi yoksa, kurşun geçirmez olması gereken 23 bayt kullanan ikinci bir yaklaşım verilmiştir W:

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

getenv 'name'Giriş karakteri vektörünün bulunduğu formun metnini temel işletim sistemi ortam listesinde arar . Bulunduğunda, MATLAB® karakter vektör değerini döndürür. Belirtilen ad bulunamazsa, boş bir matris döndürülür.name=valuename

Python 2.7.10 , 24 bayt

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

3 byte için FlipTack sayesinde

Bu program, Windows'un \yol ayırıcı olarak kullanılacak tek işletim sistemi olması gerçeğinden yararlanır . Normalde bu sinir bozucu ve kötü, ama bir zamanlar aslında bir avantaj. Windows'ta '['>os.sepyanlıştır ve bu nedenle 0/0hesaplanır ZeroDivisionErrorve a'ya sıfır olmayan bir çıkış koduyla çıkılır. Windows olmayan platformlarda, hiçbir şey yapmaz '['>os.sepifadesini yapmak doğrudur 0/1ve program 0 çıkış koduyla çıkar.

x86 Meclisi, 7 bayt ( Runemoro'nun cevabından ilham alındı )

31 DB 89 D8 40 CD 80

Veya

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

Açıklama

Her şeyden önce, biz belirleriz eaxiçin 1(sistem çağrısı için numara exit(int val)için Linux, FreeBSDve OSX). Sonra, kesme kapısı diyeceğiz 0x80için sistem çağrı kapısı Linux, FreeBSDve OSX. Yani durumuyla çıkmak için programı neden olacak ebxhangi 0( false).

Windows'ta int 0x80geçersiz bir geçit ( 2eSistem çağrısı geçidi olarak kullanıyor ) ve programın çökmesine neden olarak pozitif bir çıkış koduyla ( true) bitmesine neden olur .

Düzenleme:OSX 32 bit (yığında) argüman geçirme farklı bir kongre olduğundan, üzerinde çalışmaz .

Kaynaklar ve daha fazla okuma

• FreeBSD - System Calls: Sistem aramaları hakkında bilgi FreeBSD.
• System calls in the Linux kernel. Part 2.: Linux'un sistem çağrılarıyla ilgili harika bir makale.
• Linux Syscall Reference: bir sistem çağrı numaralarının referansı Linux.
• Windows Syscall Shellcode: Doğrudan arama sistemi hakkında bir makale windowsderlemeden çağırır .
• Making system calls from Assembly in Mac OS X: Sistem hakkında bir makale çağırıyor OSX.

C, 44 43 38 36 bayt

Bir bayt için @Downgoat'a teşekkürler! ^{44 çarpı hala normal 44 44}
İki bayt için @Neil'e teşekkürler!

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

PHP, 22 bayt

`<?=PATH_SEPARATOR>":";`  

1yol ayırıcı noktalı virgül ise (kolon ve DOS ve OS / 2 hariç diğer tüm işletim sistemleri için boş) ise başka bir şey yoksa yazdırır .

Ayrıca 22 bayt , ancak bu güvenli değil:

<?=strpos(__FILE__,92);

dosya yolu ters eğik çizgi içeriyorsa pozitif bir tam sayı yazdırır; başka bir şey yok. 27 bayt
ile güvenli bir alternatif : yazdırır ya da hiçbir şey.<?=DIRECTORY_SEPARATOR>"/";1

Garip bir keşif : <?=__FILE__[1]==":";( 20 bayt ) güvenli olmalı ya da tamam olmalı. Ancak __FILE__bir dize gibi görünmesine rağmen (denedim var_dumpve çalıştım gettype), dizine ekleme, bir başka yere kopyalamadığınız sürece (birleştirme de çalışır) ya da bir işlev parametresi olarak kullanmadığınız sürece, bir hata verir.

Düzenleme:
<?=(__FILE__)[1]==":";(ayrıca 22 bayt ) PHP 7'de çalışır; fakat parantezler sabitin değerini geçici değişkene kopyalar.

27 bayt : <?=stripos(PHP_OS,win)===0;
önceden tanımlanmış PHP_OSsabitin başlaması durumunda test eder win(büyük / küçük harfe duyarsız; Windows, WIN32, WINNT, ancak CYGWIN veya Darwin değil); 1Windows için yazdırır , başka bir şey yok.

17/18 bayt :

<?=strlen("
")-1;

1Windows satır sonu (DOS, OS / 2 ve Atari TOS'ta da saklandıysa) yazdırır , ancak birinin TOS için PHP'yi derlemiş olduğundan şüpheliyim 0.

Ayrıca sabiti de kontrol edebilirsiniz PHP_EOL.

Daha fazla seçenek:

PHP_SHLIB_SUFFIXolduğunu dllama ille sadece orada, Windows üzerinde.
php_uname()işletim sistemi ve daha fazlası hakkında bilgi verir; WindowsWindows ile başlar . Windows'ta bir tarayıcıda çağrıldığında
$_SERVER['HTTP_USER_AGENT']içerecektir Windows.
<?=defined(PHP_WINDOWS_VERSION_BUILD);(38 bayt) PHP'de çalışıyor> = 5.3

Sonuç

Gerçekten Windows olup olmadığını söylemenin tek güvenli yolu, buna benzeyen bir şey değil, işletim sisteminin adını kontrol etmek gibi görünüyor. PHP için: php_os()güvenlik nedeniyle devre dışı bırakılabilir; ama PHP_OSmuhtemelen her zaman istenen bilgiyi içerecektir.

Befunge-98, 7 bayt

6y2%!.@

Çevrimiçi deneyin!

Bu \, Windows'ta ve /diğer işletim sistemlerinde bulunan sistem yolu ayırıcısını sorgulayarak çalışır .

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 bayt

$OperatingSystem=="Windows"&

Java 8, 33 bayt

separatorCharÖnerdiğiniz için Olivier Grégoire'e ve -1 bayt için Kritixi Lithos'a özel teşekkürler !

Bu bir boole döndüren bir lambda ifadesidir. Bu atanabilir Supplier<Boolean> f = ...;ve ile çağrılabilir f.get().

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

Çevrimiçi deneyin! - sunucu windows değil, bu yüzden yazdırıyorfalse. Ancak, Windows makinemde aynı kod yazdırılıyortrue.

Bu kod, sistemin dosya ayırıcısını almak ve kod noktasının karakterden büyük olup olmadığını kontrol etmektir [. Bu, Windows için, \ayırıcı olarak kullandığı için geçerlidir - fakat diğer tüm işletim sistemlerinde /, ASCII tablosunda daha düşük bir kodu olan kullanılır.

J, 7 bayt

6=9!:12

Bu, 9!:125'in Unix ve 6'nın Windows32 olduğu sistem türünü elde etmek için yerleşik yabancı bağlantıyı kullanan bir fiildir (bir fonksiyona benzer) .

R, 15 bayt

.Platform$O>"v"

Liste öğesi çıkarımı için kısmi eşleştirmeyi kullanmak için öneri için plannapus sayesinde .

.Platform , R'nin inşa edildiği platformun bazı ayrıntılarını içeren bir listedir. Bir öğe vardır OS.typebilgisayarın İşletim Sistemi (aile) vererek, karakter dizesi olan (isim "O" ile başlayan tek unsur). Biri "unix"veya "windows".

Yani "unix"o zaman daha az "v", ama "windows"o zaman daha büyük "v". Diğer geçerli 15 baytlık cevaplar

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

R işletim sistemleri Unix benzeri, Windows ve Mac aileleri için geliştirilmektedir . Diğer işletim sistemi aileleri desteklenmemektedir.

Perl, 11 bayt

print$^O=~MS

^O değişmez bir Control-O ile değiştirilmelidir.

Çıkışlar 1pencerelerde, başka OS üzerinde hiçbir şey.

Not sayPerl’de kaba olan yeni bir satır eklerken kullanmıyorum.

Primo sayesinde -2 bayt. (ve olası sabit sorunlar)
ais523 sayesinde -1 bayt.

julia, 10 bayt

is_windows

Windows için doğru döndüren bir işlev

x86 makine kodu, 9 bayt

40 39 04 24 75 02 CD 80 C3

Şundan derlendi:

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 bayt

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

Firefox ile test edildi. (Chrome'un oscpuözelliği yoktur.) Küçük harfler büyük harflerden daha büyük bir karakter koduna sahip olduğundan, bu , Firefox'un desteklediği herhangi bir platformda W , X , Y veya Znavigator.oscpu harflerinin ilk harfleri olmasından ve W harflerinin olmamasından , Tabii ki, Windows). Bu yayına göre , durum bu.

Düzenlemeler

1. Neil sayesinde 12 bayt kurtarıldı .
2. Başka bir dört bayt kaydedildi
3. Blender sayesinde başka bir bayt kaydedildi .

C #, 61 48 bayt

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

TheLethalCoder sayesinde 13 bayt kaydedildi

Veya 83 byte'ta tam bir program:

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

Çeşitli Windows varyantları, Microsoft .NET uygulamasında 0 ila 3 enum değerlerini kullanır . 4, Unix, 5, Xbox [360] ("Windows" düşünmeyeceğim), 6 ise MacOSX. Mono aynı değerleri kullanır ve önceki sürümlerde Unix / Linux için 128 ekler.

Bu nedenle, <4 olan herhangi bir şey Windows'tur ve her şey Windows değildir.

Toplu, 50 bayt

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

Düzenleme: DOS olduğunu Windows olduğunu iddia etmek yerine yoksaymak düzeltildi.

Sadece Windows'un dışında Toplu çalışan biliyoruz başka yolu varsayılan olarak eşler ŞARAP kullanmaktır Z:için /. Bu nedenle, Z:\bin\shvarsa, şans, bu yüzden /bin/sh, MS Windows değil.

WINE% OS% 'ye neyi ayarladı bilmiyorum, ancak değilse o Windows_NTzaman 23 bayt kaydedebilirim.

QBasic, 31 bayt

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

Windows altında sıfır olmayan, her şeyin altında 0 yazdırır.

COMSPECMicrosoft işletim sistemlerine özgü bir ortam değişkenidir. Komut yorumlayıcısına işaret eder, tipik olarak command.comveya cmd.exe. Windows altında, komut yorumlayıcısı Windows dizininde bir yere oturur; MS-DOS altında, DOS dizininde veya diskin kökünde oturur ve başka bir işletim sistemi altında yok.

Değerinin COMSPEC"W" olup olmadığını kontrol ederek Windows ile Windows arasındaki farkı söyleyebiliriz.

Node.js, 27 16 15 13 bayt

Düğüm REPL'i kullanarak çözümümden 12 bayt geçen @Patrick sayesinde :

_=>os.EOL>`
`

Orijinal çözüm:

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

Excel VBA, 41 40 30 29 26 24 Bayt

Döndüren Acil pencereler fonksiyon truebilgisi çıkışı ya başka sınırlıdır çünkü sistemin işletim sistemi kod başlarsa, uzunluk 3 daha uzun macveya pcdosbu döndüren truepencereler adet sadece

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

Önceki sürümler

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

değişiklikler

Kullanmak için Neil -1 sayesinde Left(...,1)üzerindeMid(...,1,1)

-10 Mego'nun Yol Ayırıcı Numarasını @ işaret ettiği için ChrisH'e teşekkürler

-1 Kullanmak yerine kontrol etmek WorkbookPathiçin"\"Application.Path Separator

-4 Geçiş için Environ()

-2 geçmek için [Len(Info(...

Yeni Çözüm, 51 bayt

VBE'ye çıkan yeni subyordam , koşullu derleme yöntemiyle 1 (truthy)pencereleri , pencerelerin altını ve 0 (falsey)mac altını hemen açar .

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

Perl 6 ,  19  18 bayt

put $*DISTRO.is-win

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

Her iki çıktı True␤veya False␤çalıştığı sisteme bağlı olarak.

APL (Dyalog) , 21 bayt

'W'∊∊#⎕WG'APLVersion'

Çevrimiçi deneyin!

#⎕WG'APLVersion' Kök ( # ) W indow G özellik APL Sürümü

∊ enlist (düzleştirmek)

'W'∊ olduğu W üyesi? (Windows olmayan döndürülen değerlerin hiçbiri büyük W içermez)

tcl, 38 bayt

 expr [lsearch $tcl_platform windows]>0

PHP 17 Bayt

Aşağıdakiler, eğer pencereler varsa 1, başka bir şey değilse hiçbir şey çıkmaz. Dize dönüştürme bildirimlerini dikkate almamak.

<?=PHP_OS==WINNT;

Çevrimiçi deneyin Linux için testler yapın çünkü sanal alan PoC için linux'dur.

Java 8, 49 bayt

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

Diğer Java cevaplarından daha uzun , ancak farklı bir yaklaşım izliyor.

Bu lambda a'ya uyar Supplier<Boolean>ve aşağıdaki programla test edilebilir:

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 bayt

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

Windows için "mingw" olması gereken "m" nin ilk harf çıktısını kontrol ediyorum. Söyleyebileceğim kadarıyla, M ile başlayan başka bir işletim sistemi yok. Bilgi https://github.com/ghc/ghc/blob/master/compiler/utils/Platform.hs adresinden geliyor.

bash + coreutils, 5 bayt

rm $0

Ayrıca diğer çoğu POSIXy mermisinde de çalışır. (Windows bağlantı noktalarının bulunduğunu bashve rmvar olduklarını unutmayın ; yalnızca normalde daha yoğun POSIXy işletim sistemlerinde kullanılsalar bile, bu tamamen boş bir giriş değildir.) Çıkış koduyla çıkış yapar (0 = false, 1 = true). Bir dosya adı üstlenmenize izin verilirse 4 bayt olarak sayılabilir (örn. rm a). Bunun çok tuhaf dosya rmisimleri durumunda ( muhtemelen alıntı yapmama nedeniyle argümanlar olarak yorumlanacak ve muhtemelen önemsediğiniz dosyaları silecek olması durumunda başarısızlıkla sonuçlanabileceğini unutmayın) bu yüzden bu programı tuhaf bir isimle bir dosyadan çalıştırmamanızı tavsiye ederim. ).

Not: Programı diskten bir yan etki olarak siler veya en azından dener. Windows'da çalıştığımız durumda, işletim sistemi çalışan dosyayı (Windows varsayılan ya da tam durduğunda devre dışı bırakan bir işlem) silmez ve bu nedenle rmhata verir. bashhatayı yakalar ve bir çıkış koduna dönüştürür (bu nedenle program bir bütün olarak normal şekilde sonlanır). Buradaki diğer girişlerin çoğu, falsey için 0, çıkış kodlarında ise truthy için 1 kullanıyor, bu aynı şekilde; bash'nin ififadesinin tamsayıları kabul etmediğine dikkat edin (aksine, başarılı bir şekilde çalışıp çalışmadıklarına bağlı olarak komutları ve dalları kabul eder ve aritmetik testler gibi programlar aracılığıyla yapılır.testbu, kasten başarısız bir karşılaştırmada bir "çökme" bildirmiştir), bu nedenle bu, bir ififade testinde 0'ın geçerli olduğu ve programı elseşubeye gönderdiği dillerde çıkış kodu aracılığıyla çıkarılan programlardan ziyade yasallık açısından zordur .

8 , 11 bayt

 
os 1- not .
 

trueWindows'ta, falseLinux ve macOS'ta yazdırır . Sekizinci tarafından desteklenen diğer platformlar Android, iOS ve Raspberry Pi, ancak bunları test edemiyorum.

Ungolfed versiyonu (yorumlarla)

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

import winreg

Pencerelerde ise çıkış kodunu sıfır (genellikle kabuklarda geçerlidir), aksi halde sıfır olmayan bir çıkış koduyla döndürür.

Eğer da başka biçimde tercih ederseniz, bir 12 bayt çözümü var: import posix.

TrumpScript , 17 bayt

America is great.

Çevrimiçi deneyin!

Bu program, eğer Windows'ta çalışıyorsa, aşağıdakileri basacaktır:

The big problem this country has is being PC

Bu bir truthy değeri olarak kabul edilir.

Boş çıktı ve aşağıdaki değer yanlış:

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

Boş çıktı herhangi bir linux sistemde (bu program için) gerçekleşir, uzun elma tepkisi açıkça Mac'te (herhangi bir program için) gerçekleşir. TIO'da, arka uç (sanırım) bir Unix işletim sistemidir, bu nedenle yalnızca sahte değeri alabilirsiniz; Bilgisayarımda PC mesajı alıyorum.

Bu bir hata mesajı olarak kabul edilip edilmeyeceğinden% 100 emin değil (ki cevabı geçersiz kılar), ama eğer bunu bilmiyorsanız muhtemelen sizin için gülmeye değdi.