[過去ﾛｸﾞ] プログラミングのお題スレ Part15 (1002ﾚｽ)

プログラミングのお題スレ Part15 http://mevius.5ch.net/test/read.cgi/tech/1564310397/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

554: 蟻人間 ◆T6xkBnTXz7B0 [sage] 2019/09/22(日) 22:00:19.44 ID:rZK31NHQ >>553 カレンダー苦手？ そりゃごめんね。誰でも解けるような問題解いて面白い？ もしかして http://mevius.5ch.net/test/read.cgi/tech/1564310397/554

555: デフォルトの名無しさん [sage] 2019/09/22(日) 22:02:04.64 ID:35++XhB6 とりあえずNGにした http://mevius.5ch.net/test/read.cgi/tech/1564310397/555

556: デフォルトの名無しさん [sage] 2019/09/22(日) 22:03:45.82 ID:35++XhB6 うっかり回答しないように連鎖にしとく方がいいか http://mevius.5ch.net/test/read.cgi/tech/1564310397/556

557: デフォルトの名無しさん [sage] 2019/09/22(日) 22:23:23.82 ID:W3ewN8v1 >>548 \ls -l --time-style=+%a:%T ~/ | perl -lane 'print $F[5]' | sed "/^$/d" | perl -F: -lane '{++$i{$F[0]}; $acc{$F[0]} += $F[1]*3600 + $F[2] *60 + $F[3] }END{ print "$_ ". $acc{$_}/$i{$_} . " seconds" for keys %acc}' 日 49262.7 seconds 金 52984.3125 seconds 火 56316.8461538462 seconds 木 47056.3333333333 seconds 月 53660.7894736842 seconds 土 49998.1538461538 seconds 水 48117.5 seconds http://mevius.5ch.net/test/read.cgi/tech/1564310397/557

558: デフォルトの名無しさん [sage] 2019/09/22(日) 22:24:24.30 ID:W3ewN8v1 スルーだったか http://mevius.5ch.net/test/read.cgi/tech/1564310397/558

559: 蟻人間 ◆T6xkBnTXz7B0 [sage] 2019/09/22(日) 22:44:17.87 ID:rZK31NHQ お題: 自分のプログラムファイルが何バイトかを表示せよ。 http://mevius.5ch.net/test/read.cgi/tech/1564310397/559

560: デフォルトの名無しさん [sage] 2019/09/22(日) 22:48:43.53 ID:Yf8464Y3 >>548 Perl5、なお>>550は(utimeを使えばできますが)回答は作成いたしません use File::Find 'find'; sub hier { 　my $mtime = (lstat)[9]; 　push @epochs, $mtime if -f _; } find({wanted => \&hier}, "$ENV{USERPROFILE}/My Documents"); @w = ([],[],[],[],[],[],[]); for (@epochs) { 　($sec, $min, $hour, $wday) = (localtime $_)[0..2,6]; 　push @{$w[$wday]}, 3600*$hour + 60*$min + sec; } use List::Util 'sum'; use Time::Piece; @dw = qw(日 月 火 水 木 金 土); for (0..6) { 　$n = @{$w[$_]}; 　$mean = sum(@{$w[$_]}) / $n; 　$s = Time::Piece->new($mean); 　printf "$dw[$_](%4d): %s\n", $n, $s->hms; } 実行結果 ~ $ perl 15_548.pl 日( 104): 21:04:43 月( 94): 22:57:25 火( 46): 21:41:46 水( 298): 12:55:47 木( 322): 05:04:39 金(2020): 07:01:42 土(1650): 22:50:54 http://mevius.5ch.net/test/read.cgi/tech/1564310397/560

561: デフォルトの名無しさん [sage] 2019/09/22(日) 22:50:50.35 ID:JOdgUuSI >>548 馬鹿っぽ http://mevius.5ch.net/test/read.cgi/tech/1564310397/561

562: デフォルトの名無しさん [sage] 2019/09/22(日) 22:53:39.99 ID:JOdgUuSI 蟻人間、プログラミングに興味を持ち始めた中学生臭がすごい http://mevius.5ch.net/test/read.cgi/tech/1564310397/562

563: 蟻人間 ◆T6xkBnTXz7B0 [sage] 2019/09/22(日) 23:00:26.05 ID:rZK31NHQ >>559 はいはい、模範解答出せばいいんでしょ？ // C++/Win32 #include <windows.h> #include <stdio.h> int main(void) { char buf[MAX_PATH]; GetModuleFileNameA(NULL, buf, MAX_PATH); WIN32_FIND_DATAA find; HANDLE hFind = FindFirstFileA(buf, &find); printf("%ld bytes", find.nFileSizeLow); FindClose(hFind); return 0; } http://mevius.5ch.net/test/read.cgi/tech/1564310397/563

