О ні! Я потрапив у пастку у великому лісі (Гаразд, не дуже, але просто припустимо це) і не знаю, де я!

На щастя, я приніс свій ноутбук. Але коли я шукав "Карти", він сказав "Немає результатів", і я прошу це в крайньому випадку.

Будь ласка, складіть програму, яка виводить довготу та широту мого місцезнаходження у будь-якому форматі двох чисел. any two number formatвключає:

• Кортеж.
• Рядок, що включає довготу та широту.
• Об'єкт JSON.
• тощо.

Можна використовувати будь-який API або бібліотеки. Тобто, Ви можете запитувати Карти Google тощо _{(я думаю, вони не втратили свої API: \)}

Математика, 4 байти

Помилка, де я?

Here

Оцінює до GeoPosition[{latitude, longitude}].

JavaScript (ES6), 89 82 байт

navigator.geolocation.watchPosition(x=>alert([(y=x.coords).latitude,y.longitude]))

Спробуйте в Інтернеті! (Чомусь це не працювало у фрагменті).

Пояснення

navigatorОб'єкт є частиною BOM . geolocationє її властивістю, а також є об'єктом, який містить геолокаційні дані користувача. watchPosition()є методом geolocationоб’єкта. Він виконує функцію зворотного виклику, яка виконується після отримання геолокаційних даних. Функція зворотного виклику x=>alert((y=x.coords).latitude+","+y.longitude)- це анонімна (лямбда) функція, яка приймає об'єкт xі alert()s latitudeі longitudeвластивості, x.coordsрозділені комою. Зауважте, що об'єкт xпередається функції зворотного виклику watchPosition()тоді, коли викликається функція зворотного виклику (тобто після отримання геолокаційних даних).

Пітон із запитами, 101 100 75 байт

_{4 байти збережено завдяки @ КириллМалышев}

_{21 байт збережено завдяки @Rod}

from requests import*;print(get('http://su0.ru/auls').text.split(',')[5:7])

PowerShell, 130 байт

Add-Type -A System.Device;($a=[Device.Location.GeoCoordinateWatcher]::new()).Start();for(;($b=$a|% Po*n|% L*)|% I*){}$b|select L*e

Безголівки:

Add-Type -AssemblyName System.Device #Required to access System.Device.Location namespace
$GeoWatcher = New-Object System.Device.Location.GeoCoordinateWatcher #Create the required object
$GeoWatcher.Start() #Begin resolving current locaton
whille ($GeoWatcher.Status -ne "Ready") do { sleep -Milliseconds 100 } #Wait for discovery.
$GeoWatcher.Position.Location | Select Latitude,Longitude #Select the relevent results.

Повертається як:

PS C:\users\sweeneyc\Desktop> Add-Type -A System.Device;($a=[Device.Location.GeoCoordinateWatcher]::new()).Start();for(;($b=$a|% Po*n|% L*)|% I*){}$b|select L*e

        Latitude         Longitude
        --------         ---------
53.4064177191653 -6.36202495701332

Виявляється, є спосіб це зробити, але це не так красиво.

бонус: відкриває карти Google у вашому поточному місцезнаходження.

Add-Type -A System.Device;($a=[Device.Location.GeoCoordinateWatcher]::new()).Start();for(;($b=$a|% Po*n|% L*)|% I*){};saps "https://www.google.ie/maps/@$($b.Latitude),$($b.Longitude)z"

можна зберегти 3 байти за допомогою, TryStartале це виводить a trueна трубопровід і коштує більше, щоб придушити це.

Add-Type -A System.Device;($a=[Device.Location.GeoCoordinateWatcher]::new()).TryStart($true,[int]9e8);$a|% Po*n|% L*|select L*e

PowerShell (не конкуруючий), 44 байти

(irm freegeoip.net/xml).Response|select *ude

Використовується зовнішня послуга, оскільки PowerShell не має внутрішніх вбудованих даних для "поточного місцезнаходження" - це геолокація на основі IP, тому майже точно не поверне фактичне місцеположення, воно поверне "за замовчуванням" місце для вашого провайдера, і якщо ви запустите це через VPN відображатиметься де б не було точки виходу.

Я намагався (не як вправа для гольфу) налагодити API Google Maps для роботи з методом геолокації бездротової адреси mac-адреси, але це далеко не точне чи грізне.

позначені як неконкурентоздатні через неточність результатів.

PS C:\Users\sweeneyc> (irm freegeoip.net/xml).Response|select *ude
Latitude Longitude
-------- ---------
53.3472  -6.2439

Це відображається Central Dublin, Irelandпри пошуку, проте я зараз трохи поза центром міста, приблизно в 8 милях від поверненої точки.

(неконкурентоспроможний) Ангольф , 110 107 байт

❦™navigator.geolocation.getCurrentPosition#x=>™alert##y=x.coords▷.latitude+","+y.longitude▷▷●
    ❦                                   Define an IIFE
       ™                                Get the scope
         navigator                      Get JavaScript's navigator object from the scope
             geolocation                Get the geolocation property of the navigator object
                 getCurrentPosition     Get the current position and execute a function
                     x=>                Define a function with x as a parameter
                         ™              Get the scope
                            alert       Call alert and alert the following string:
                         #y=x.coords▷ Define y with the value of the coordinates of x
                         latitude       Get y's latitude
                         +","           Append "," to the string
                         +y.longitude   Append the longitude to the string
    ●                                   Close the IIFE and call it with the scope

C #, 132 байти

_=>{var w=new System.Device.Location.GeoCoordinateWatcher();w.Start();var c=w.Position.Location;return c.Longitude+","+c.Latitude;};

Excel VBA (тільки для Windows, Office 2016+), ₂₇₈ 272 байт

Обмежено для Windows, Office 2016+ для використання Microsoft.Mashup.OleDb.1провайдера

Повна subрутина, яка не потребує введення та виводить ваше поточне місцезнаходження у вигляді Excel.ListObjectвведеної таблиці, включаючи додаткову інформацію.

Sub a
ThisWorkbook.Queries.Add"x","let S=Json.Document(Web.Contents(""su0.ru/auls""))in S
With Sheet1.ListObjects.Add(0,"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=x",,,[A1]).QueryTable
.CommandText="SELECT * FROM [x]
.Refresh
End With
End Sub

Приклад виведення виключений з очевидних причин.

-2 байти для використання [Sheet1]понадSheets(1)

Швидкий 4 , 125 117 96 байт

Це, на жаль, можна перевірити лише локально.

import CoreLocation;var c=CLLocationManager().location!.coordinate;print(c.longitude,c.latitude)