[過去ﾛｸﾞ] プログラミングのお題スレ Part15 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
594(1): 2019/09/28(土)03:30 ID:63IK4172(3/3) AAS
何番と限らず日時と整数は一対一できるから日時が関係するあらゆる問題
595: 2019/09/28(土)03:58 ID:HcOq9X6n(6/7) AAS
>>594
いや、 >>589 は何かを読んだ結果書いたんでしょ? 何を読んで書いたの?
596: 2019/09/28(土)04:47 ID:HcOq9X6n(7/7) AAS
>>588
もう一つ作った。
Perl
外部ﾘﾝｸ:paiza.io
597: 2019/09/28(土)10:58 ID:bVbqLRNA(1) AAS
>>582
@Mathematica
deleteDuplicatesSort[lst_] := lst //
DeleteDuplicates //
Sort[#, Greater] & ;
In[1] := deleteDuplicatesSort[{3, 1, 4, 1, 5}]
Out[1] = {5, 4, 3, 1}
# Mathematica のカーネルがいつの間にか無償開放されてた！
#
# 「「Mathematica」や“Wolfram|Alpha”の核「Wolfram Engine」が開発者向けに無償開放」
省1
598: 2019/09/28(土)15:09 ID:E6lKnilk(1/4) AAS
C++標準のファイルシステムでは、パスは取れるが、時間を取得する関数がないっぽい。
599: 2019/09/28(土)15:18 ID:E6lKnilk(2/4) AAS
あぁ、あったわ。C++17で入ったからまだ不明瞭だ。自分にとって。
600: 2019/09/28(土)15:36 ID:E6lKnilk(3/4) AAS
>>559
外部ﾘﾝｸ:coliru.stacked-crooked.com
C++。C++17がいる。結構サクッとかけたな。
601: 2019/09/28(土)16:35 ID:E6lKnilk(4/4) AAS
>>548
外部ﾘﾝｸ:ideone.com
C++。マイドキュメントの列挙だけで力尽きた。ぐはぁ・・・。
602: 2019/09/28(土)21:56 ID:yaf8uxdw(1) AAS
>>588
PowerShell
$path = [Environment]::GetFolderPath(5)
$all = ls $path -Recurse |? {!$_.PSIsContainer} |% {$_.LastWriteTime}
$max = [Math]::Max(10, ($all | group DayOfWeek, Hour | measure Count -Max).Maximum)
"時" + (("日月火水木金土" -split "") -join "|".PadRight(9))
"--+" + ("-" * 10 + "+") * 7
$y = $all | group Hour -AsHashTable
0..23 |% {
if ($y[$_]) {
省11
603(2): 蟻人間 ◆T6xkBnTXz7B0 2019/09/29(日)02:59 ID:8mEp/ii8(1/4) AAS
お題: 地球上の2地点を緯度・経度で指定すると、(球面上の)直線距離を求めてくれるプログラム。
地球がほぼ球体であることを仮定してもよい。
604(1): 蟻人間 ◆T6xkBnTXz7B0 2019/09/29(日)03:04 ID:8mEp/ii8(2/4) AAS
ロンドンからニューヨーク。
北京から台湾。
ニュージーランドからトルコ。
605(2): 蟻人間 ◆T6xkBnTXz7B0 2019/09/29(日)03:16 ID:8mEp/ii8(3/4) AAS
参考に: 外部ﾘﾝｸ:keisan.casio.jp
606(1): 蟻人間 ◆T6xkBnTXz7B0 2019/09/29(日)03:55 ID:8mEp/ii8(4/4) AAS
ヒント: 度をラジアンに変換。dの公式に代入する。緯度経度はグーグル マップで調べる。コサインの逆関数はアークコサイン。
607: 2019/09/29(日)09:16 ID:GG+B8frl(1/3) AAS
数学の問題どすな
地球半径をR、緯度をΦ、経度をΘとすると
地表上の点Pの座標(x,y,z)は
(x,y,z)=R(cosΦcosΘ,cosΦsinΘ,sinΦ)
(R,0,0)は赤道上の東(西)経0度の地点
(ギニア湾 ガーナ アクラ沖約600km)
(0,R,0)も赤道上の東(西)経180度の地点
(太平洋 ナウル島から約1450km)
二地点の座標をベクトルに見立て
内積をR^2で割って逆余弦関数に
省1
608: 2019/09/29(日)09:23 ID:GG+B8frl(2/3) AAS
ちょい間違った
(0,R,0)は東経90度の赤道上の太平洋上の地点で
スリランカ・コロンボから約1360kmの地点
(-R,0,0)がナウル島から1450kmの地点
(0,-R,0)はガラパゴス諸島から20〜25km程度の
太平洋上の地点
609: 2019/09/29(日)09:25 ID:GG+B8frl(3/3) AAS
表計算ソフトを使うのが効率的ね
610: 2019/09/29(日)10:48 ID:UzLHlBWt(1) AAS
地球を球に近似する時点でナンセンス。解く価値無し
611: 2019/09/29(日)11:06 ID:VkSI6pCv(1) AAS
仮定してもよい なんだから球に近似しないで書けばいい話じゃね？
612(1): 2019/09/29(日)12:00 ID:bEy1wMJX(1/2) AAS
>>603 大円距離の問題なんだから、距離が一番短くなる2点間の長さとすべき、
great-circular distance
>>605 の数値を使い
地球の半径を 6378.137 km
2点の緯度経度
139.74477,35.6544 ,
39.8261, 21.4225
Python
外部ﾘﾝｸ:ideone.com
答え 9,491.28 km
613: 2019/09/29(日)12:03 ID:bEy1wMJX(2/2) AAS
>>612 2点間の経度緯度 の間違い
上下前次1-新書関写板覧索設栞歴
あと 389 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.305s*