564: 蟻人間 ◆T6xkBnTXz7B0 [sage] 2019/09/22(日) 23:03:43.50 ID:rZK31NHQ >>559 別解ね。 /* C */ #include <stdio.h> int main(int argc, char **argv) { FILE *fp = fopen(argv[0], "rb"); fseek(fp, 0, SEEK_END); printf("%ld bytes\n", ftell(fp)); fclose(fp); return 0; } http://mevius.5ch.net/test/read.cgi/tech/1564310397/564

565: デフォルトの名無しさん [sage] 2019/09/22(日) 23:10:48.88 ID:Yf8464Y3 >>559 Perl5 print -s $0, "bytes\n"; 実行 ~ $ perl 15_559.pl 25bytes http://mevius.5ch.net/test/read.cgi/tech/1564310397/565

566: デフォルトの名無しさん [sage] 2019/09/22(日) 23:25:59.86 ID:35++XhB6 >>514 Pharo/Squeak Smalltalk | suffixes fn | suffixes := #(st nd rd), (Array new: 7 withAll: #th). suffixes := (0 to: 9) gather: [:idx | suffixes]. suffixes from: 11 to: 13 put: #th. fn := [:n | n asString, (suffixes atWrap: n)]. fn value: 1. "=> '1st' " fn value: 23. "=> '23rd' " fn value: 12. "=> '12th' " http://mevius.5ch.net/test/read.cgi/tech/1564310397/566

567: デフォルトの名無しさん [sage] 2019/09/22(日) 23:32:48.92 ID:Yf8464Y3 >>560 修正、0割回避、localtimeが返すepochのmtimeはUTCベースなのでTZ設定追加し9時間ずれ対策 $ENV{TZ} = 'UTC'; use File::Find 'find'; use Time::Piece; sub hier { 　my $mtime = (lstat)[9]; 　push @epochs, $mtime if -f _; } find({wanted => \&hier}, "$ENV{USERPROFILE}/My Documents"); print "Number of files = " . @epochs . "\n"; @w = ([],[],[],[],[],[],[]); for (@epochs) { 　($sec, $min, $hour, $wday) = (localtime $_)[0..2,6]; 　push @{$w[$wday]}, 3600*$hour + 60*$min + sec; } use List::Util 'sum'; @dw = qw(日 月 火 水 木 金 土); for (0..6) { 　$n = @{$w[$_]}; 　if ($n) { 　　$mean = sum(@{$w[$_]}) / $n; 　　$s = Time::Piece->new($mean); 　　printf "$dw[$_](%4d): %s\n", $n, $s->hms; 　} } http://mevius.5ch.net/test/read.cgi/tech/1564310397/567

568: 蟻人間 ◆T6xkBnTXz7B0 [sage] 2019/09/23(月) 00:23:07.10 ID:JAc5gnVl >>548 出題の狙い。犯罪捜査において被疑者または関係者の生活パターンを知りたいときに、パソコンのファイルの日時の統計のデジタル鑑識により、パソコンの使用実態が類推可能であることを示すものである。 http://mevius.5ch.net/test/read.cgi/tech/1564310397/568

569: デフォルトの名無しさん [sage] 2019/09/23(月) 00:28:46.25 ID:GyCF+Do4 出勤とか寝る時間があまり変わらないという仮定で 同一人物の疑いがある2つのコテハンを 数百スレ分から時間別書き込み頻度から検証したことがあるが それにくらべると得られる情報少なすぎて草 http://mevius.5ch.net/test/read.cgi/tech/1564310397/569

570: デフォルトの名無しさん [sage] 2019/09/23(月) 00:30:37.56 ID:iF+DbCXr >>568 馬鹿っぽ http://mevius.5ch.net/test/read.cgi/tech/1564310397/570

571: デフォルトの名無しさん [sage] 2019/09/23(月) 01:01:29.40 ID:ZSRjXCoe >>568 朝と夜に作ったファイルの平均は昼になるし ダウンロードした大規模なOSSのアーカイブを展開した物とか入っているんで 曜日ごとの平均時刻じゃー何の傾向も分かりません http://mevius.5ch.net/test/read.cgi/tech/1564310397/571

572: デフォルトの名無しさん [sage] 2019/09/23(月) 01:43:06.73 ID:ZSRjXCoe >>567 そうじゃねぇだろ、file systemのmtimeはUTCベースなのに わざわざlocaltimeでTZ=JST_9の日時に変換してから 時分秒だけTime::Pieceに食べさせるから GMTとして解釈され9時間ずれたんだよ。 それを回避するためTZ環境変数にUTCを設定するとは 何たる尻の青い、くちばしの黄色い、まだ駆け出しの青二才、未熟者 http://mevius.5ch.net/test/read.cgi/tech/1564310397/572

