Mathematica, 51 byte
SystemInformation[][[1,5,2,1,2,1,2,2,;;,2]]~Infix~x
Questo potrebbe non funzionare per te a seconda dei dispositivi che hai collegato (non lo so). Questo dovrebbe sempre funzionare (supponendo che tu abbia almeno uno schermo collegato):
Infix[Last/@("FullScreenArea"/.SystemInformation["Devices","ScreenInformation"][[1]]),x]
Spiegazione
SystemInformation[] restituisce un'espressione del modulo
SystemInformationData[{
"Kernel" -> {__},
"FrontEnd" -> {__},
"Links" -> {__},
"Parallel" -> {__},
"Devices" -> {__},
"Network" -> {__},
}]
Siamo interessati a "Devices"cui è possibile accedere direttamente come SystemInformation["Devices"]o come SystemInformation[][[1,5,2]]. Il risultato sarà un elenco del modulo
{
"ScreenInformation" -> {__},
"GraphicsDevices" -> {__},
"ControllerDevices" -> {__}
}
Vogliamo "ScreenInformation", a cui è possibile accedere in modo più SystemInformation["Devices","ScreenInformation"]o meno succinto SystemInformation[][[1,5,2,1,2]]. Il risultato sarà del modulo
{
{
"ScreenArea" -> {__},
"FullScreenArea" -> {{0,w_},{0,h_}},
"BitDepth" -> _,
"Resolution" -> _
},
___
}
La lunghezza dell'elenco sarà il numero di schermate che hai collegato. La prima schermata è SystemInformation[][[1,5,2,1,2,1]]e la larghezza e l'altezza possono essere estratte come SystemInformation[][[1,5,2,1,2,1,2,2,;;,2]]Quindi inseriamo semplicemente una Infix xper il formato di output.