573: デフォルトの名無しさん [] 2019/09/23(月) 04:00:12.20 ID:Sp7ybd6s >>559 Common Lisp https://ideone.com/idfFJM (sbcl) https://ideone.com/8G7hUD (clisp) ideoneは、sbclの場合は compile-file で作成したファイルを実行しているらしく 結果が異なっているのはそのため http://mevius.5ch.net/test/read.cgi/tech/1564310397/573

574: 蟻人間 ◆T6xkBnTXz7B0 [sage] 2019/09/23(月) 12:05:34.14 ID:Pxp3zDR1 >>548 C++/Win32 模範解答。 https://gist.github.com/katahiromz/63c00d6c670370d7602fcd991fdc0eba http://mevius.5ch.net/test/read.cgi/tech/1564310397/574

575: デフォルトの名無しさん [sage] 2019/09/23(月) 12:49:49.08 ID:iF+DbCXr 模範解答(汚ねえスパゲティ) http://mevius.5ch.net/test/read.cgi/tech/1564310397/575

576: デフォルトの名無しさん [] 2019/09/23(月) 13:54:34.61 ID:2RLjyW/B >>504 Lua a={} for x in io.lines() do a[x]=(a[x] or 0)+1 end for k,v in pairs(a) do print(k,v) end http://mevius.5ch.net/test/read.cgi/tech/1564310397/576

577: デフォルトの名無しさん [] 2019/09/27(金) 01:42:52.78 ID:/3CUbuCi >>521 Kotlin https://paiza.io/projects/OrRiee2xfpa7RKGGYfpyfQ http://mevius.5ch.net/test/read.cgi/tech/1564310397/577

578: デフォルトの名無しさん [] 2019/09/27(金) 02:44:56.39 ID:/3CUbuCi >>522 Kotlin https://paiza.io/projects/saSW2aaTiVigsU_14uCc-g http://mevius.5ch.net/test/read.cgi/tech/1564310397/578

579: デフォルトの名無しさん [] 2019/09/27(金) 02:50:14.35 ID:/3CUbuCi >>550 シェルスクリプト (find, touch コマンド使用) 2019/09/27 02:48:00 に合わせる場合 #!/bin/sh find あるフォルダ -type f -exec touch -t 201909270248.00 {} \; http://mevius.5ch.net/test/read.cgi/tech/1564310397/579

580: デフォルトの名無しさん [] 2019/09/27(金) 19:49:32.99 ID:jf7tgLq0 >>548 Powershell ls ([Environment]::GetFolderPath(5)) -Recurse -Force |? {!$_.PSIsContainer} ` |% {$_.LastWriteTime} | sort {[int]$_.DayOfWeek} | group {"{0:ddd}" -f $_} ` |% {"{0}{1,10:T}" -f $_.Name, [DateTime][Int64]($_.Group |% {$_.TimeOfDay.Ticks} | measure -Average).Average} http://mevius.5ch.net/test/read.cgi/tech/1564310397/580

581: デフォルトの名無しさん [] 2019/09/27(金) 19:57:07.16 ID:jf7tgLq0 >>580をコピペで実行するときは、`の後の半角空白を削除しないとエラーになる。 http://mevius.5ch.net/test/read.cgi/tech/1564310397/581

582: デフォルトの名無しさん [sage] 2019/09/27(金) 21:29:22.88 ID:vBAnAZ37 お題：リスト等の重複する要素を削除し、大きい順に並び替えよ [3, 1, 4, 1, 5] ↓ [5, 4, 3, 1] java https://ideone.com/8VN6hL rust https://ideone.com/igyvob ruby https://ideone.com/VsemVf octave https://ideone.com/FHue1K http://mevius.5ch.net/test/read.cgi/tech/1564310397/582

583: デフォルトの名無しさん [sage] 2019/09/27(金) 22:41:14.90 ID:kWPPTdrf >>582 Ruby p [3, 1, 4, 1, 5].uniq.sort_by(&:-@) # => [5, 4, 3, 1] http://mevius.5ch.net/test/read.cgi/tech/1564310397/583

584: デフォルトの名無しさん [] 2019/09/27(金) 23:07:29.28 ID:Z4UqEtTG >>582 javascript [...new Set([3, 1, 4, 1, 5])].sort().reverse() http://mevius.5ch.net/test/read.cgi/tech/1564310397/584

585: デフォルトの名無しさん [sage] 2019/09/28(土) 00:13:52.50 ID:OLAr2jSy >>582 Pharo/Squeak Smalltalk #(3 1 4 1 5) asSet sorted: #> "=> #(5 4 3 1) " http://mevius.5ch.net/test/read.cgi/tech/1564310397/585

586: デフォルトの名無しさん [sage] 2019/09/28(土) 00:23:41.09 ID:gcUBCYXO >>582 Perl5 二回答 %h = map{$_=>1} qw(3 1 4 1 5); @a = sort{$b<=>$a} keys %h; print "@a\n"; use List::Util 1.45 'uniq'; @a = uniq sort{$b<=>$a} qw(3 1 4 1 5); print "@a\n" 実行結果、いずれも ~ $ perl 15_582.pl 5 4 3 1 http://mevius.5ch.net/test/read.cgi/tech/1564310397/586

587: デフォルトの名無しさん [] 2019/09/28(土) 00:52:45.19 ID:HcOq9X6n >>568 それだったら曜日毎の1時間毎のファイル数でグラフにするとかしないと分かりづらいのではないか？ ああ。そういうお題作ればいいか。 http://mevius.5ch.net/test/read.cgi/tech/1564310397/587

588: デフォルトの名無しさん [] 2019/09/28(土) 01:09:55.39 ID:HcOq9X6n お題: 指定のディレクトリ以下にある全てのファイルの更新日時を取得し、曜日毎、及び時間毎にしてグラフにして出せ。 これは同じ曜日の同じ時間で更新されているファイルのカウントということね。例えば今週と先週の土曜日の7:00代の更新ファイルが一つづつあれば土曜日7時代のカウントが2になる。 で、グラフにする時は表示方法はなんでもいいので例えばテキストでアスタリスク2個で出す。(後でこちらでもプログラム作るのでそれ参考にしてもいい)。 ディレクトリの指定方法は普通なら引数での指定が良いだろうけどプログラムに埋め込んでも標準入力やファイルから読み込んでも何でもいい。それはこのお題では肝心な事ではないので。 http://mevius.5ch.net/test/read.cgi/tech/1564310397/588

589: デフォルトの名無しさん [] 2019/09/28(土) 02:06:50.36 ID:63IK4172 それだったらファイル、ディレクトリ操作は除外してランダムに日時発生させるとかでいいだろ 機種依存するので ランダム生成は依存しない http://mevius.5ch.net/test/read.cgi/tech/1564310397/589

590: デフォルトの名無しさん [] 2019/09/28(土) 03:07:13.28 ID:HcOq9X6n >>588 作った。 Kotlin https://paiza.io/projects/8uUpDL9CaEZepG8gD2vV0A http://mevius.5ch.net/test/read.cgi/tech/1564310397/590

591: デフォルトの名無しさん [sage] 2019/09/28(土) 03:08:06.06 ID:HcOq9X6n >>589 ？ http://mevius.5ch.net/test/read.cgi/tech/1564310397/591

592: デフォルトの名無しさん [] 2019/09/28(土) 03:10:19.21 ID:63IK4172 unixタイムとかで、日時と整数は一対一対応してるだろ ランダム生成で日時は作れる http://mevius.5ch.net/test/read.cgi/tech/1564310397/592

593: デフォルトの名無しさん [] 2019/09/28(土) 03:15:41.26 ID:HcOq9X6n >>592 いや、そうじゃなくて >>589 は何番のレスに対するレスなの？ http://mevius.5ch.net/test/read.cgi/tech/1564310397/593

594: デフォルトの名無しさん [] 2019/09/28(土) 03:30:16.66 ID:63IK4172 何番と限らず日時と整数は一対一できるから日時が関係するあらゆる問題 http://mevius.5ch.net/test/read.cgi/tech/1564310397/594

595: デフォルトの名無しさん [] 2019/09/28(土) 03:58:16.37 ID:HcOq9X6n >>594 いや、 >>589 は何かを読んだ結果書いたんでしょ? 何を読んで書いたの? http://mevius.5ch.net/test/read.cgi/tech/1564310397/595

596: デフォルトの名無しさん [] 2019/09/28(土) 04:47:52.20 ID:HcOq9X6n >>588 もう一つ作った。 Perl https://paiza.io/projects/snJD7lMN-gazmd2EQdDb1Q http://mevius.5ch.net/test/read.cgi/tech/1564310397/596

597: デフォルトの名無しさん [sage] 2019/09/28(土) 10:58:14.32 ID:bVbqLRNA >>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」が開発者向けに無償開放」 # https://forest.watch.impress.co.jp/docs/news/1186454.html http://mevius.5ch.net/test/read.cgi/tech/1564310397/597

598: デフォルトの名無しさん [sage] 2019/09/28(土) 15:09:30.05 ID:E6lKnilk C++標準のファイルシステムでは、パスは取れるが、時間を取得する関数がないっぽい。 http://mevius.5ch.net/test/read.cgi/tech/1564310397/598

599: デフォルトの名無しさん [sage] 2019/09/28(土) 15:18:04.57 ID:E6lKnilk あぁ、あったわ。C++17で入ったからまだ不明瞭だ。自分にとって。 http://mevius.5ch.net/test/read.cgi/tech/1564310397/599

600: デフォルトの名無しさん [sage] 2019/09/28(土) 15:36:35.57 ID:E6lKnilk >>559 http://coliru.stacked-crooked.com/a/5280874347a70de8 C++。C++17がいる。結構サクッとかけたな。 http://mevius.5ch.net/test/read.cgi/tech/1564310397/600

601: デフォルトの名無しさん [sage] 2019/09/28(土) 16:35:23.18 ID:E6lKnilk >>548 https://ideone.com/AWfTOd C++。マイドキュメントの列挙だけで力尽きた。ぐはぁ・・・。 http://mevius.5ch.net/test/read.cgi/tech/1564310397/601

602: デフォルトの名無しさん [] 2019/09/28(土) 21:56:43.99 ID:yaf8uxdw >>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[$_]) { $x = $y[$_] | group {[int]$_.DayOfWeek} -AsHashTable } else { $x = @() } $line = "{0,2}" -f $_ 0..6 |% { $n = ($x[$_].Count * 10 + [int]$max / 2 - 1) / $max $line += "|" + ("*" * $n).PadRight(10) } $line + "|" } http://mevius.5ch.net/test/read.cgi/tech/1564310397/602

603: 蟻人間 ◆T6xkBnTXz7B0 [sage] 2019/09/29(日) 02:59:00.33 ID:8mEp/ii8 お題: 地球上の2地点を緯度・経度で指定すると、(球面上の)直線距離を求めてくれるプログラム。 地球がほぼ球体であることを仮定してもよい。 http://mevius.5ch.net/test/read.cgi/tech/1564310397/603

604: 蟻人間 ◆T6xkBnTXz7B0 [sage] 2019/09/29(日) 03:04:31.30 ID:8mEp/ii8 ロンドンからニューヨーク。 北京から台湾。 ニュージーランドからトルコ。 http://mevius.5ch.net/test/read.cgi/tech/1564310397/604

605: 蟻人間 ◆T6xkBnTXz7B0 [sage] 2019/09/29(日) 03:16:51.58 ID:8mEp/ii8 参考に: https://keisan.casio.jp/exec/system/1257670779 http://mevius.5ch.net/test/read.cgi/tech/1564310397/605

606: 蟻人間 ◆T6xkBnTXz7B0 [sage] 2019/09/29(日) 03:55:31.74 ID:8mEp/ii8 ヒント: 度をラジアンに変換。dの公式に代入する。緯度経度はグーグル マップで調べる。コサインの逆関数はアークコサイン。 http://mevius.5ch.net/test/read.cgi/tech/1564310397/606

607: デフォルトの名無しさん [sage] 2019/09/29(日) 09:16:55.67 ID:GG+B8frl 数学の問題どすな 地球半径を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で割って逆余弦関数に 与えた結果にRを掛けたモノが答え http://mevius.5ch.net/test/read.cgi/tech/1564310397/607

608: デフォルトの名無しさん [sage] 2019/09/29(日) 09:23:23.08 ID:GG+B8frl ちょい間違った (0,R,0)は東経90度の赤道上の太平洋上の地点で スリランカ・コロンボから約1360kmの地点 (-R,0,0)がナウル島から1450kmの地点 (0,-R,0)はガラパゴス諸島から20〜25km程度の 太平洋上の地点 http://mevius.5ch.net/test/read.cgi/tech/1564310397/608

609: デフォルトの名無しさん [sage] 2019/09/29(日) 09:25:23.90 ID:GG+B8frl 表計算ソフトを使うのが効率的ね http://mevius.5ch.net/test/read.cgi/tech/1564310397/609

610: デフォルトの名無しさん [sage] 2019/09/29(日) 10:48:24.98 ID:UzLHlBWt 地球を球に近似する時点でナンセンス。解く価値無し http://mevius.5ch.net/test/read.cgi/tech/1564310397/610

611: デフォルトの名無しさん [sage] 2019/09/29(日) 11:06:06.70 ID:VkSI6pCv 仮定してもよい　なんだから球に近似しないで書けばいい話じゃね？ http://mevius.5ch.net/test/read.cgi/tech/1564310397/611

612: デフォルトの名無しさん [sage] 2019/09/29(日) 12:00:03.35 ID:bEy1wMJX >>603 大円距離の問題なんだから、距離が一番短くなる2点間の長さとすべき、 great-circular distance >>605 の数値を使い 地球の半径を　6378.137 km 2点の緯度経度　 139.74477,35.6544 , 39.8261, 21.4225 Python https://ideone.com/qp1Fer 答え　 9,491.28 km http://mevius.5ch.net/test/read.cgi/tech/1564310397/612

613: デフォルトの名無しさん [sage] 2019/09/29(日) 12:03:30.83 ID:bEy1wMJX >>612 2点間の経度緯度　の間違い http://mevius.5ch.net/test/read.cgi/tech/1564310397/613

614: デフォルトの名無しさん [sage] 2019/09/29(日) 12:33:05.14 ID:mYJaebwB >>603-6 use Math::Trig qw{deg2rad acos}; ($lat1, $long1) = map{deg2rad $_} (51.507448,-0.1287243); # ロンドン ウエストミンスター チャールズ1世騎馬像 ($lat2, $long2) = map{deg2rad $_} (40.712775,-74.005973); # ニューヨークCity Park Hall(市庁舎) $theta = $long1 - $long2; $dist = sin($lat1) * sin($lat2) + cos($lat1) * cos($lat2) * cos($theta); $dist = 6378.137 * acos($dist); printf "%.2f[Km]\n", $dist; 実行結果 ~ $ perl 15_604.pl 5576.40[Km] cf.) https://www.geodatasource.com/developers/perl http://mevius.5ch.net/test/read.cgi/tech/1564310397/614

615: デフォルトの名無しさん [sage] 2019/09/29(日) 12:34:14.75 ID:mYJaebwB >>614 アンカーしくった >>603-606 だた…orz http://mevius.5ch.net/test/read.cgi/tech/1564310397/615

616: デフォルトの名無しさん [] 2019/09/29(日) 19:44:37.93 ID:aa2vZ2v/ お題:8queenで面白いパターンを見つけよ。 http://mevius.5ch.net/test/read.cgi/tech/1564310397/616

617: デフォルトの名無しさん [] 2019/09/29(日) 23:06:17.59 ID:OI4EUI6E お題:もっと面白いお題を考えよ。 http://mevius.5ch.net/test/read.cgi/tech/1564310397/617

618: デフォルトの名無しさん [] 2019/09/29(日) 23:45:54.79 ID:m0Odf/xn >>588 C https://ideone.com/472wFP http://mevius.5ch.net/test/read.cgi/tech/1564310397/618

619: デフォルトの名無しさん [sage] 2019/09/29(日) 23:51:59.00 ID:k4CvVXqN >>616 面白いってひどく曖昧だな http://mevius.5ch.net/test/read.cgi/tech/1564310397/619

620: 蟻人間 ◆T6xkBnTXz7B0 [sage] 2019/09/30(月) 02:22:51.44 ID:i5LhrskR お題: サイズ15x15の空白マス('_')がある。黒マス('#')をいくつかランダムに置いて、空白マスが縦または横向きに5マス連続に並ばないようにしたい。ただし、 1. なるべく早く黒マスを配置せよ。 2. 実行のたびに常にランダムにまんべんなく配置せよ。 3. 黒マスが縦または横に隣り合ってはいけない。 4. (ア)全て並べる、そして(イ)並びが正しいか検証する、の(ア)と(イ)を15回繰り返してかかる時間を実測せよ。 http://mevius.5ch.net/test/read.cgi/tech/1564310397/620

621: デフォルトの名無しさん [] 2019/09/30(月) 09:19:26.74 ID:eZfyppwl >>617 考えた。 でもこれは発表しない。誰にも教えない。墓まで持っていく。 http://mevius.5ch.net/test/read.cgi/tech/1564310397/621

622: デフォルトの名無しさん [sage] 2019/09/30(月) 10:08:08.98 ID:4XC9Ks9U >>620 馬鹿っぽ http://mevius.5ch.net/test/read.cgi/tech/1564310397/622

623: デフォルトの名無しさん [sage] 2019/09/30(月) 16:46:23.79 ID:ypiuCBLp >>620 https://ideone.com/FggLLg C++。ふえ〜。円の当たり判定しようと思ったのに、うごかないよ〜。 コード間違ってるのか、数学ぶっ壊れたのかわからん。 デバッグしてくれる人募集。 コード間違ってるんやったら、俺の認識限界がおかしいな。 http://mevius.5ch.net/test/read.cgi/tech/1564310397/623

624: デフォルトの名無しさん [sage] 2019/09/30(月) 17:15:46.44 ID:ypiuCBLp >>623 https://ideone.com/Q1X602 C++。代替え案。実行ごとにパターンが変わって敷き詰めた一例。 変わってないと思うなら0点のパターンを見てみよう。 http://mevius.5ch.net/test/read.cgi/tech/1564310397/624

625: デフォルトの名無しさん [sage] 2019/09/30(月) 17:20:40.68 ID:ypiuCBLp じっそうじかんは多分2時間以内だ。 http://mevius.5ch.net/test/read.cgi/tech/1564310397/625

626: デフォルトの名無しさん [sage] 2019/09/30(月) 17:55:07.40 ID:tHR3tKyN >>624 代替案(だいたい-あん)と言いなさい http://mevius.5ch.net/test/read.cgi/tech/1564310397/626

627: デフォルトの名無しさん [sage] 2019/09/30(月) 18:25:02.21 ID:ypiuCBLp >>626 あー。すっかり忘れてた。。。 http://mevius.5ch.net/test/read.cgi/tech/1564310397/627

628: デフォルトの名無しさん [sage] 2019/09/30(月) 20:18:42.58 ID:H9c5jpU6 >>620 なるほど コレだな 黒マスルール - Wikipedia https://ja.wikipedia.org/wiki/%E9%BB%92%E3%83%9E%E3%82%B9%E3%83%AB%E3%83%BC%E3%83%AB http://ja-kouka.shinobi.or.jp/wp/wp-content/uploads/2018/07/1b6137e740902d821bd7f9678b59d7d2.jpg 出来上がった白黒の升目に上手いこと単語を置くとクロスワードパズルになる 「縦または横向きに5マス連続に並ばない」は「縦または横向きに4マスまで連続に並んでもいい」だ そこにさらに追加ルールを仕込むとクロスワードパズルの枠が出来上がる http://mevius.5ch.net/test/read.cgi/tech/1564310397/628

629: デフォルトの名無しさん [sage] 2019/10/01(火) 07:35:49.09 ID:NlppalS8 お題 言語限定（コマンドプロンプト・パワーシェル・bash/csh等のUNIXシェル) 10000までの素数を列挙して出力 当然だが、スクリプト言語処理系やコンパイラに丸投げさせるのは禁止 というか、技量の程度が疑わてしまうのでお勧めしない http://mevius.5ch.net/test/read.cgi/tech/1564310397/629

630: デフォルトの名無しさん [sage] 2019/10/01(火) 08:06:53.05 ID:7l0S2vrN 「○○は禁止」系のお題はろくなのがないから禁止した方がいい http://mevius.5ch.net/test/read.cgi/tech/1564310397/630

631: デフォルトの名無しさん [sage] 2019/10/01(火) 08:35:57.10 ID:NlppalS8 プログラミング言語なんて、禁止の塊で出来たものなんで 「禁止の所産」って奴な http://mevius.5ch.net/test/read.cgi/tech/1564310397/631

632: デフォルトの名無しさん [] 2019/10/01(火) 08:56:55.24 ID:H2UNgdyX >>629 シェルスクリプトスレ池 http://mevius.5ch.net/test/read.cgi/tech/1564310397/632

633: デフォルトの名無しさん [sage] 2019/10/01(火) 09:02:28.05 ID:zsyRP5Ba >>629 C で書いておけば許されるかんじがする https://pastebin.com/pHNKfcun 実行 https://i.imgur.com/f62qe9L.jpg 最大の素数の幅を見てからきちんと整列される ~/bin/is_prime.exe 50900 60000 50909 50923 50929 50951 50957 50969 50971 50989 50993 51001 51031 51043 51047 51059 51061 51071 51109 51131 51133 51137 http://mevius.5ch.net/test/read.cgi/tech/1564310397/633

634: デフォルトの名無しさん [sage] 2019/10/01(火) 09:20:22.36 ID:j8m55EYr >>629 Linux $ primes 2 10001 2 3 ... 9967 9973 http://mevius.5ch.net/test/read.cgi/tech/1564310397/634

635: デフォルトの名無しさん [] 2019/10/01(火) 09:21:08.21 ID:R4cuDBX/ 遅くまともな言語ではないやつで、どうにかして動くのを作れというお題なんだろ まともな言語使用してしまえばお題からずれてるかと http://mevius.5ch.net/test/read.cgi/tech/1564310397/635

636: デフォルトの名無しさん [] 2019/10/01(火) 09:53:39.77 ID:PlApYvsP 配列使えるシェルもあるからそういうの使えば楽かも shでもsetすりゃ配列だが まあでも遅そうで実用性なさげ http://mevius.5ch.net/test/read.cgi/tech/1564310397/636

637: デフォルトの名無しさん [sage] 2019/10/01(火) 12:56:02.79 ID:ygg8X6aa >>629 コマンドプロンプト(Windows) https://ideone.com/aeDkD1 おそい…コマンドプロンプトよーわからんですよ http://mevius.5ch.net/test/read.cgi/tech/1564310397/637

638: 629 [sage] 2019/10/01(火) 13:54:46.98 ID:NlppalS8 >>637 スゴイｗ やれば出来るものですね。 10000を超えても出力し続けてますｗ http://mevius.5ch.net/test/read.cgi/tech/1564310397/638

639: デフォルトの名無しさん [sage] 2019/10/01(火) 14:02:08.82 ID:ygg8X6aa あ、10000までの制限がないｗｗ limit=100までにしてるから10000以降に出た数値は信頼性ないｗｗｗ 修正したものを実行して確認中…10000で止まったらUPる…遅い(´・ω・`) http://mevius.5ch.net/test/read.cgi/tech/1564310397/639

640: デフォルトの名無しさん [sage] 2019/10/01(火) 14:07:52.43 ID:ygg8X6aa >>629 コマンドプロンプト (>>637の修正版) https://ideone.com/5keIkO 637は書いてたはずのecho 2も消えてた(´・ω・`) http://mevius.5ch.net/test/read.cgi/tech/1564310397/640

641: デフォルトの名無しさん [sage] 2019/10/01(火) 15:07:38.24 ID:ygg8X6aa まあまだ 49(7*7) 289(17*17) 961(31*31) 2209(47*47) 3721(61*61) 6241(79*79)を出力するバグがあったわけだがｗ http://mevius.5ch.net/test/read.cgi/tech/1564310397/641

642: デフォルトの名無しさん [sage] 2019/10/01(火) 15:44:01.75 ID:ygg8X6aa >>629 コマンドプロンプト 修正版2 https://ideone.com/dXSpSd もうバグないといいな http://mevius.5ch.net/test/read.cgi/tech/1564310397/642

643: デフォルトの名無しさん [sage] 2019/10/01(火) 16:30:10.47 ID:7XyHUR/V シェルスクリプトでチョコチョコと何かやる分には良いが、プログラムを書くというのとは違うだろ。 プログラムはそれなりのものた^_^書いた方が効率的。 どっちからでも起動できるんだから餅は餅屋。 http://mevius.5ch.net/test/read.cgi/tech/1564310397/643

644: デフォルトの名無しさん [] 2019/10/01(火) 16:32:34.41 ID:9fvqkmcJ ^_^; http://mevius.5ch.net/test/read.cgi/tech/1564310397/644

645: デフォルトの名無しさん [] 2019/10/01(火) 17:17:18.11 ID:PlApYvsP >>629 bash https://paiza.io/projects/G-t20MSEfsjAnAp0G5v2NA でもやっぱ遅くてpaiza.ioではtimeoutして最後まで出てこないw http://mevius.5ch.net/test/read.cgi/tech/1564310397/645

646: デフォルトの名無しさん [] 2019/10/01(火) 21:04:23.70 ID:rsBZCnlu >>629 遅くても構わなければ、PowerShellではとても簡潔に書ける。 $p = 2..10000 while ($p) { 　　$p[0] 　　$p = @($p |? {$_ % $p[0]}) } http://mevius.5ch.net/test/read.cgi/tech/1564310397/646

647: デフォルトの名無しさん [] 2019/10/01(火) 21:59:35.52 ID:Ueonb/Q5 誰が遅くても構わないと言った http://mevius.5ch.net/test/read.cgi/tech/1564310397/647

648: デフォルトの名無しさん [sage] 2019/10/01(火) 22:03:29.87 ID:x7eW/FrR お題: ハッシュマップを実装せよ http://mevius.5ch.net/test/read.cgi/tech/1564310397/648

649: デフォルトの名無しさん [sage] 2019/10/01(火) 22:05:13.75 ID:ygg8X6aa 俺が書いたコマンドプロンプトのよりは早いぞｗ http://mevius.5ch.net/test/read.cgi/tech/1564310397/649

650: デフォルトの名無しさん [sage] 2019/10/01(火) 22:21:18.49 ID:H9NeHROf >>648 ジェネリックに書くとして、ハッシュ関数はどうやって書けばいいんだ？ std::vector<std::list<T>>> HashMap; っていう感じのことはできそうではあるけどな。 http://mevius.5ch.net/test/read.cgi/tech/1564310397/650

651: デフォルトの名無しさん [sage] 2019/10/02(水) 07:55:46.84 ID:YpMEiTCH # Java HashMap<String, Integer> shop = new HashMap<String, Integer>(); shop.put("apple", 100); shop.put("banana", 125); System.out.println(shop.get("banana")); //=> 125 # Python shop = { 'apple':100 , 'banana':125 } print(shop['banana']) # 125 http://mevius.5ch.net/test/read.cgi/tech/1564310397/651

652: デフォルトの名無しさん [] 2019/10/02(水) 12:25:17.61 ID:56vpBHGI それは実装ではない。 http://mevius.5ch.net/test/read.cgi/tech/1564310397/652

653: デフォルトの名無しさん [sage] 2019/10/02(水) 13:20:24.28 ID:+RotAwEg >>648 このスレの住民のレベルに合っていてかつプログラマにとって必要不可欠な知識なので良いお題 http://mevius.5ch.net/test/read.cgi/tech/1564310397/653

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

あと 349 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.030s