プログラミングのお題スレ Part15

1 名前：デフォルトの名無しさん mailto:sage [2019/07/28(日) 19:39:57.54 ID:832c/ukY.net] プログラミングのお題スレです。 【出題と回答例】 1 名前：デフォルトの名無しさん 　　お題：お題本文 2 名前：デフォルトの名無しさん 　　>>1 使用言語 　　回答本文 　　結果がある場合はそれも 【ソースコードが長くなったら】 (オンラインでコードを実行できる) https://ideone.com/ codepad.org/ compileonline.com/ rextester.com/runcode https://runnable.com/ https://code.hackerearth.com/ melpon.org/wandbox https://paiza.io/ 宿題は宿題スレがあるのでそちらへ。 ※前スレ プログラミングのお題スレ Part14 mevius.5ch.net/test/read.cgi/tech/1558168409/ 588 名前：デフォルトの名無しさん mailto:sage [2019/09/23(月) 12:49:49.08 ID:iF+DbCXr.net] 模範解答(汚ねえスパゲティ) 589 名前：デフォルトの名無しさん [2019/09/23(月) 13:54:34.61 ID:2RLjyW/B.net] >>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 590 名前：デフォルトの名無しさん [2019/09/27(金) 01:42:52.78 ID:/3CUbuCi.net] >>521 Kotlin https://paiza.io/projects/OrRiee2xfpa7RKGGYfpyfQ 591 名前：デフォルトの名無しさん [2019/09/27(金) 02:44:56.39 ID:/3CUbuCi.net] >>522 Kotlin https://paiza.io/projects/saSW2aaTiVigsU_14uCc-g 592 名前：デフォルトの名無しさん [2019/09/27(金) 02:50:14.35 ID:/3CUbuCi.net] >>550 シェルスクリプト (find, touch コマンド使用) 2019/09/27 02:48:00 に合わせる場合 #!/bin/sh find 593 名前： あるフォルダ -type f -exec touch -t 201909270248.00 {} \; [] [ここ壊れてます] 594 名前：デフォルトの名無しさん [2019/09/27(金) 19:49:32.99 ID:jf7tgLq0.net] >>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} 595 名前：デフォルトの名無しさん [2019/09/27(金) 19:57:07.16 ID:jf7tgLq0.net] >>580をコピペで実行するときは、`の後の半角空白を削除しないとエラーになる。 596 名前：デフォルトの名無しさん mailto:sage [2019/09/27(金) 21:29:22.88 ID:vBAnAZ37.net] お題：リスト等の重複する要素を削除し、大きい順に並び替えよ [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 597 名前：デフォルトの名無しさん mailto:sage [2019/09/27(金) 22:41:14.90 ID:kWPPTdrf.net] >>582 Ruby p [3, 1, 4, 1, 5].uniq.sort_by(&:-@) # => [5, 4, 3, 1] 598 名前：デフォルトの名無しさん [2019/09/27(金) 23:07:29.28 ID:Z4UqEtTG.net] >>582 javascript [...new Set([3, 1, 4, 1, 5])].sort().reverse() 599 名前：デフォルトの名無しさん mailto:sage [2019/09/28(土) 00:13:52.50 ID:OLAr2jSy.net] >>582 Pharo/Squeak Smalltalk #(3 1 4 1 5) asSet sorted: #> "=> #(5 4 3 1) " 600 名前：デフォルトの名無しさん mailto:sage [2019/09/28(土) 00:23:41.09 ID:gcUBCYXO.net] >>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 601 名前：デフォルトの名無しさん [2019/09/28(土) 00:52:45.19 ID:HcOq9X6n.net] >>568 それだったら曜日毎の1時間毎のファイル数でグラフにするとかしないと分かりづらいのではないか？ ああ。そういうお題作ればいいか。 602 名前：デフォルトの名無しさん [2019/09/28(土) 01:09:55.39 ID:HcOq9X6n.net] お題: 指定のディレクトリ以下にある全てのファイルの更新日時を取得し、曜日毎、及び時間毎にしてグラフにして出せ。 これは同じ曜日の同じ時間で更新されているファイルのカウントということね。例えば今週と先週の土曜日の7:00代の更新ファイルが一つづつあれば土曜日7時代のカウントが2になる。 で、グラフにする時は表示方法はなんでもいいので例えばテキストでアスタリスク2個で出す。(後でこちらでもプログラム作るのでそれ参考にしてもいい)。 ディレクトリの指定方法は普通なら引数での指定が良いだろうけどプログラムに埋め込んでも標準入力やファイルから読み込んでも何でもいい。それはこのお題では肝心な事ではないので。 603 名前：デフォルトの名無しさん [2019/09/28(土) 02:06:50.36 ID:63IK4172.net] それだったらファイル、ディレクトリ操作は除外してランダムに日時発生させるとかでいいだろ 機種依存するので ランダム生成は依存しない 604 名前：デフォルトの名無しさん [2019/09/28(土) 03:07:13.28 ID:HcOq9X6n.net] >>588 作った。 Kotlin https://paiza.io/projects/8uUpDL9CaEZepG8gD2vV0A 605 名前：デフォルトの名無しさん mailto:sage [2019/09/28(土) 03:08:06.06 ID:HcOq9X6n.net] >>589 ？ 606 名前：デフォルトの名無しさん [2019/09/28(土) 03:10:19.21 ID:63IK4172.net] unixタイムとかで、日時と整数は一対一対応してるだろ ランダム生成で日時は作れる 607 名前：デフォルトの名無しさん [2019/09/28(土) 03:15:41.26 ID:HcOq9X6n.net] >>592 いや、そうじゃなくて >>589 は何番のレスに対するレスなの？ 608 名前：デフォルトの名無しさん [2019/09/28(土) 03:30:16.66 ID:63IK4172.net] 何番と限らず日時と整数は一対一できるから日時が関係するあらゆる問題 609 名前：デフォルトの名無しさん [2019/09/28(土) 03:58:16.37 ID:HcOq9X6n.net] >>594 いや、 >>589 は何かを読んだ結果書いたんでしょ? 何を読んで書いたの? 610 名前：デフォルトの名無しさん [2019/09/28(土) 04:47:52.20 ID:HcOq9X6n.net] >>588 もう一つ作った。 Perl https://paiza.io/projects/snJD7lMN-gazmd2EQdDb1Q 611 名前：デフォルトの名無しさん mailto:sage [2019/09/28(土) 10:58:14.32 ID:bVbqLRNA.net] >>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 612 名前：デフォルトの名無しさん mailto:sage [2019/09/28(土) 15:09:30.05 ID:E6lKnilk.net] C++標準のファイルシステムでは、パスは取れるが、時間を取得する関数がないっぽい。 613 名前：デフォルトの名無しさん mailto:sage [2019/09/28(土) 15:18:04.57 ID:E6lKnilk.net] あぁ、あったわ。C++17で入ったからまだ不明瞭だ。自分にとって。 614 名前：デフォルトの名無しさん mailto:sage [2019/09/28(土) 15:36:35.57 ID:E6lKnilk.net] >>559 coliru.stacked-crooked.com/a/5280874347a70de8 C++。C++17がいる。結構サクッとかけたな。 615 名前：デフォルトの名無しさん mailto:sage [2019/09/28(土) 16:35:23.18 ID:E6lKnilk.net] >>548 https://ideone.com/AWfTOd C++。マイドキュメントの列挙だけで力尽きた。ぐはぁ・・・。 616 名前：デフォルトの名無しさん [2019/09/28(土) 21:56:43.99 ID:yaf8uxdw.net] >>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 + "|" } 617 名前：蟻人間 mailto:sage [2019/09/29(日) 02:59:00.33 ID:8mEp/ii8.net] お題: 地球上の2地点を緯度・経度で指定すると、(球面上の)直線距離を求めてくれるプログラム。 地球がほぼ球体であることを仮定してもよい。 618 名前：蟻人間 mailto:sage [2019/09/29(日) 03:04:31.30 ID:8mEp/ii8.net] ロンドンからニューヨーク。 北京から台湾。 ニュージーランドからトルコ。 619 名前：蟻人間 mailto:sage [2019/09/29(日) 03:16:51.58 ID:8mEp/ii8.net] 参考に: https://keisan.casio.jp/exec/system/1257670779 620 名前：蟻人間 mailto:sage [2019/09/29(日) 03:55:31.74 ID:8mEp/ii8.net] ヒント: 度をラジアンに変換。dの公式に代入する。緯度経度はグーグル マップで調べる。コサインの逆関数はアークコサイン。 621 名前：デフォルトの名無しさん mailto:sage [2019/09/29(日) 09:16:55.67 ID:GG+B8frl.net] 数学の問題どすな 地球半径を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を掛けたモノが答え 622 名前：デフォルトの名無しさん mailto:sage [2019/09/29(日) 09:23:23.08 ID:GG+B8frl.net] ちょい間違った (0,R,0)は東経90度の赤道上の太平洋上の地点で スリランカ・コロンボから約1360kmの地点 (-R,0,0)がナウル島から1450kmの地点 (0,-R,0)はガラパゴス諸島から20〜25km程度の 太平洋上の地点 623 名前：デフォルトの名無しさん mailto:sage [2019/09/29(日) 09:25:23.90 ID:GG+B8frl.net] 表計算ソフトを使うのが効率的ね 624 名前：デフォルトの名無しさん mailto:sage [2019/09/29(日) 10:48:24.98 ID:UzLHlBWt.net] 地球を球に近似する時点でナンセンス。解く価値無し 625 名前：デフォルトの名無しさん mailto:sage [2019/09/29(日) 11:06:06.70 ID:VkSI6pCv.net] 仮定してもよい　なんだから球に近似しないで書けばいい話じゃね？ 626 名前：デフォルトの名無しさん mailto:sage [2019/09/29(日) 12:00:03.35 ID:bEy1wMJX.net] >>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 627 名前：デフォルトの名無しさん mailto:sage [2019/09/29(日) 12:03:30.83 ID:bEy1wMJX.net] >>612 2点間の経度緯度　の間違い 628 名前：デフォルトの名無しさん mailto:sage [2019/09/29(日) 12:33:05.14 ID:mYJaebwB.net] >>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 629 名前：デフォルトの名無しさん mailto:sage [2019/09/29(日) 12:34:14.75 ID:mYJaebwB.net] >>614 アンカーしくった >>603-606 だた…orz 630 名前：デフォルトの名無しさん [2019/09/29(日) 19:44:37.93 ID:aa2vZ2v/.net] お題:8queenで面白いパターンを見つけよ。 631 名前：デフォルトの名無しさん [2019/09/29(日) 23:06:17.59 ID:OI4EUI6E.net] お題:もっと面白いお題を考えよ。 632 名前：デフォルトの名無しさん [2019/09/29(日) 23:45:54.79 ID:m0Odf/xn.net] >>588 C https://ideone.com/472wFP 633 名前：デフォルトの名無しさん mailto:sage [2019/09/29(日) 23:51:59.00 ID:k4CvVXqN.net] >>616 面白いってひどく曖昧だな 634 名前：蟻人間 mailto:sage [2019/09/30(月) 02:22:51.44 ID:i5LhrskR.net] お題: サイズ15x15の空白マス('_')がある。黒マス('#')をいくつかランダムに置いて、空白マスが縦または横向きに5マス連続に並ばないようにしたい。ただし、 1. なるべく早く黒マスを配置せよ。 2. 実行のたびに常にランダムにまんべんなく配置せよ。 3. 黒マスが縦または横に隣り合ってはいけない。 4. (ア)全て並べる、そして(イ)並びが正しいか検証する、の(ア)と(イ)を15回繰り返してかかる時間を実測せよ。 635 名前：デフォルトの名無しさん [2019/09/30(月) 09:19:26.74 ID:eZfyppwl.net] >>617 考えた。 でもこれは発表しない。誰にも教えない。墓まで持っていく。 636 名前：デフォルトの名無しさん mailto:sage [2019/09/30(月) 10:08:08.98 ID:4XC9Ks9U.net] >>620 馬鹿っぽ 637 名前：デフォルトの名無しさん mailto:sage [2019/09/30(月) 16:46:23.79 ID:ypiuCBLp.net] >>620 https://ideone.com/FggLLg C++。ふえ〜。円の当たり判定しようと思ったのに、うごかないよ〜。 コード間違ってるのか、数学ぶっ壊れたのかわからん。 デバッグしてくれる人募集。 コード間違ってるんやったら、俺の認識限界がおかしいな。 638 名前：デフォルトの名無しさん mailto:sage [2019/09/30(月) 17:15:46.44 ID:ypiuCBLp.net] >>623 https://ideone.com/Q1X602 C++。代替え案。実行ごとにパターンが変わって敷き詰めた一例。 変わってないと思うなら0点のパターンを見てみよう。 639 名前：デフォルトの名無しさん mailto:sage [2019/09/30(月) 17:20:40.68 ID:ypiuCBLp.net] じっそうじかんは多分2時間以内だ。 640 名前：デフォルトの名無しさん mailto:sage [2019/09/30(月) 17:55:07.40 ID:tHR3tKyN.net] >>624 代替案(だいたい-あん)と言いなさい 641 名前：デフォルトの名無しさん mailto:sage [2019/09/30(月) 18:25:02.21 ID:ypiuCBLp.net] >>626 あー。すっかり忘れてた。。。 642 名前：デフォルトの名無しさん mailto:sage [2019/09/30(月) 20:18:42.58 ID:H9c5jpU6.net] >>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 ja-kouka.shinobi.or.jp/wp/wp-content/uploads/2018/07/1b6137e740902d821bd7f9678b59d7d2.jpg 出来上がった白黒の升目に上手いこと単語を置くとクロスワードパズルになる 「縦または横向きに5マス連続に並ばない」は「縦または横向きに4マスまで連続に並んでもいい」だ そこにさらに追加ルールを仕込むとクロスワードパズルの枠が出来上がる 643 名前：デフォルトの名無しさん mailto:sage [2019/10/01(火) 07:35:49.09 ID:NlppalS8.net] お題 言語限定（コマンドプロンプト・パワーシェル・bash/csh等のUNIXシェル) 10000までの素数を列挙して出力 当然だが、スクリプト言語処理系やコンパイラに丸投げさせるのは禁止 というか、技量の程度が疑わてしまうのでお勧めしない 644 名前：デフォルトの名無しさん mailto:sage [2019/10/01(火) 08:06:53.05 ID:7l0S2vrN.net] 「○○は禁止」系のお題はろくなのがないから禁止した方がいい 645 名前：デフォルトの名無しさん mailto:sage [2019/10/01(火) 08:35:57.10 ID:NlppalS8.net] プログラミング言語なんて、禁止の塊で出来たものなんで 「禁止の所産」って奴な 646 名前：デフォルトの名無しさん [2019/10/01(火) 08:56:55.24 ID:H2UNgdyX.net] >>629 シェルスクリプトスレ池 647 名前：デフォルトの名無しさん mailto:sage [2019/10/01(火) 09:02:28.05 ID:zsyRP5Ba.net] >>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 648 名前：デフォルトの名無しさん mailto:sage [2019/10/01(火) 09:20:22.36 ID:j8m55EYr.net] >>629 Linux $ primes 2 10001 2 3 ... 9967 9973 649 名前：デフォルトの名無しさん [2019/10/01(火) 09:21:08.21 ID:R4cuDBX/.net] 遅くまともな言語ではないやつで、どうにかして動くのを作れというお題なんだろ まともな言語使用してしまえばお題からずれてるかと 650 名前：デフォルトの名無しさん [2019/10/01(火) 09:53:39.77 ID:PlApYvsP.net] 配列使えるシェルもあるからそういうの使えば楽かも shでもsetすりゃ配列だが まあでも遅そうで実用性なさげ 651 名前：デフォルトの名無しさん mailto:sage [2019/10/01(火) 12:56:02.79 ID:ygg8X6aa.net] >>629 コマンドプロンプト(Windows) https://ideone.com/aeDkD1 おそい…コマンドプロンプトよーわからんですよ 652 名前：629 mailto:sage [2019/10/01(火) 13:54:46.98 ID:NlppalS8.net] >>637 スゴイｗ やれば出来るものですね。 10000を超えても出力し続けてますｗ 653 名前：デフォルトの名無しさん mailto:sage [2019/10/01(火) 14:02:08.82 ID:ygg8X6aa.net] あ、10000までの制限がないｗｗ limit=100までにしてるから10000以降に出た数値は信頼性ないｗｗｗ 修正したものを実行して確認中…10000で止まったらUPる…遅い(´・ω・`) 654 名前：デフォルトの名無しさん mailto:sage [2019/10/01(火) 14:07:52.43 ID:ygg8X6aa.net] >>629 コマンドプロンプト (>>637の修正版) https://ideone.com/5keIkO 637は書いてたはずのecho 2も消えてた(´・ω・`) 655 名前：デフォルトの名無しさん mailto:sage [2019/10/01(火) 15:07:38.24 ID:ygg8X6aa.net] まあまだ 49(7*7) 289(17*17) 961(31*31) 2209(47*47) 3721(61*61) 6241(79*79)を出力するバグがあったわけだがｗ 656 名前：デフォルトの名無しさん mailto:sage [2019/10/01(火) 15:44:01.75 ID:ygg8X6aa.net] >>629 コマンドプロンプト 修正版2 https://ideone.com/dXSpSd もうバグないといいな 657 名前：デフォルトの名無しさん mailto:sage [2019/10/01(火) 16:30:10.47 ID:7XyHUR/V.net] シェルスクリプトでチョコチョコと何かやる分には良いが、プログラムを書くというのとは違うだろ。 プログラムはそれなりのものた^_^書いた方が効率的。 どっちからでも起動できるんだから餅は餅屋。 658 名前：デフォルトの名無しさん [2019/10/01(火) 16:32:34.41 ID:9fvqkmcJ.net] ^_^; 659 名前：デフォルトの名無しさん [2019/10/01(火) 17:17:18.11 ID:PlApYvsP.net] >>629 bash https://paiza.io/projects/G-t20MSEfsjAnAp0G5v2NA でもやっぱ遅くてpaiza.ioではtimeoutして最後まで出てこないw 660 名前：デフォルトの名無しさん [2019/10/01(火) 21:04:23.70 ID:rsBZCnlu.net] >>629 遅くても構わなければ、PowerShellではとても簡潔に書ける。 $p = 2..10000 while ($p) { 　　$p[0] 　　$p = @($p |? {$_ % $p[0]}) } 661 名前：デフォルトの名無しさん [2019/10/01(火) 21:59:35.52 ID:Ueonb/Q5.net] 誰が遅くても構わないと言った 662 名前：デフォルトの名無しさん mailto:sage [2019/10/01(火) 22:03:29.87 ID:x7eW/FrR.net] お題: ハッシュマップを実装せよ 663 名前：デフォルトの名無しさん mailto:sage [2019/10/01(火) 22:05:13.75 ID:ygg8X6aa.net] 俺が書いたコマンドプロンプトのよりは早いぞｗ 664 名前：デフォルトの名無しさん mailto:sage [2019/10/01(火) 22:21:18.49 ID:H9NeHROf.net] >>648 ジェネリックに書くとして、ハッシュ関数はどうやって書けばいいんだ？ std::vector<std::list<T>>> HashMap; っていう感じのことはできそうではあるけどな。 665 名前：デフォルトの名無しさん mailto:sage [2019/10/02(水) 07:55:46.84 ID:YpMEiTCH.net] # 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 666 名前：デフォルトの名無しさん [2019/10/02(水) 12:25:17.61 ID:56vpBHGI.net] それは実装ではない。 667 名前：デフォルトの名無しさん mailto:sage [2019/10/02(水) 13:20:24.28 ID:+RotAwEg.net] >>648 このスレの住民のレベルに合っていてかつプログラマにとって必要不可欠な知識なので良いお題 668 名前：デフォルトの名無しさん mailto:sage [2019/10/02(水) 13:31:58.92 ID:vkK/4cs1.net] 実装って何を言ってるのかな？　コンパイラを作れってこと？　それとも基本関数を使ってそれらしいハッシュマップを作れという事？ 実装されている言語にさらに実装しろって意味不明。 669 名前：デフォルトの名無しさん mailto:sage [2019/10/02(水) 14:40:31.57 ID:+RotAwEg.net] ハッシュマップのアルゴリズム部分を自分で書けってことだろ アスペかよ 670 名前：デフォルトの名無しさん mailto:sage [2019/10/02(水) 14:58:20.33 ID:h9bkbZIX.net] 俺健常者だけど言ってる事正直よくわからんのだが 671 名前：デフォルトの名無しさん mailto:sage [2019/10/02(水) 15:31:03.84 ID:vkK/4cs1.net] 言わんとすることは何となくわかるんだが、多分ジェネリックが有る言語なら比較的考えやす� 672 名前：｢がジェネリックがない言語ではどう解釈するのかな。 [] [ここ壊れてます] 673 名前：蟻人間 mailto:sage [2019/10/02(水) 16:28:04.58 ID:Q9AIQiw1.net] お題：文字列操作のUndo/Redoを実装せよ。 文字列Sに対し (a) 文字位置indexからcount文字を別の文字列strで置き換える(replace)、 (b) 文字位置indexからcount文字を削除する(erase)、 (c) 文字位置indexに別の文字列strを挿入する(insert) という操作が連続的に可能であるとき、これらの操作に対するUndo/Redo（元に戻す/やり直す）を実装せよ。 ただし操作対象の文字列Sが長いときにメモリーを無駄にする実装にしてはいけない。 解答例： Undo/Redo framework for C++11 https://github.com/katahiromz/UndoSystem 674 名前：デフォルトの名無しさん mailto:sage [2019/10/02(水) 19:48:30.85 ID:By3xLmz3.net] ここの回答に使われる言語でハッシュマップ自分で実装せなあかん言語なんて少ないと思うが？ 675 名前：デフォルトの名無しさん mailto:sage [2019/10/02(水) 20:14:50.09 ID:uTylPaUx.net] ジェネリックなハッシュ関数の書き方が解らない。Orz 676 名前：デフォルトの名無しさん [2019/10/02(水) 20:29:20.39 ID:OIQKJ8Sl.net] シリアライズ、文字列化できてればCRC32でも一応ハッシュとして使える 677 名前：デフォルトの名無しさん mailto:sage [2019/10/02(水) 20:36:10.78 ID:uTylPaUx.net] >>661 小規模な問題解くのにミドルウェアいるんすな。辛い。 678 名前：デフォルトの名無しさん [2019/10/02(水) 20:49:55.37 ID:OIQKJ8Sl.net] そんなに汎用的、一般的なのを作る必要もないとおもうので 入力は文字列限定で動くやつ作ればクリアでは? 679 名前：デフォルトの名無しさん mailto:sage [2019/10/02(水) 21:00:41.50 ID:uTylPaUx.net] >>663 解った文字列やってみるわ。 680 名前：デフォルトの名無しさん mailto:sage [2019/10/02(水) 21:46:18.99 ID:uTylPaUx.net] >>648 coliru.stacked-crooked.com/a/7a42d9f1346c0049 C++。コンストラクタ起動式って17からやったっけ？ とりあえず作ってみたが・・・。 今、調子悪くて困ってる。 681 名前：デフォルトの名無しさん mailto:sage [2019/10/02(水) 21:48:13.96 ID:uTylPaUx.net] ハッシュ関数は適当。昔2chで見たのパクった。 HMのサイズ7にしておけばよかった。素数だからな。 682 名前：デフォルトの名無しさん mailto:sage [2019/10/02(水) 21:59:13.49 ID:bMxkjAXQ.net] お題: 簡易的なXMLをパースして構造を出力せよ in < <div><p><a></a></p></div><span><p></p></span> out > div __p ____a span __p 683 名前：デフォルトの名無しさん mailto:sage [2019/10/02(水) 22:48:58.72 ID:2Yo9PRwa.net] >>661 それかsumでいいやん、conflictしたらリスト管理で一丁上がり 684 名前：デフォルトの名無しさん mailto:sage [2019/10/02(水) 22:50:04.70 ID:XyzGBTdX.net] >>667 C++ https://ideone.com/M5atpv 685 名前：デフォルトの名無しさん mailto:sage [2019/10/03(木) 08:18:12.13 ID:z1c5xmGq.net] >>629 > というか、技量の程度が疑わてしまうのでお勧めしない 人の心配する前に自分の出題技量の程度を心配しなよ… 686 名前：デフォルトの名無しさん mailto:sage [2019/10/04(金) 01:29:13.30 ID:rw3arA+q.net] いいじゃねーかそんなこまけーことどうでも ケツの穴のちいせぇやろうだな。 何ならおじさんが広げてやろうかｗ 687 名前：デフォルトの名無しさん mailto:sage [2019/10/04(金) 01:59:12.37 ID:0BDgocBX.net] アッー！ 688 名前：デフォルトの名無しさん mailto:sage [2019/10/04(金) 04:07:06.69 ID:/Ff7i02R.net] >>620 https://ideone.com/UUNc5X C++。多分できた。 バグの原因は変数がマイナスを扱えていないことだった。 689 名前：デフォルトの名無しさん mailto:sage [2019/10/04(金) 14:06:50.47 ID:IeSaX57c.net] >>629 の出題意図を読み取れば、 記憶域を余り自由に使えない環境で 如何に工夫して目的が達成できるか ということではないかと その意味では、Power-shellは少し 強力杉だから除外すべきだったかも 知れないが（遅いから使われる ことは少ないだろけどスクリプト言 語処理系であるとも言えなくもないし） 690 名前：デフォルトの名無しさん mailto:sage [2019/10/04(金) 14:58:22.06 ID:BEYT4ZYw.net] シェルスクリプトって� 691 名前：ｳ々プログラミング言語じゃないからな。　あくまでも補助的なもの。 それでプログラミングすると言うのは本末転倒。　間違った方向性でしかない。 貧弱な環境でも使えるものと言うなら、BASIC や、Python の組込型がコンパクト。　PIC や子供のおもちゃにすら入ってる。　百円のチップにすら入ってるからな。 コンパイラでも良いのならCが最もシンプル。 [] [ここ壊れてます] 692 名前：デフォルトの名無しさん mailto:sage [2019/10/04(金) 17:29:00.38 ID:uYF9K7e8.net] またプログラム言語のオレオレ定義かよw 693 名前：デフォルトの名無しさん mailto:sage [2019/10/04(金) 17:37:04.67 ID:ordI0mDW.net] それ以上に謎の空白が気になる 694 名前：675 mailto:sage [2019/10/04(金) 18:12:04.35 ID:aN85/uHn.net] わりいわりい、iOS13になって、日本語の途中の空白は全て全角になったから、なんか間抜けな感じになったな。 良いか悪いかわからんが慣れてくれ。 695 名前：デフォルトの名無しさん [2019/10/04(金) 18:43:32.54 ID:hcjI0QEW.net] 。の後にスペースをひとつ入れているようだ 696 名前：デフォルトの名無しさん [2019/10/04(金) 18:44:20.57 ID:hcjI0QEW.net] スペース入れなきゃいいのでは？ 697 名前：デフォルトの名無しさん [2019/10/04(金) 19:36:54.12 ID:bnA3YiVJ.net] 空白なのは頭ん中だけにしとけｗｗｗ 698 名前：デフォルトの名無しさん mailto:sage [2019/10/05(土) 00:51:48.39 ID:pioYL/z5.net] 空っぽのほうが夢詰め込めるぞ 699 名前：デフォルトの名無しさん mailto:sage [2019/10/05(土) 01:36:41.50 ID:iITy9V8b.net] 空っぽかと思ったら、実は分厚い頭蓋骨が詰まった中心に ﾎﾟﾂﾝとノミのような脳みそがある、石頭だったでごじゃる 700 名前：637 mailto:sage [2019/10/05(土) 08:57:02.16 ID:4K3q4mZL.net] >>629 コマンドプロンプト 高速化版 https://ideone.com/bJ1lnD >>642の6倍くらい速くなった…うちの環境だと>>646よりはやくなったどーｗ 701 名前：デフォルトの名無しさん mailto:sage [2019/10/05(土) 15:19:46.96 ID:6iFRuM3K.net] >>629 bash 4.3.42(3) n=10000 eval "a=('' '' {2..$n})" for i in ${a[@]}; do 　if [ ${a[$i]} ]; then 　　echo $i 　　for ((j=2*$i; j<=$n; j+=$i)); do 　　　 unset a[$j] 　　done 　fi done 実行結果 $ bash 15_629_prime.sh 2 3 5 7 … 9941 9949 9967 9973 702 名前：デフォルトの名無しさん mailto:sage [2019/10/05(土) 15:21:16.04 ID:6iFRuM3K.net] >>685 実行結果、貼りそこなって変な改行は入ってた…orz 訂正 実行結果 $ bash 15_629_prime.sh 2 3 5 7 … 9941 9949 9967 9973 703 名前：デフォルトの名無しさん mailto:sage [2019/10/05(土) 15:31:29.76 ID:6iFRuM3K.net] >>686 いや、for ((j=$i*$i; j<=$n; j+=$i)); do だよ間違えた、25%早くなる n=10000 eval "a=('' '' {2..$n})" for i in ${a[@]}; do 　if [[ ${a[$i]} ]]; then 　　echo $i 　　for ((j=$i*$i; j<=$n; j+=$i)); do 　　　 unset a[$j] 　　done 　fi done 704 名前：デフォルトの名無しさん mailto:sage [2019/10/05(土) 16:09:49.40 ID:6iFRuM3K.net] >>629 >>687の実行結果 https://ideone.com/3RCc5k 705 名前：デフォルトの名無しさん mailto:sage [2019/10/05(土) 17:13:25.01 ID:6iFRuM3K.net] >>687 eval "a=('' '' {2..$n})" for i in ${a[@]}; do 　if [[ ${a[$i]} ]]; then この書き方、a[]の最初の0,1番目の要素に空文字を設定しておいて それを配列のインデックスとして使い、あまりいい書き方じゃないと気がついた 動いているんで、あせって直さないでおくけど ｺﾞﾒﾝね〜 706 名前：デフォルトの名無しさん [2019/10/05(土) 20:48:42.33 ID:oVPf95FK.net] お題: https://regexcrossword.com/playerpuzzles/59e565c95008d のようなHEXマスの正規表現クロスワードパズルのソルバーを実装せよ。 n=1でいいので処理時間も報告せよ。 707 名前：デフォルトの名無しさん mailto:sage [2019/10/05(土) 21:56:27.55 ID:Lt/DoxvR.net] >>690 辞書データぷりーず 708 名前：デフォルトの名無しさん mailto:sage [2019/10/05(土) 22:00:12.06 ID:4K3q4mZL.net] このソルバーに辞書データっているか？ 709 名前：デフォルトの名無しさん mailto:sage [2019/10/05(土) 22:27:44.93 ID:NXndjuW4.net] >>691 出題者ではないが、まず、完成図面を作って、そこ� 710 名前：ｩら問題を作ったほうが早そうだ。 ヘックスの扱い方わからねーんだ俺。 昔聞いたことあるけど、そのうち・・・と思ってたら曖昧になってしまった。 [] [ここ壊れてます] 711 名前：デフォルトの名無しさん mailto:sage [2019/10/05(土) 23:11:05.60 ID:6iFRuM3K.net] >>667 Perl5 $in = '<div><p><a></a></p></div><span><p></p></span>'; use XML::Simple; $xml = new XML::Simple->XMLin('<document>'.$in.'</document>'); use Data::Dumper; $Data::Dumper::Terse = 1; print Dumper $xml; 実行結果 ~ $ perl 15_667_Simple.pl { 　'div' => { 　　'p' => { 　　　'a' => {} 　　} 　}, 　'span' => { 　　'p' => {} 　} } 712 名前：デフォルトの名無しさん mailto:sage [2019/10/06(日) 00:03:34.99 ID:tnh9RMO0.net] とりあえず>>690を手動で解くのに2時間かかったｗ お題は思いついたらやる 713 名前：デフォルトの名無しさん [2019/10/06(日) 05:37:10.28 ID:oevqPO9x.net] お題: L形図形を表示する [入力] 1 [出力] a bc [入力] 2 [出力] ba ca abcc bcab [入力] 3 [出力] bacb cbaa acba bcca bcabcccb cabcabca abccaabc bcabbcab 714 名前：デフォルトの名無しさん [2019/10/06(日) 05:55:18.89 ID:vrVeYjyl.net] >>696 最後のやつが4ではなく3? それと文字はabc使っているが、どういう規則で並べるのか? 715 名前：デフォルトの名無しさん mailto:sage [2019/10/06(日) 05:58:05.67 ID:lJB/egMg.net] カオス 716 名前：675 mailto:sage [2019/10/06(日) 09:02:51.40 ID:O+kT1S2P.net] 最後は4だろ 717 名前：デフォルトの名無しさん mailto:sage [2019/10/06(日) 09:24:22.51 ID:+7MXB6fE.net] >>697 おそらく1のパターンのL字を4つで向きを変えてくっつけて大きなL字にしたものが2のパターン。2を4つ使って同じことをやって3を作ってるということだと思う。愚直に再帰的にやれば簡単そう。 718 名前：デフォルトの名無しさん mailto:sage [2019/10/06(日) 10:20:09.68 ID:tnh9RMO0.net] >>696 入力3の出力、一か所間違えとるよな？ｗ 719 名前：デフォルトの名無しさん mailto:sage [2019/10/06(日) 10:43:36.50 ID:tnh9RMO0.net] >>696 Java https://ideone.com/31a8Ky 720 名前：デフォルトの名無しさん mailto:sage [2019/10/06(日) 17:34:25.93 ID:kRqXlweR.net] お題: プログラム実行後にプログラム自身を削除するプログラムを作れ 実行内容は以下のメッセージを出力する 「このプログラムが起動するのは一度きりである。実行ののち、消去される。」 721 名前：デフォルトの名無しさん mailto:sage [2019/10/06(日) 17:53:36.15 ID:VH97tuta.net] >>703 echo このプログラムが起動するのは一度きりである。実行ののち、消去される。 rm -rf / 722 名前：675 mailto:sage [2019/10/06(日) 18:05:59.73 ID:m+CayYCA.net] >>703 そんな問題は却下。　 どんな問題でもファイルを削除する様な問題は出してはいけない。 ど素人もいるんだからそんな問題は出すべきではない。 723 名前：デフォルトの名無しさん mailto:sage [2019/10/06(日) 20:06:09.43 ID:+aq+gJyQ.net] >>704 大抵の環境でコマンド通らないんじゃないかそれ 724 名前：デフォルトの名無しさん mailto:sage [2019/10/06(日) 20:12:57.33 ID:XBuBF2Rc.net] #!/bin/sh echo このプログラムが起動するのは一度きりである。実行ののち、消去される。 \rm -f $0 725 名前：デフォルトの名無しさん mailto:sage [2019/10/06(日) 20:16:32.32 ID:lJB/egMg.net] lol $0 じゃなくて / にしてるのかwww 726 名前：デフォルトの名無しさん mailto:sage [2019/10/06(日) 20:19:37.81 ID:bPt7YQEe.net] >>707みて、できなくはないが、やりたくない気分になった。 www.t-net.ne.jp/~cyfis/c/stdlib/system.html 上記を使えば、PGからコマンドラインに干渉できる。が！ねぇ・・・。 場所もargc[0]に書いてあるんだけどねぇ・・・。 WA. 727 名前：デフォルトの名無しさん [2019/10/06(日) 21:19:08.41 ID:QZjIPE+j.net] シェルスクリプト総合 その31 https://mevius.5ch.net/test/read.cgi/tech/1565446670/ 728 名前：デフォルトの名無しさん [2019/10/07(月) 13:22:48.77 ID:lSqRbxbA.net] >>703 Linux等のUNIX系OS at now +1 min などとやって at job が一分後に動くようにして次の1行を入力してから Ctrl+D で終了させる。 echo 'このプログラムが起動するのは一度きりである。実行ののち、消去される。' その後1分待つと上記文言の出力後 at job は削除される。 ただし通常の出力先である標準出力はないことになっているのでatによって拾われてメールでエラーメッセージと共に送られてくる。 それを見たい場合はmailコマンドで送られてきたメールの内容を見る等する。 729 名前：蟻人間 mailto:sage [2019/10/07(月) 18:38:53.78 ID:tyyduGK2.net] >>703 C++/Win32 #include <windows.h> #include <stdlib.h> #include <stdio.h> int main(int argc, char **argv) { printf("このプログラムが起動するのは一度きりである。実行ののち、消去される。\n"); FILE *fp = fopen("delete-me.bat", "w"); fprintf(fp, "@echo off\n"); fprintf(fp, ":retry\n"); fprintf(fp, "del \"%s\"\n", argv[0]); fprintf(fp, "if exist \"%s\" goto retry\n", argv[0]); fprintf(fp, "del delete-me.bat\n"); fclose(fp); ShellExecuteA(NULL, NULL, "cmd", "/c delete-me.bat", NULL, SW_HIDE); return 0; } 730 名前：デフォルトの名無しさん mailto:sage [2019/10/07(月) 22:21:05.16 ID:aU+ghkHH.net] >>703 Perl5 print "このプログラムが起動するのは一度きりである。実行ののち、消去される。\n"; unlink $0; 実行結果 ~ $ perl 15_703.pl このプログラムが起動するのは一度きりである。実行ののち、消去される。 ~ $ ls -o 15_703.pl /usr/bin/ls: cannot access 15_703.pl: No such file or directory 嫌なプログラミンッグだな、一歩書き間違がや大参事。 こういうお題はご遠慮願いたいものだ… 731 名前：デフォルトの名無しさん mailto:sage [2019/10/07(月) 22:32:50.62 ID:aU+ghkHH.net] すまぬ >>713 は題意とは違うな。 プログラムの実行が終了してから削除されるわけか… >>703 bash (sleep 4; rm -f $0)& echo このプログラムが起動するのは一度きりである。実行ののち、消去される。 実行結果 $ bash 15_703.sh … 数秒後 $ ls -o 15_703.sh ls: 15_703.sh にアクセスできません: No such file or directory 732 名前：デフォルトの名無しさん mailto:sage [2019/10/07(月) 22:35:14.10 ID:aU+ghkHH.net] >>714 実行結果貼りそこなったorz $ bash 15_703.sh このプログラムが起動するのは一度きりである。実行ののち、消去される。 $ ls -o 15_703.sh -rw-r--r-- 1 ******** 98 10月 7 22:29 15_703.sh … 数秒後 $ ls -o 15_703.sh ls: 15_703.sh にアクセスできません: No such file or directory 733 名前：デフォルトの名無しさん mailto:sage [2019/10/07(月) 23:18:10.62 ID:Hq5Oz5C1.net] MSX BASIC 10 print"ｵﾊﾖｳﾌｪﾙﾍﾟｽｸﾝ,ｺﾝｶｲﾉｷﾐﾉﾆﾝﾑﾀﾞｶﾞｲｶﾘｬｸﾅｵｺﾉﾃｰﾌﾟﾊｼﾞﾄﾞｳﾃｷﾆｼｮｳﾒﾂｽﾙ" 20 new 734 名前：デフォルトの名無しさん mailto:sage [2019/10/07(月) 23:48:42.06 ID:ti3U/Qjr.net] >>703 https://ideone.com/B5bVTK C++。自分ができるのはここま・・・で・・・だ。。。 うぼぁあああああああ。 735 名前：蟻人間 mailto:sage [2019/10/07(月) 23:54:31.61 ID:9cpaLYwd.net] 実行時にexeにロックがかかるから、実行終了を待つsystem関数では消せないんだ、これが。 736 名前：蟻人間 mailto:sage [2019/10/08(火) 00:32:11.48 ID:LPLIE15X.net] 拡張子.batはコマンドプロンプトのバッチファイルを表す。 737 名前：デフォルトの名無しさん mailto:sage [2019/10/08(火) 01:09:42.27 ID:LQA6uDl1.net] https://ideone.com/ABzMBS C++&. 738 名前：デフォルトの名無しさん mailto:sage [2019/10/08(火) 01:10:33.04 ID:LQA6uDl1.net] >>720 C++&Windows. おかしなキーコンビネーションで投稿してしまったが、それは置いといて。 結構な沼だったわ。 739 名前：デフォルトの名無しさん mailto:sage [2019/10/08(火) 01:14:29.28 ID:LQA6uDl1.net] あ、数秒後にタスクを実行したかったが、分単位にしかならないようだ。 740 名前：デフォルトの名無しさん mailto:sage [2019/10/08(火) 01:31:36.46 ID:YlPtBjRn.net] どM乙。 741 名前：デフォルトの名無しさん mailto:sage [2019/10/08(火) 02:43:45.63 ID:LQA6uDl1.net] https://ideone.com/s1OxbV C++&Windows.　結局バッチ作ってバッチを削除するようにした。 742 名前：デフォルトの名無しさん mailto:sage [2019/10/08(火) 02:45:57.47 ID:LQA6uDl1.net] C++で書いている意味があまりないなぁ。 頭がこんがらがってくるわ。 743 名前：デフォルトの名無しさん mailto:sage [2019/10/08(火) 03:07:50.37 ID:LQA6uDl1.net] タスクスケジューラには一個のタスクしか持たせることができません。 タスクスケジューラの健康のために削除タスクと削除タスクをkillするタスクを入れたという欲が出ました。 さて、どうすればよかったのでしょうか・・・。 744 名前：デフォルトの名無しさん mailto:sage [2019/10/08(火) 03:25:53.77 ID:LQA6uDl1.net] https://ideone.com/8DBn1u チョットシンプルになった。 けど、ただスケジュールして 745 名前：バッチファイル作るだけになっちゃった・・・。Orz ううううううぼぉぉぉおあぁぁぁあああ。。。 [] [ここ壊れてます] 746 名前：デフォルトの名無しさん mailto:sage [2019/10/08(火) 18:18:17.33 ID:9WsdIwSr.net] おしい 747 名前：デフォルトの名無しさん mailto:sage [2019/10/08(火) 22:43:05.75 ID:8UaWwWzr.net] 「インターネットには戦力外通告とかが無いから頭の悪い人がいつまでも打席に立って三振し続ける」 748 名前：デフォルトの名無しさん mailto:sage [2019/10/09(水) 01:57:50.31 ID:vwSn6CxZ.net] お題: TCPデータグラムが流れてくるのでFINフラグが立っていたら「切断します」と出力せよ 749 名前：デフォルトの名無しさん mailto:sage [2019/10/10(木) 00:51:51.46 ID:P0sO6qGI.net] >>729 IT分野の実社会では、単価にそれほど差がないのをいいことに パーフォマンダウンによる差額で利ざやを稼ごうという 商売が横行して、結果としてＩＴ分野が廃れている だから。こまけーこたー いいんだよ 750 名前：デフォルトの名無しさん mailto:sage [2019/10/10(木) 19:10:08.63 ID:Tobvh7XK.net] >>703 Windows10で、普通に↓で消せた。 https://ideone.com/j1Glc5 751 名前：デフォルトの名無しさん [2019/10/10(木) 19:12:56.39 ID:AtKsFWU7.net] >>690 解けた人いない？ 752 名前：デフォルトの名無しさん mailto:sage [2019/10/10(木) 19:14:39.08 ID:0pYFH17C.net] >>733 手では解いた 総当たり以外に思い浮かばん 753 名前：デフォルトの名無しさん [2019/10/10(木) 20:46:59.80 ID:78OW/ryc.net] いやお題はパズルを解けじゃなくてパズルのソルバーの実装だからｗｗｗ 754 名前：蟻人間 mailto:sage [2019/10/10(木) 21:25:17.60 ID:VnnXeZwz.net] 古典的な人工知能の探索アルゴリズムを研究すれば、この程度のソルバーは作れる。 755 名前：デフォルトの名無しさん [2019/10/10(木) 21:48:13.15 ID:PZRS9XbT.net] つまり研究しないと作れないってことか。 756 名前：デフォルトの名無しさん mailto:sage [2019/10/10(木) 23:09:22.63 ID:gSAdFsTs.net] >>735 だから総当たり以外思い浮かばなかったって言ってるだろ 757 名前：デフォルトの名無しさん mailto:sage [2019/10/11(金) 00:08:49.38 ID:1+VMU1fD.net] >>690 ここの↓にすごい悩んだ。 https://regexcrossword.com/playerpuzzles/5d705a4fbf679 Ambiguousの意味を知らずに・・・・・ 758 名前：デフォルトの名無しさん [2019/10/11(金) 01:56:11.32 ID:H4pwkZny.net] いや総当たりでも出来たなら貼ってくれや。 別に総当たりでも恥ずかしくもなんともないと思うが… 759 名前：デフォルトの名無しさん mailto:sage [2019/10/11(金) 08:53:45.55 ID:MNDgolhS.net] 貼りたくねえ 総当たり出できたものを他人のために見せる必要性もないし 760 名前：デフォルトの名無しさん [2019/10/11(金) 09:03:11.12 ID:Cra8acMD.net] できた！ みせて。 見せたくない！ うーん… 761 名前：デフォルトの名無しさん mailto:sage [2019/10/11(金) 09:08:21.86 ID:pcktkYLP.net] ；フェルマーの最終定理 762 名前：デフォルトの名無しさん mailto:sage [2019/10/11(金) 21:55:54.61 ID:zKaC3xv0.net] お題：0〜9999の整数について数字和を求め、数字和の頻度を集計せよ ocaml https://ideone.com/AjcGgp c https://ideone.com/38nYGS octave https://ideone.com/g7FrVu ruby https://ideone.com/YyFXWh 763 名前： mailto:sage [2019/10/11(Fri) 22:38:20 ID:hqLUiXPo.net] >>744 https://ideone.com/pEdgoA C++。最初サンプルと違う答えになってビビったけど、俺のコードがバグっていた・・・。Orz 764 名前：デフォルトの名無しさん mailto:sage [2019/10/11(金) 22:44:43.53 ID:poa9EnRO.net] すんごく二項定理っぽい数字の並び方をしてる 765 名前： mailto:sage [2019/10/11(Fri) 23:16:02 ID:GtQsvrI7.net] >>744 Java https://ideone.com/U99ZM3 プログラミングのお題スレ Part9 [無断転載禁止](c)2ch.net https://mevius.5ch.net/test/read.cgi/tech/1480579110/134-136 昔書いたこれ(上の136)を流用 766 名前：デフォルトの名無しさん mailto:sage [2019/10/11(金) 23:53:28.54 ID:jSXBX1w1.net] >>744 これって0~9999じゃなくて任意の2つの数字入力させてとかだと愚直に計算するしかない？ 767 名前：デフォルトの名無しさん mailto:sage [2019/10/12(土) 00:32:58.46 ID:Cxdg6QkN.net] >>748 うまくやれば出来そうだがまだ思いつかん 768 名前： mailto:sage [2019/10/12(Sat) 11:04:47 ID:ewC1g8Dg.net] >>744 Pharo/Squeak Smalltalk | bag | bag := Bag new. (0 to: 9) asDigitsToPower: 4 do: [:digits | bag add: digits sum]. ^ bag sortedElements "=> {0->1 . 1->4 . 2->10 . 3->20 . 4->35 . 5->56 . 6->84 . 7->120 . 8->165 . 9->220 . 10->282 . 11->348 . 12->415 . 13->480 . 14->540 . 15->592 . 16->633 . 17->660 . 18->670 . 19->660 . 20->633 . 21->592 . 22->540 . 23->480 . 24->415 . 25->348 . 26->282 . 27->220 . 28->165 . 29->120 . 30->84 . 31->56 . 32->35 . 33->20 . 34->10 . 35->4 . 36->1} " 769 名前： mailto:sage [2019/10/12(Sat) 11:07:06 ID:ewC1g8Dg.net] いかん。すまん。出力が安価になってしまった。 770 名前：デフォルトの名無しさん mailto:sage [2019/10/12(土) 11:31:04.69 ID:zNYc1jm8.net] lol 771 名前：デフォルトの名無しさん mailto:sage [2019/10/12(土) 11:52:28.41 ID:msiQ/n9S.net] >>750 @Mathematica Range[0, 9999] // 　Map[IntegerDigits, #] & // 　Map[Total, #] & // 　Tally {{0, 1}, {1, 4}, {2, 10}, {3, 20}, {4, 35}, {5, 56}, {6, 84}, 　{7, 120}, {8, 165}, {9, 220}, {10, 282}, {11, 348}, {12, 415}, 　{13, 480}, {14, 540}, {15, 592}, {16, 633}, {17, 660}, {18, 670}, 　{19, 660}, {20, 633}, {21, 592}, {22, 540}, {23, 480}, {24, 415}, 　{25, 348}, {26, 282}, {27, 220}, {28, 165}, {29, 120}, {30, 84}, 　{31, 56}, {32, 35}, {33, 20}, {34, 10}, {35, 4}, {36, 1}} 772 名前： mailto:sage [2019/10/12(Sat) 13:09:50 ID:Nq/Z/R6A.net] >>744 perl use List::Util qw(sum); $h{sum(split"")}++ for(0..9999); map{print"$_ $h{$_}\n"}sort{$a<=>$b}keys%h; 773 名前：デフォルトの名無しさん mailto:sage [2019/10/12(土) 13:25:43.66 ID:VvSWBOR5.net] >>748　言われた通りの改定問題 X,Yが与えられる。 X以上Y以下の連続する整数で、数字和の頻度。 もっとも大きい頻度はいくつか。 制約 0 <= X < Y <= 5000億 1) 0 9999 --> 670 　　合計18が、670ある。>>744の入力値 2) 1234567 9876543 --> 459034 3) 1 500000000000 --> 20406732610 4) 12345678909 498765432123 --> 20000965162 ※Y-Xが MAX5000億なので愚直(力技)はきつい。 ※頻度表は"桁数*9"程度あるので、最高値出力のみに変更 774 名前： mailto:sage [2019/10/12(Sat) 17:47:36 ID:Nq/Z/R6A.net] 頻度の階差を取った 0~9999だと三角数 0~99999だと三角錐数 になる 775 名前： mailto:sage [2019/10/12(Sat) 18:44:18 ID:I5ZWyiFj.net] >>740 >>741じゃねーけど総当りもどきで解いてみた https://ideone.com/nZqnpN https://i.imgur.com/3esPPr0.jpg さすがにフルに総当りするととても終わりそうにないのでちょっとズルして各マスに入る文字を正規表現に使われている"ABCDEFGHMNORXYZ"に限定した (ソースの217行目） Celeron 1005M 1.9GHzのしょぼいノートPCで1,386秒（23分）程度だった 776 名前：デフォルトの名無しさん [2019/10/12(土) 19:36:00.00 ID:vBnCHMzu.net] >>757 すんごい 実行時間もすんごい… 777 名前： mailto:sage [2019/10/12(Sat) 19:59:28 ID:hTj/2FIT.net] >>754 Perl5、計算量を減らしたｱﾙｺﾞﾘｽﾞﾑ sub f { 　@s = @_; 　for $l (1..9) { 　　$s[$_ + $l] += $_[$_] for 0..$#_; 　} @s } @b = f f f f 1; print "$_,$b[$_] " for 0..$#b; 実行結果 ~ $ perl 15_774_digit_sum_1.pl 0,1 1,4 2,10 3,20 4,35 5,56 6,84 7,120 8,165 9,220 10,282 11,348 12,415 13,480 14,540 15,592 16,633 17,660 18,670 19,660 20,633 21,592 22,540 23,480 24,415 25,348 26,282 27,220 28,165 29,120 30,84 31,56 32,35 33,20 34,10 35,4 36,1 もっと減らしたｱﾙｺﾞﾘｽﾞﾑを考えたい気もするけど、 これで一回投稿 778 名前： mailto:sage [2019/10/12(Sat) 20:06:37 ID:hTj/2FIT.net] >>759 アンカーしくった、>>744 だった…ｺﾞﾒﾝね 779 名前： mailto:sage [2019/10/12(Sat) 20:24:43 ID:1DgZSjUc.net] 白状すると単にrubyで書きたいだけのお題だったんだけど （Array#repeated_permutationを使いたいだけ） みんな色々面白いこと考えるもんだね 780 名前：蟻人間 mailto:sage [2019/10/13(日) 14:56:19.23 ID:w8oKE2gz.net] お題: ストップウォッチを作れ。 最初にEnterキーを押すとスタート。 次にEnterキーを押すとストップ。 経過した時間を表示する。 781 名前： mailto:sage [2019/10/13(Sun) 15:28:31 ID:XFDKT5kN.net] >>744 Python https://ideone.com/v1nrdn ―――- import pandas as pd array = [] for i in range(0,10000): array.append(sum(list(map(int,str(i))))) srv =pd.Series(array).value_counts().sort_index() print(srv) 782 名前： mailto:sage [2019/10/13(Sun) 17:38:11 ID:qg/TNtNV.net] >>762 https://ideone.com/B1ShSB C++。ストップウオッチ自体は大分前にC#をパクって作ってあったありあわせだ。 783 名前：デフォルトの名無しさん [2019/10/13(Sun) 21:07:01 ID:w512EwKm.net] >>755 C ideone.com/qdx79j 一応Y = LLONG_MAXまでできる、あってるか知らんが ただのスパゲッティになってしもた 784 名前：デフォルトの名無しさん [2019/10/14(Mon) 01:02:32 ID:Ws6GlsT+.net] >>744 Kotlin https://paiza.io/projects/ci9PwSmxQWwMM4iWRolsyw 785 名前：デフォルトの名無しさん [2019/10/14(月) 02:00:45.97 ID:Ws6GlsT+.net] >>762 Kotlin まずは仕様通りのもの。 fun main() { 　val br = System.`in`.bufferedReader() 　br.readLine() 　val t0 = System.nanoTime() 　br.readLine() 　val t1 = System.nanoTime() 　val t = t1 - t0 　println("%d.%09d".format(t / 1000000000L, t % 1000000000)) } しかしこれでは途中経過が出てこなくて� 786 名前：ﾂまらない。ということでこれ。 fun main() { 　val br = System.`in`.bufferedReader() 　br.readLine() 　val t0 = System.nanoTime() 　while (true) { 　　if (br.ready()) { 　　　val c = br.read() 　　　if (c == '\n'.toInt()) 　　　　break 　　} 　　val t1 = System.nanoTime() 　　val t = t1 - t0 　　print("%d.%09d\r".format(t / 1000000000L, t % 1000000000)) 　} 　println() } [] [ここ壊れてます] 787 名前：デフォルトの名無しさん mailto:sage [2019/10/14(月) 07:53:19.70 ID:kizbcx2j.net] お題 2^511-1の真約数をひとつ求める https://mainichi.jp/articles/20191013/k00/00m/040/245000c 788 名前：デフォルトの名無しさん mailto:sage [2019/10/14(月) 08:39:26.54 ID:6P2fe30E.net] >>768 そのニュース関係なくね？ 789 名前：デフォルトの名無しさん mailto:sage [2019/10/14(月) 08:53:29.04 ID:z/6QW2Tk.net] 実は素数でした とかいう形？ 790 名前：デフォルトの名無しさん mailto:sage [2019/10/14(月) 09:34:48.23 ID:6P2fe30E.net] >>770 511 = 7 * 73 だから 2^511 - 1 は素数ではない 791 名前： mailto:sage [2019/10/14(Mon) 09:38:05 ID:6P2fe30E.net] というか2^73-1で割り切れる 792 名前： mailto:sage [2019/10/14(Mon) 15:57:50 ID:eo8SsHS2.net] >>771-772 それは 2^511-1 は 2^7-1 でも割り切れることを主張しているのですか？ 793 名前：デフォルトの名無しさん mailto:sage [2019/10/14(月) 16:21:24.99 ID:CCU+9UFO.net] >>773 それ以外にどう読めるんだよアホか 794 名前：デフォルトの名無しさん mailto:sage [2019/10/14(月) 20:26:24.40 ID:ead7I0ur.net] >>773 2^511-1 = 2進数で1が511個 = 2進数で1111111が73個並んだ形 2^511-1を2^7-1で割ったら2進数で0000001が73個並んだ形 ってことじゃろ 795 名前：蟻人間 mailto:sage [2019/10/14(月) 20:53:54.75 ID:O0QR+doO.net] プログラミングから一気に整数論へダイブ 796 名前： mailto:sage [2019/10/14(Mon) 21:23:44 ID:eo8SsHS2.net] >>774-775 2^{ab}-1 = (2^a-1)(1 + 2a + 2^2a + 2^3a + ... + 2^(b-1)a) と因数分解できるんですね… thx a lot. 797 名前： mailto:sage [2019/10/14(Mon) 22:14:18 ID:hXRtCJE+.net] 必死に5時間検索しまくったのか・・・ 798 名前： mailto:sage [2019/10/15(Tue) 01:03:22 ID:LXkkA+L3.net] もう何処かのチャレンジ問題を議論するスレでも良いのでは？ 799 名前：デフォルトの名無しさん mailto:sage [2019/10/15(火) 01:28:25.21 ID:4KtvCQDg.net] お題: お題スレの過去スレからお題をランダムに選択し出力するプログラムを作成せよ 800 名前： mailto:sage [2019/10/15(Tue) 15:09:04 ID:WmSwVXlW.net] QZの醜態を全部晒すプログラムを作成せよ 801 名前： mailto:sage [2019/10/15(Tue) 15:25:10 ID:YTs2ZIZB.net] >>781 w3m https://mevius.5ch.net/test/read.cgi/tech/1564310397/ | ~/bin/select_word_and_ancher.pl QZaw55cn4c https://pastebin.com/MPWNXYG5 https://i.imgur.com/fJi3S6W.png 802 名前：デフォルトの名無しさん mailto:sage [2019/10/15(火) 16:06:38.33 ID:Ogt2CAsV.net] >>782 くそわろた 803 名前：デフォルトの名無しさん mailto:sage [2019/10/16(水) 01:16:39.26 ID:bAHdrVWX.net] >>755 python ideone.com/caxm7I ほぼ典型っぽいので、桁DPで解く。 遊びで （X,Y)＝(0, 10^100）を実行してみる 804 名前：デフォルトの名無しさん mailto:sage [2019/10/16(水) 01:58:29.60 ID:OEkTBx4G.net] あらら仕事にかまけてほったらかしていたら 先こされちゃったな感 805 名前：デフォルトの名無しさん mailto:sage [2019/10/16(水) 02:04:49.25 ID:5tDJE0Z9.net] QZは自分がキチガイということは全然自覚してないんだろうな 806 名前：デフォルトの名無しさん mailto:sage [2019/10/16(水) 08:36:01.98 ID:Mi1dGaVf.net] >>786 自覚はあるらしいよ。 807 名前： mailto:sage [2019/10/16(Wed) 16:11:48 ID:EcYqpM5S.net] ＱＺが自身をキチガイだと認識しているのならば、ＱＺはキチガイという言葉の正しい意味を理解していない 808 名前：デフォルトの名無しさん mailto:sage [2019/10/16(水) 16:58:30.92 ID:NsS1/fO1.net] 誰が見てもQZは頭がおかしいよ 809 名前： mailto:sage [2019/10/16(Wed) 20:10:11 ID:JF94p0Fe.net] >>789 どういうところが「頭がおかしい」と思ったのですか？ 810 名前： mailto:sage [2019/10/17(Thu) 01:44:31 ID:QhHbr34y.net] >>790 周囲が迷惑している行為や的外れで頓珍漢な言動をした際にそれを指摘しても、分からないから具体的に言えという。普通の人からすれば明らかな場合であろうと。 そして具体的に説明しても、自分はそう感じないから理解しない、納得しないと言い、言動を改めない。 本人の中では論理的整合性がとれた言動なのかも知れないが、周囲からすれば会話ができない困った奴に見える。 811 名前： mailto:sage [2019/10/17(Thu) 02:01:41 ID:Wp46MCu9.net] 朝鮮人に特有な行為だね 812 名前：デフォルトの名無しさん mailto:sage [2019/10/17(木) 02:18:55.29 ID:E+5qu981.net] 他人の迷惑考えずこんなの貼っちゃう奴だしな 848 ◆QZaw55cn4c  sage 2019/07/20(土) 08:18:17.29 ID:jbjCUWIF お題と回答 5 : 6 10 32 36 44 9 : 15 34 35 79 まんま>>791に該当するわ 813 名前： mailto:sage [2019/10/17(Thu) 09:29:19 ID:yTQXhZUg.net] 複素数の多価関数を何度説明しても理解してなかったし脳に欠陥があるのだろう 814 名前： mailto:sage [2019/10/17(Thu) 12:35:29 ID:MLKesy/P.net] 多価関数を理解できなかったのかｗｗｗ じゃあリーマン面も分からないだろうな そんな状態で一丁前に「留数定理」とのたまうから頭おかしい 815 名前：デフォルトの名無しさん [2019/10/17(Thu) 16:53:38 ID:H8l94EK2.net] >>744 Kotlin >>766をほんのちょっと改造 https://paiza.io/projects/K_ZOTIieO38ysksk8P8-sw 816 名前： mailto:sage [2019/10/17(Thu) 19:46:20 ID:LNHzPSkK.net] >>795 ＞そんな状態で一丁前に「留数定理」とのたまう 多分、それは「留数定理は忘れた」という文脈以外ではいったことがないと思いますよ >>794 「何度も」説明を受けた覚えはありませんよ、むしろ意図的に答えを隠されたような隔靴掻痒的なほのめかししかなかったと記憶しています >>793 問題を明確に指摘された後は、その貼り付けは実施していないのですが >>794 今はすべてを実数に限定した線形微分方程式ですらとても苦しんでいるので、複素解析／ｊ関数論とかは当分無理だと思います、関数論のいい教科書があれば教えてください 817 名前： mailto:sage [2019/10/17(Thu) 20:10:25 ID:Fo0iAhjp.net] >>797 あれだけ明瞭な説明を受けて理解できないどころかはぐらかされたと感じるならばお前は脳の病気だな 818 名前：デフォルトの名無しさん mailto:sage [2019/10/17(木) 22:10:55.40 ID:lFPJOlZz.net] ５ｃｈなんて無駄にマウント取るやつばっかりだから、コテつけてごちゃごちゃ言っても時間の無駄だぞ 袋叩きにあうだけ 819 名前：デフォルトの名無しさん [2019/10/18(Fri) 01:24:53 ID:RRRrLQ0r.net] 自演擁護乙。 820 名前：蟻人間 mailto:sage [2019/10/18(金) 23:48:51.61 ID:981JMrNY.net] 気を取り直していくぞ。 お題: 現在時刻のアナログ時計のSVG画像を出力せよ。丸い外枠と短針と長針だけでいいが、可能なら秒針と文字盤も表示せよ。 821 名前：デフォルトの名無しさん mailto:sage [2019/10/19(土) 02:49:07.69 ID:PZMkyc4n.net] 暇な人向けのお題：なるべく公正な多数決システムを考案せよ。 サンプル：https://ideone.com/Ayr1Az 上記は多数決して、3人サンプルして、じゃんけんする。というプロセスで導き出される。 822 名前：デフォルトの名無しさん mailto:sage [2019/10/19(土) 18:44:38.13 ID:PZMkyc4n.net] 暇な人向けのお題II！ 9x9のセルが与えられる。そのセルは磁石である。 真空状態での磁気シミュレーションをして量子コンピュータに近似せよ。 一つの万能ではない方針。 1パス目で相互作用を足し込む。 2パス目で相互作用の蓄積を作用素数で割る。 ライフゲームがヒントになるかもしれない。 823 名前：デフォルトの名無しさん mailto:sage [2019/10/19(土) 18:45:19.24 ID:PZMkyc4n.net] >>803 なお、自分は物理学も数学も素人である。。。Orz 824 名前：デフォルトの名無しさん [2019/10/21(月) 08:37:49 ID:HKPBZHRe.net] お題 入力された正整数を漢数字表記にして出力せよ 10の何乗まで対応するかは任せる 514 -> 五百十四 131072 -> 十三万千七十二 90010 -> 九万十 825 名前：デフォルトの名無しさん mailto:sage [2019/10/21(月) 09:41:08 ID:5iZNWaQ2.net] >>805 python %pip install kanjize from kanjize import in 826 名前：t2kanji, kanji2int print(int2kanji(123456789)) # 一億二千三百四十五万六千七百八十九 [] [ここ壊れてます] 827 名前：デフォルトの名無しさん [2019/10/21(月) 09:45:18 ID:HKPBZHRe.net] >>806 そんなのあるのか… 828 名前：デフォルトの名無しさん mailto:sage [2019/10/21(月) 13:26:32 ID:Yxovtd3S.net] perlの時代には既に存在した 829 名前：デフォルトの名無しさん [2019/10/21(月) 13:31:36 ID:W7vxtZcq.net] じゃあunicodeにシュメル文字が収録されたので、それで。 フフフ、ライブラリなんてあるまい 830 名前：デフォルトの名無しさん mailto:sage [2019/10/21(月) 13:35:10 ID:ZDMJHUdn.net] >>809 Python %pip install sumerianize from fumerianize import int2sumerian, sumerian2int print(int2sumerian(123456789)) # ???????????????????????? 831 名前：デフォルトの名無しさん [2019/10/21(月) 13:39:33 ID:n9VxwF2L.net] あんのかよワロタｗ 832 名前：デフォルトの名無しさん mailto:sage [2019/10/21(月) 13:45:48 ID:qqa/WroJ.net] 逆も欲しいな 漢数字を入れるとアラビア数字に変換するプログラム 833 名前：デフォルトの名無しさん mailto:sage [2019/10/21(月) 13:49:33 ID:BDK5iYLM.net] 表示できてなくて笑う 834 名前：デフォルトの名無しさん [2019/10/21(月) 13:50:52 ID:hy8thByE.net] >>805 それと同じお題を以前出した覚えがある。 まあいいか。スレ見に来てる人も変わってるだろうし。 835 名前：デフォルトの名無しさん mailto:sage [2019/10/21(月) 16:23:33 ID:5iZNWaQ2.net] >>813 表示できていないのは見る人がフォントを入れていないからだろ。　不思議でも何でもない。 836 名前：デフォルトの名無しさん [2019/10/21(月) 16:37:23.10 ID:lI38JOob.net] >>812 それと同じお題も過去にあったような。双方向で変換ってやつかな。 まだやったことない人なら頭の体操(またはボケ防止)にはなるからやってみると良いと思う。 837 名前：デフォルトの名無しさん mailto:sage [2019/10/21(月) 17:22:20.45 ID:Yxovtd3S.net] >>812 漢数字変換 - Perl表技集 www2u.biglobe.ne.jp/~MAS/perl/waza/kansuji.html これですな 838 名前：デフォルトの名無しさん mailto:sage [2019/10/21(月) 20:27:05.91 ID:niRnsl0k.net] 実はcpanからお題を決めてるんじゃないかなというのがしばらく続いてたと思う 839 名前：デフォルトの名無しさん mailto:sage [2019/10/21(月) 22:35:38 ID:9OcWZn69.net] ローマ数字との変換、は簡単か 840 名前：デフォルトの名無しさん mailto:sage [2019/10/21(月) 22:41:08 ID:tcnN+Hr+.net] 何回か出てる。 841 名前：デフォルトの名無しさん mailto:sage [2019/10/21(月) 23:57:16.86 ID:PlH6WJHg.net] 適当な整数を入力してそれが円周率の何桁目で出てくるか出力せよ。 何桁まで対応するかは任せる。 842 名前：デフォルトの名無しさん mailto:sage [2019/10/22(火) 00:08:15 ID:TSqT/b7n.net] perl だと m/digit/p からの $^{prematch} とかだな 843 名前：デフォルトの名無しさん mailto:sage [2019/10/22(火) 12:07:39.33 ID:rZX4V0+4.net] >>821 Perl5、小数点以下10000桁まで一番最初に見つかった桁を出力 $d = 893; # 適当な整数 use Math::BigFloat try => 'GMP,Pari'; $pi = Math::BigFloat->bpi(10000); #print "$pi\n"; $pi =~ s/\.//; # 小数点「.」を除去 $i = index $pi, $d; print $i < 0 ? "無し\n" : "小数点以下 $i 桁目\n"; 実行結果 ~ $ perl 15_821.pl 小数点以下 999 桁目 844 名前：デフォルトの名無しさん mailto:sage [2019/10/22(火) 12:11:07.49 ID:wZUXcjF6.net] あきらかにNP問題だから解く気がしねえ 845 名前：デフォルトの名無しさん [2019/10/22(火) 12:40:06.09 ID:E1qN728j.net] じゃあNP問題だと証明しろよ 846 名前：デフォルトの名無しさん mailto:sage [2019/10/22(火) 13:54:00.39 ID:rZX4V0+4.net] >>823 一度にある桁まで求めておいてから検索するよりも、 ガウス=ルジャンドルのアルゴリズムまたはラマヌジャンの式を使うなどして 下の桁まで収束を進めながら検索してゆく方が面白かったかな 847 名前：デフォルトの名無しさん mailto:sage [2019/10/22(火) 16:09:06.09 ID:0ZM3PvBa.net] >>825 キチガイすぎて草 848 名前：デフォルトの名無しさん [2019/10/22(火) 19:15:47.41 ID:/ue0mcGS.net] ぬるぽ問題 849 名前：デフォルトの名無しさん mailto:sage [2019/10/22(火) 19:35:05.18 ID:JpCkwFny.net] じゃあそれにしよう。 適当な文章を入力して縦横斜めにぬるぽの3文字が入っていればガッと出力す 850 名前：る。 ひらがなだけにするかそれ以上の対応をするかは任せる。 [] [ここ壊れてます] 851 名前：デフォルトの名無しさん mailto:sage [2019/10/22(火) 23:37:52.31 ID:0ZM3PvBa.net] >>829 Python %pip install nurupo from nurupo import nurupofield if nurupofield("ぬるぽ") print("ｶﾞｯ") # ｶﾞｯ 852 名前：デフォルトの名無しさん mailto:sage [2019/10/23(水) 00:32:58.65 ID:65oBAktI.net] pythonなんでも揃ってんな・・・ 853 名前：デフォルトの名無しさん mailto:sage [2019/10/23(水) 20:25:56.13 ID:LcbXQT4h.net] お題：整数配列の奇数要素のみをソートした配列を返す処理を書いてください 入力例：[6, 5, 4, 3, 2, 1] 出力例：[6, 1, 4, 3, 2, 5] 854 名前：デフォルトの名無しさん mailto:sage [2019/10/23(水) 20:53:09.53 ID:oBmkNBH8.net] >>832 octave https://ideone.com/W2Q4NP 855 名前：デフォルトの名無しさん mailto:sage [2019/10/23(水) 20:53:23.91 ID:65oBAktI.net] 奇数だけ抜き出した配列作成→ソート→元の配列の奇数の位置にソートした配列の要素を入れてくだけで良さそう 856 名前：デフォルトの名無しさん mailto:833 [2019/10/23(水) 20:54:52.29 ID:oBmkNBH8.net] あ、ダメだこれｗ 失礼しました 857 名前：833 mailto:sage [2019/10/23(水) 21:05:23.34 ID:oBmkNBH8.net] >>832 octave https://ideone.com/F0JmMT 858 名前：デフォルトの名無しさん mailto:sage [2019/10/23(水) 22:37:14.26 ID:PSSarBFK.net] >>832 Perl5 @s = (6, 5, 4, 3, 2, 1); @ix = grep{$s[$_] & 1} keys @s; @iy = sort{$s[$a] <=> $s[$b]} @ix; @s[@ix] = @s[@iy]; use Data::Dump 'dump'; print dump @s; 実行結果 ~ $ perl 15_832_sort_odd_elem.pl (6, 1, 4, 3, 2, 5) 859 名前：デフォルトの名無しさん [2019/10/24(木) 08:28:31.82 ID:5RTZY+Zo.net] >>832 J f =: 3 : 0 a =. I. 2 | y b =. /:~ a { y b (a) } y ) f 6 5 4 3 2 1 6 1 4 3 2 5 860 名前：デフォルトの名無しさん mailto:sage [2019/10/24(木) 09:51:33.40 ID:76TAYxNw.net] >>832 p [6, 5, 4, 3, 2, 1].partition.with_index{|_, i| i.even?}.then{|e, o| e.zip(o.sort).flatten} # => [6, 1, 4, 3, 2, 5] 861 名前：デフォルトの名無しさん mailto:sage [2019/10/24(木) 09:51:53.30 ID:76TAYxNw.net] >>839 Ruby 2.6.0 862 名前：デフォルトの名無しさん mailto:sage [2019/10/24(木) 12:04:34.69 ID:yRKIAYVV.net] >>839 [6, 5, 3, 2, 1] とかだと結果が間違っている上、nilとか足されてひどいことになるyo？ p [6, 5, 3, 2, 1].partition.with_index{|_, i| i.even?}.then{|e, o| e.zip(o.sort).flatten} # => [6, 2, 3, 5, 1, nil] 正しくは => [6, 1, 3, 2, 5] 863 名前：デフォルトの名無しさん [2019/10/24(木) 15:41:34.92 ID:gElHX+jG.net] >>832 Kotlin https://paiza.io/projects/RXWCx9-WsZvakBKGgIo1UA やり方は >>834 に書かれている通り。 しかし、もっとスマートな方法はないものか？ ありそうだが思い浮かばない。 864 名前：デフォルトの名無しさん mailto:sage [2019/10/24(木) 16:54:57.81 ID:ZpMPcQ0n.net] >>842 配列コピーしない場合奇数が出たらその後の要素を見て一番小さい奇数と要素の交換でもどう？ 配列のコピー不要や。 865 名前：デフォルトの名無しさん mailto:sage [2019/10/24(木) 21:24:20.41 ID:YtgvOVKx.net] >>832 ruby https://ideone.com/EUWgwy >>832 ocaml https://ideone.com/6SktpO 866 名前：デフォルトの名無しさん mailto:sage [2019/10/24(木) 23:20:25.74 ID:33G0+sWg.net] >>838 さすがJﾆｷ、さっぱりわからん… 867 名前：デフォルトの名無しさん [2019/10/25(金) 00:26:52.21 ID:GgLEjF73.net] アプリ作成したいのですが、素人なのでどなたか相談に乗ってください。 飲み物が入ったコップを定期的に重量を量り、 そのデータを無線で受信してサーバーで記録し プロットするアプリを作りたいです。 またRaspiなどのPCはなしで作りたいのですが 組み込みPC？を使わないとできませんか？ またこういったアプリに適した言語などありますでしょうか？ 868 名前：デフォルトの名無しさん [2019/10/25(金) 00:32:12.57 ID:D+sRag4r.net] プログラム部分はたいしたことがないとおもうのだが 装置、ハードのほうが大事だろ そもそもプログラムもハード依存するかもしれないし � 869 名前：ﾁに既成品なら [] [ここ壊れてます] 870 名前：デフォルトの名無しさん [2019/10/25(金) 00:48:27.50 ID:GgLEjF73.net] ありがとうございます。 ハードウェアの知識が全く無いため困っています。 飼い猫のために水の量を管理してあげたいんです。 下記のような組み合わせで出来そうでしょうか？ ADコンバータ KKHMF HX711モジュール 秤量センサー 24位精度ADモジュール 圧力センサーモジュール 重量センサー uxcell 計量ロードセル アルミ合金材質 500g計量 電子天秤 有線 計量センサー 871 名前：デフォルトの名無しさん [2019/10/25(金) 03:57:48.67 ID:uJcHRouN.net] やり方わからないんだけど、カメラで撮影して映像解析して量が分かるのであればスマホやタブレット用のアプリでできそうだよね。 (PCに小さいカメラ付けても良いが)。 872 名前：デフォルトの名無しさん mailto:sage [2019/10/25(金) 04:08:18.02 ID:rztx2iSz.net] >>848 適切なスレに移動した方がいいぞ 873 名前：デフォルトの名無しさん mailto:sage [2019/10/25(金) 09:43:45.15 ID:C/odSq3f.net] センサーの話題などは、Linux 板のラズパイのスレで聞けば？ 874 名前：デフォルトの名無しさん mailto:sage [2019/10/25(金) 09:56:31.28 ID:VVjeWd6A.net] >>848 適当なIoTの計り買えば解決 実装はCだろうな 875 名前：デフォルトの名無しさん mailto:sage [2019/10/25(金) 11:49:06.01 ID:C/odSq3f.net] >>832 Ruby で、 input_ary = [ 6, 5, 4, 3, 2, 1 ] odd_ary = [ ]; index_ary = [ ] input_ary.each_with_index do |num, idx| if num.odd? odd_ary.push num index_ary.push idx end end odd_ary.sort! # ソート # 同時に、複数の配列をループする index_ary.zip( odd_ary ).each { |idx, num| input_ary[ idx ] = num } p input_ary 876 名前：デフォルトの名無しさん [2019/10/25(金) 12:30:51.02 ID:GgLEjF73.net] >> 849 , 850, 851, 852 情報ありがとうございます。 スレチだったみたいで申し訳ないです。 センサーありきなので、Raspiは使わないと思うのですが 板覗いてみます。 877 名前：デフォルトの名無しさん mailto:sage [2019/10/25(金) 14:59:52.83 ID:ylwTeYJx.net] >>832 https://ideone.com/FKifBY C++。クイックソート書けないので謎のソートでお茶を濁す。 878 名前：デフォルトの名無しさん mailto:sage [2019/10/26(土) 01:38:30 ID:o5w2ifn2.net] お題: 端末上で(´・ω・`)を端から端まで移動し、往復させよ ただし、端についたら(´・ω・`)は増幅し(´・ω・`)(´・ω・`)になる 同様に再び端についたら(´・ω・`)(´・ω・`)は増幅し(´・ω・`)(´・ω・`)(´・ω・`)になる 左右に移動できなくなる又ははみ出す場合は逆に(´・ω・`)を減らしていき、最終的に(´・ω・`)を消滅させよ 879 名前：デフォルトの名無しさん [2019/10/26(土) 06:24:17 ID:2eoY+VbT.net] お題: Unicode 1 文字を与えると East Asian Width に従った属性値を返す関数を作成し、その関数に対して任意の文字を与えてテストするプログラムを作れ。 返す属性値の F, H, W, Na, A, N は文字列でも良いし対応する数値でも良いし enum のような(またはCなら #define されている)名前でも良い。 East Asian Width の一覧は下記URLのテキストの内容を使用する。これを最初に読んで初期化するように作っても良いし、最初からプログラムに適した形式で埋め込まれていても良い。 www.unicode.org/Public/UCD/latest/ucd/EastAsianWidth.txt 参考: 東アジアの文字幅 https://ja.wikipedia.org/wiki/%E6%9D%B1%E3%82%A2%E3%82%B8%E3%82%A2%E3%81%AE%E6%96%87%E5%AD%97%E5%B9%85 880 名前：デフォルトの名無しさん mailto:sage [2019/10/26(土) 07:11:59 ID:I0XoRu/q.net] お題：>>832 に「偶数要素は2で割って降順ソート」という要件を追加してください すでに回答済 881 名前：みの場合は最少限の変更でのご対応で腕（もしくは言語のポテンシャル）を見せてください [] [ここ壊れてます] 882 名前：デフォルトの名無しさん mailto:sage [2019/10/26(土) 07:27:04.95 ID:I0XoRu/q.net] >>858 入力例：[0, 9, 8, 4, 6, 5, 1, 2, 7, 3] 出力例：[4, 1, 3, 2, 1, 3, 5, 0, 7, 9] 883 名前：デフォルトの名無しさん mailto:sage [2019/10/26(土) 11:01:29.07 ID:/Rj6VhaF.net] >>832 Pharo/Squeak Smalltalk | fn | fn := [:arr | | sortedOdds | sortedOdds := (arr select: #odd) sort readStream. arr collect: [:x | x odd ifTrue: [sortedOdds next] ifFalse: [x]] ]. fn value: #(6 5 4 3 2 1) "=> #(6 1 4 3 2 5) " >>835 | fn | fn := [:arr | | sortedOdds sortedHalfEvens | sortedOdds := (arr select: #odd) sort readStream. sortedHalfEvens := ((arr select: #even) sort reversed / 2) readStream. arr collect: [:x | x odd ifTrue: [sortedOdds next] ifFalse: [sortedHalfEvens next]] ]. fn value: #(0 9 8 4 6 5 1 2 7 3) "=> #(4 1 3 2 1 3 5 0 7 9) " 884 名前：デフォルトの名無しさん mailto:sage [2019/10/26(土) 11:03:35.88 ID:/Rj6VhaF.net] >>860 ×835 → ○>>858 885 名前：デフォルトの名無しさん mailto:sage [2019/10/26(土) 11:45:52.80 ID:4aRwI3hq.net] >>859 Perl5、最小限でか… @s = (0, 9, 8, 4, 6, 5, 1, 2, 7, 3); @ix = grep{$s[$_] & 1} keys @s; @iy = sort{$s[$a] <=> $s[$b]} @ix; @s[@ix] = @s[@iy]; @iz = grep{~$s[$_] & 1} keys @s; @s[@iz] = map{$_ / 2} reverse sort{$a <=> $b} @s[@iz]; use Data::Dump 'dump'; print dump @s; 実行結果 ~ $ perl 15_859.pl (4, 1, 3, 2, 1, 3, 5, 0, 7, 9) 886 名前：デフォルトの名無しさん mailto:sage [2019/10/26(土) 12:12:03.02 ID:Zgyrlv2c.net] >>832,858 @Mathematica https://ideone.com/0UFN7o 887 名前：デフォルトの名無しさん [2019/10/26(土) 12:22:15.14 ID:GFiKSQ9h.net] >>856 Porwershell。バージョンによってはプロンプト画面に直接貼り付けると$sの文字列が 化けるので、その場合はファイルに保存して実行。 $s = "('・ω・``)" $w = $Host.UI.RawUI.WindowSize.Width - 1 $m = [Math]::Floor($w / 10) foreach ($n in 1..$m + ($m - 1)..0) { 　　$d = $w - 10 * $n 　　foreach ($x in (($d..1), (1..$d))[$n % 2]) { 　　　　$l = "`r" + " " * $x + $s * $n + " " * ($d - $x) 　　　　Write-Host $l -NoNewline 　　　　if (!$n) {Write-Host; break} 　　　　Sleep -m 20 　　} } 888 名前：デフォルトの名無しさん mailto:sage [2019/10/26(土) 13:49:47.32 ID:f6JeNzn+.net] Mathematica12 定義 f1[a_]:=SubsetMap[Sort,a,Position[a,_?OddQ,1]] f2[a_]:=SubsetMap[ReverseSort[#]/2&,f1[a],Position[a,_?EvenQ,1]] 実行結果 f1[{6,5,4,3,2,1}] {6,1,4,3,2,5} f2[{0,9,8,4,6,5,1,2,7,3}] {4,1,3,2,1,3,5,0,7,9} 889 名前：デフォルトの名無しさん mailto:sage [2019/10/26(土) 17:08:24.41 ID:kYj2w42l.net] >>832, >>858 Ruby f = -> ary { 　　e, o = ary.partition(&:even?).map(&:sort) 　　ary.map{|v| v.even? ? v : o.shift} } g = -> ary { 　　e, o = ary.partition(&:even?).map(&:sort) 　　ary.map{|v| v.even? ? e.pop >> 1 : o.shift} } p f[[6, 5, 4, 3, 2, 1]] # => [6, 1, 4, 3, 2, 5] p g[[0, 9, 8, 4, 6, 5, 1, 2, 7, 3]] # => [4, 1, 3, 2, 1, 3, 5, 0, 7, 9] 890 名前：デフォルトの名無しさん [2019/10/26(土) 20:25:43.01 ID:XXeS+kK0.net] >>858 c https://ideone.com/g7IC5E 891 名前：デフォルトの名無しさん mailto:sage [2019/10/26(土) 22:02:49.24 ID:+YWUVQNg.net] >>856 https://ideone.com/lw7uIj C++。なんか表示位置ずれるなーと思ったら、「()」これ半角じゃねーか。 そのせいで、プログラムが持ってる長さと表示の長さが合わなかった。 しかし、汚くなった無し、思ったより時間がかかってしまった。 892 名前：デフォルトの名無しさん mailto:sage [2019/10/26(土) 22:16:30.14 ID:FFSD3o8O.net] >>858 octave https://ideone.com/d5NTlm >>858 ruby https://ideone.com/R93NWY >>858 ocaml https://ideone.com/RTlP5X 893 名前：デフォルトの名無しさん mailto:sage [2019/10/26(土) 22:21:47.70 ID:+YWUVQNg.net] >>858 https://ideone.com/7vsaej C++。前のヤツに関数足した。 オーダーが倍になったが改修だとこんなもんだ。 894 名前：蟻人間 mailto:age [2019/10/26(土) 22:38:02.04 ID:Q5f3 ] [ここ壊れてます] 895 名前：+aYX.net mailto: お題: あるフォルダ(例えばC:\Windows)についてフォルダの階層構造を木構造(tree)を表すテキストとして出力せよ。 インデントでもいい。罫線を使ってもいい。 [] [ここ壊れてます] 896 名前：デフォルトの名無しさん [2019/10/26(土) 22:38:38.76 ID:T/HAOzs9.net] tree 897 名前：デフォルトの名無しさん mailto:sage [2019/10/26(土) 22:46:14.97 ID:a/Ne+y1n.net] 完 898 名前：蟻人間 mailto:age [2019/10/26(土) 23:33:25.57 ID:0HLEEd3+.net] 熟 899 名前：デフォルトの名無しさん [2019/10/26(土) 23:36:46.58 ID:Up+ppHZL.net] ト 900 名前：デフォルトの名無しさん [2019/10/26(土) 23:56:14.95 ID:mT+r0MIT.net] マ 901 名前：デフォルトの名無しさん mailto:sage [2019/10/27(日) 01:42:02 ID:98GTxTrH.net] ホ 902 名前：デフォルトの名無しさん [2019/10/27(日) 01:48:49 ID:hTxWtEZY.net] ー 903 名前：デフォルトの名無しさん [2019/10/27(日) 02:14:55 ID:qZK0Jir5.net] ク 904 名前：デフォルトの名無しさん [2019/10/27(日) 12:00:30.73 ID:czi1K5eV.net] >>858-859 PowerShell $a = 0, 9, 8, 4, 6, 5, 1, 2, 7, 3 $b = 0, 0 $i = 0, 0 $odd = {$_ % 2} $b[0] = @($a |? {!(&$odd)} |% {$_ / 2} | sort -descending) $b[1] = @($a |? {&$odd} | sort) $c = $a |% {$b[(&$odd)][$i[(&$odd)]++]} "入力: [" + ($a -join ", ") + "]" "出力: [" + ($c -join ", ") + "]" 905 名前：デフォルトの名無しさん mailto:sage [2019/10/27(日) 21:46:52.77 ID:JAeIkS65.net] >>858 c https://ideone.com/SwF6Zp 906 名前：デフォルトの名無しさん [2019/10/28(月) 14:33:15.95 ID:kjzN6NI8.net] >>858-859 Haxe で、 https://try.haxe.org/#Bb813 907 名前：デフォルトの名無しさん mailto:sage [2019/10/28(月) 21:54:57.80 ID:UPe4TNxT.net] Common Lisp >>832 (let* ((l '(6 5 4 3 2 1)) 　　　 (odds (sort (remove-if-not #'oddp l) #'<))) 　(mapcar (lambda (x) (if (oddp x) (pop odds) x)) l)) >>858-859 (let* ((l '(0 9 8 4 6 5 1 2 7 3)) 　　　 (odds (sort (remove-if-not #'oddp l) #'<)) 　　　 (evens (sort (remove-if-not #'evenp l) #'>))) 　(mapcar (lambda (x) (if (oddp x) (pop odds) (/ (pop evens) 2))) l)) 908 名前：蟻人間 mailto:sage [2019/10/28(月) 22:20:53.11 ID:9dus/Ppg.net] Linuxにこんなコマンドあんのかよお？ https://www.adminweb.jp/command/file/index2.html 909 名前：デフォルトの名無しさん [2019/10/28(月) 22:33:53.27 ID:cHOU2eIF.net] >>871 Powershell。標準のtreeコマンドと違い、システム/隠しフォルダも表示する。 バージョンによってはプロンプト画面に貼り付けると罫線文字が消えてしまうので、 その場合はps1ファイルに保存して実行するか、PowerShell ISEに貼り付ける。 function MyTree($path, $branch) { 　if (!$branch) {$path} 　$dir = @(ls -Force -PSPath $path -EV e -EA SilentlyContinue |? {$_.PSIsContainer}) 　if ($e) {$branch + "::アクセス不可"} 　if (!$dir) {return} 　0..($last = $dir.Count - 1) |% { 　　$branch + ("├─", "└─")[$_ -eq $last] + $dir[$_].Name 　　MyTree $dir[$_].FullName ($branch + ("│　", "　　")[$_ -eq $last]) 　} } MyTree "C:\Windows" 910 名前：デフォルトの名無しさん mailto:age [2019/10/28(月) 23:08:40.85 ID:F/Wh8ChL.net] >>884 100年前からあるよ 911 名前：デフォルトの名無しさん mailto:sage [2019/10/28(月) 23:13:15.22 ID:uBs49FGp.net] 色わけもされているのが良くあり、たいへん見やすい 912 名前：蟻人間 ◆T6xkBnTXz7B0 mailto:sage [2019/10/29(火) 01:01:17 ID:CdNgVa0z.net] お題: 平面(0, 0)-(100,100)上に点を100個、配置する。k-means法を用いて点の集合を3つのグループに分け、それらを図示せよ。 913 名前：デフォルトの名無しさん mailto:sage [2019/10/29(火) 08:42:30.06 ID:CowX2GWO.net] >>858-859 Ruby で、 input_ary = [ 0, 9, 8, 4, 6, 5, 1, 2, 7, 3 ] even_ary, odd_ary = input_ary.partition( &:even? ) # 偶数・奇数配列 odd_ary.sort! # 奇数要素をソート # 偶数要素は、2で割って降順ソート even_ary.map! { |num| num / 2 } even_ary.sort! even_ary.reverse! p results = input_ary.map { |num| num.even? ? e 914 名前：ven_ary.shift : odd_ary.shift } # 偶数・奇数 [] [ここ壊れてます] 915 名前：デフォルトの名無しさん mailto:sage [2019/10/29(火) 11:11:57.21 ID:8fHMSau6.net] やっぱり初心者にはまず黒い画面のCUIからやらせたほうがいいな 916 名前：デフォルトの名無しさん mailto:sage [2019/10/29(火) 18:19:47.29 ID:BWleRN1J.net] 設定で白い画面にすると心が和らぐかも知れない 917 名前：デフォルトの名無しさん mailto:sage [2019/10/29(火) 18:42:27.40 ID:plxF2L4V.net] 目がクラッシュ 918 名前：デフォルトの名無しさん mailto:sage [2019/10/29(火) 21:04:32.22 ID:OodB9NB8.net] 日本標準時2100に起動し、Web上から文字列「惣流・アスカ・ラングレー」を含む.jpgファイルもしくは.jpegあるいは.pingファイルをC:秘蔵に1GB分保存するコードを教えてください 919 名前：デフォルトの名無しさん [2019/10/29(火) 21:19:03.11 ID:zdS42c06.net] 式波だろオッサン 920 名前：デフォルトの名無しさん mailto:sage [2019/10/29(火) 22:05:19.10 ID:xXVEd4hK.net] >>893 0 21 * * * sudo less BigWeb | grep アスラン・ザラ > home/C/H_file limit 1GB 921 名前：デフォルトの名無しさん mailto:sage [2019/10/29(火) 22:18:10.10 ID:VtVeF5OO.net] >>893 firebird -t0:21:0:0 --everyday --query 惣流・アスカ・ラングレー --suffix "jpg|jpeg|ping" --dst "C:\secret" --limit 1GB 922 名前：デフォルトの名無しさん mailto:sage [2019/10/30(水) 00:58:38.18 ID:VQ6oDJg7.net] pingファイルわらた 923 名前：デフォルトの名無しさん mailto:sage [2019/10/30(水) 04:42:26 ID:LML0ucqT.net] アイが隠っている 924 名前：デフォルトの名無しさん [2019/11/01(金) 22:31:20.50 ID:5BPqTvCN.net] お題: 3^3^3^... のような反復指数を10の反復指数に近似するプログラムを作成しなさい。 入力されるそれぞれの指数は1より大きい実数とします。 計算後の最も右の指数xは 1<x≦10 としてください。 例: 3^3^3^3^3^3 = 10^10^10^10^10^1.099 2.718^2.718^2.718^2.718^7.705 = 10^10^10^10^2.983 (5.0e+50)^(6.0e+60)^(7.0e+70)^(8.0e+80)^(9.0e+90) = 10^10^10^10^10^10^1.968 1.1^1.1^1.1^1.1^1.1 = 1.112 925 名前：デフォルトの名無しさん [2019/11/01(金) 23:58:48.16 ID:Yq8XY12s.net] a^n = b^x を解く問題でいいじゃん 926 名前：蟻人間 mailto:sage [2019/11/02(土) 13:25:33.62 ID:OyXmLdGY.net] >>899 演算子^は、左結合、それとも右結合？ 927 名前：デフォルトの名無しさん mailto:sage [2019/11/02(土) 14:21:37.47 ID:ZDjpW1U6.net] >>901 右結合です a^b^c => a^(b^c) 無論 ^はべき乗の演算子です。 928 名前：蟻人間 mailto:sage [2019/11/02(土) 16:24:06.83 ID:3ZL9CX49.net] 10^1〜10^10で二分探索を繰り返しかな？ 929 名前：デフォルトの名無しさん mailto:sage [2019/11/02(土) 17:38:05.70 ID:q/Mbih9P.net] >>899 https://ideone.com/0Xqylu C++。あってるか知らんけど、知識を動員して解いてみたんだけど、あってる？ 三の3乗を6回やったら、doubleでinfになるので解けねーわ。うわわーん。 930 名前：デフォルトの名無しさん mailto:sage [2019/11/02(土) 18:12:47.84 ID:41WzS7Cc.net] >>904 コード一切読んでないけどお前のは間違ってると思うよ 931 名前：デフォルトの名無しさん mailto:sage [2019/11/02(土) 18:39:57.30 ID:q/Mbih9P.net] >>905 意味が解らん。 まぁ、いいけど。 932 名前：デフォルトの名無しさん [2019/11/02(土) 19:40:47.26 ID:0iFQzt0L.net] >>899 PowerShellで最初の2例だけ。 function lg($x) {[Math]::log10($x)} function pow($x, $y) {[Math]::pow($x, $y)} function tetrconv($a) { $k = lg ((pow $a[-2] $a[-1]) * (lg $a[-3]) + (lg (lg $a[-4]))) $b = @(10) * ($a.count - 1) + [Math]::round($k, 3) ($a -join "^") + " = " + ($b -join "^") } tetrconv (@(3) * 6) tetrconv (@(2.718) * 4 + 7.705) 933 名前：デフォルトの名無しさん [2019/11/02(土) 21:32:51.49 ID:0iFQzt0L.net] >>899 最後の2例にも対応した。 function lg($x) {[Math]::log10($x)} function pow($x, $y) {[Math]::pow($x, $y)} function tetrconv($a) { 　　$k = $a[-1] 　　foreach ($i in -2..-$a.count) { 　　　　if ($k -gt 10) {break} 　　　　$k = pow $a[$i] $k 　　} 　　if ($i - 1 -ge -$a.count) {$k *= lg $a[$i - 1]} 　　if ($i - 2 -ge -$a.count) {$k += lg (lg $a[$i - 2])} 　　while ($k -gt 10) { 　　　　$k = lg $k 　　　　$i++ 　　} 　　if ($i += $a.count) {$i++} 　　$b = @(10) * $i + [Math]::round($k, 3) 　　($a -join "^") + " = " + ($b -join "^") } tetrconv (@(3) * 6) tetrconv (@(2.718) * 4 + 7.705) tetrconv (5.0e50, 6.0e60, 7.0e70, 8.0e80, 9.0e90) tetrconv (@(1.1) * 5) 934 名前：デフォルトの名無しさん mailto:sage [2019/11/03(日) 00:32:05.95 ID:ORedds2P.net] 偶数の場合は半分に、奇数の場合は3倍して1加算して結果が1になるまでその数値を出力してください。 1まで出力して完了です。 単純だけど、どこまで短く書ける？ 935 名前：デフォルトの名無しさん mailto:sage [2019/11/03(日) 00:36:48.03 ID:ZBjdhNSI.net] >>909 コラッツ予想はもうおなかいっぱいだわ 936 名前：デフォルトの名無しさん [2019/11/03(日) 12:57:12.82 ID:ax9Okew1.net] コラッて怒れば良いんじゃないかな 937 名前：デフォルトの名無しさん mailto:sage [2019/11/03(日) 13:57:01.56 ID:mZU6qafh.net] >>909 https://ideone.com/JsckiH C++。ショートコーダじゃないから短めに書いて、24行。 938 名前：デフォルトの名無しさん mailto:sage [2019/11/03(日) 15:49:54.73 ID:kVBOYkVG.net] >>909 C# https://ideone.com/unj3KD 短く書こうとする気すらないw 939 名前：デフォルトの名無しさん [2019/11/03(日) 18:50:15.71 ID:6KV8hNPc.net] 縦と横のサイズが与えられるのでアスペクト比を求めよ 940 名前：デフォルトの名無しさん mailto:sage [2019/11/03(日) 20:03:15.96 ID:PuBKYFzC.net] 比は整数のみ？ 941 名前：デフォルトの名無しさん [2019/11/03(日) 21:50:08.17 ID:rJL4Vpjg.net] >>899 別の入力値 (例えば@(1.7) * 5や@(1.5) * 14) を試してみたら出力値がおかしかったので修正。 function lg($x) {[Math]::log10($x)} function pow($x, $y) {[Math]::pow($x, $y)} function tetrconv($a) { 　　$k = 1 　　foreach ($i in ($a.count - 1)..0) { 　　　　$k = pow $a[$i] $k 　　　　if ($k -gt 20) {break} 　　} 　　if ($i -ge 1) {$k *= lg $a[$i - 1]} 　　if ($i -ge 2) {$k += lg (lg $a[$i - 2])} 　　while ($k -gt 10) { 　　　　$k = lg $k 　　　　$i++ 　　} 　　$b = @(10) * $i + [Math]::round($k, 3) 　　($a -join "^") + " = " + ($b -join "^") } tetrconv (@(3) * 6) tetrconv (@(2.718) * 4 + 7.705) tetrconv (5.0e+50, 6.0e+60, 7.0e+70, 8.0e+80, 9.0e+90) tetrconv (@(1.1) * 5) 942 名前：デフォルトの名無しさん mailto:sage [2019/11/04(月) 07:30:04.95 ID:T8mOMaiU.net] お題： m から n までの整数のうち、桁数字の和が s になるものをすべて列挙する 関数を書け。 具体的に： 1 から 100 までの整数のうち、桁数字の和が 12 になるものは、 39、48、57、66、75、84、93 である。 関数の実行例： f(1, 100, 12) → [39, 48, 57, 66, 75, 84, 93] 943 名前：デフォルトの名無しさん mailto:sage [2019/11/04(月) 10:20:33.30 ID:xKwnPcPn.net] 数列和好きだね これで何回目だ？ 数列和求めて何か嬉しいのか？ 簡易計算ミスを防げるとか 944 名前：デフォルトの名無しさん mailto:sage [2019/11/04(月) 10:51:39.60 ID:FzGFhotx.net] >>917 perl なんの捻りもない use List::Util qw(sum); print join",",(grep{sum(split//)==12}(1..100)); 945 名前：デフォルトの名無しさん mailto:sage [2019/11/04(月) 12:37:41.26 ID:7wrIz40y.net] >>918 数列和？ いきなりオレオレ用語で語られても困るw 946 名前：デフォルトの名無しさん mailto:sage [2019/11/04(月) 14:30:03.94 ID:obVJwnOe.net] >>917 https://ideone.com/pWqVPQ C++。割といつも通りという感じ。 947 名前：デフォルトの名無しさん mailto:sage [2019/11/04(月) 19:33:38.63 ID:xKwnPcPn.net] タイポ 数字和 >744 などにでてくるやつ 948 名前：デフォルトの名無しさん [2019/11/04(月) 19:35:11.53 ID:6jo2x8my.net] >>917 PowerShellで単純に書けば function f($a, $b, $s) {$a..$b |? {(iex ([char[]]"$_" -join "+")) -eq $s}} f 1 100 12 だが、桁が増えると遅すぎるので、少し工夫すると、 $M = [Math] function g($s, $n) { 　　if ($n -eq 1) {return $s} 　　$d = $M::pow(10, $n - 1) 　　for ($i = $M::max(0, $s - 9 * ($n - 1)); $i -le $M::min(9, $s); $i++) { 　　　　g ($s - $i) ($n - 1) |% {$d * $i + $_} 　　} } function f($a, $b, $s) { g $s ($M::ceiling($M::log10($b))) |? {$_ -ge $a -and $_ -le $b} } f 1 10000000 12 949 名前：デフォルトの名無しさん [2019/11/04(月) 19:36:29.94 ID:6jo2x8my.net] 7桁まではまあまあだが8桁以上だと遅いので、Cで書き換えると9桁でも瞬時に終わった。 (出力をファイルにリダイレクトした場合)。Visual Studioでは動作するが、 ideone.comでは変なコンパイラエラーが発生する。 #include <stdio.h> #include <stdlib.h> #include <math.h> void g(int a, int b, int s, int n, int t, int x) { 　　int d, i; 　　if (n == 0) { 　　　　if (t == s && x >= a && x <= b) printf("%d\n", x); 　　} else { 　　　　for (d = i = 1; i < n; i++) d *= 10; 　　　　for (i = max(0, (s - t) - 9 * (n - 1)); i <= min(9, s - t); i++) { 　　　　　　g(a, b, s, n - 1, t + i, d * i + x); 　　　　} 　　} } void f(int a, int b, int s) { 　　g(a, b, s, ceil(log10(b)), 0, 0); } int main(void) { 　　f(1, 1000000000, 12); 　　return 0; } 950 名前：デフォルトの名無しさん [2019/11/05(火) 01:53:14.53 ID:gnRgB6kn.net] >>909 Kotlin https://paiza.io/projects/P-_x81NFh0Pq-Fu6FgHHQg 肝心な部分は短いよな・・・ 951 名前：デフォルトの名無しさん [2019/11/05(火) 20:14:32.31 ID:e+hxAdfR.net] お題：グラフの最長距離探索プログラムを作りなさい。分からなければダイクストラの最短距離探索プログラムを改造して作りなさい。 952 名前：デフォルトの名無しさん mailto:sage [2019/11/05(火) 20:40:24.45 ID:3L71zPwH.net] >>926 全探索になるから辛い。 X以上になったら打ち切りとかできないし、枝がX個以上なら切るとかもできない。 953 名前：デフォルトの名無しさん mailto:sage [2019/11/05(火) 21:02:19.16 ID:3L71zPwH.net] 枝じゃなかった。支点だった。 954 名前：デフォルトの名無しさん mailto:sage [2019/11/05(火) 22:48:36.11 ID:4YhU7TUN.net] >>917 Common Lisp (defun f (m n s) 　(print (loop for i from m to n 　　　　　　　　if (= s (loop for (j k)　= (multiple-value-list (floor i 10)) then (multiple-value-list (floor j 10)) 　　　　　　　　　　　　　　　sum k 　　　　　　　　　　　　　　　until (zerop j))) 　　　　　　　　collect i))) (f 1 100 12) 955 名前：デフォルトの名無しさん [2019/11/07(木) 19:42:24.48 ID:wJeAdMrJ.net] >>917 Kotlin https://paiza.io/projects/sCUo-pxCCvYRSj_y9LA9Qg ひねりなし。 956 名前：デフォルトの名無しさん [2019/11/07(木) 22:47:28.91 ID:Iq2Mem9/.net] >>924を読み返してみたら、1変数減らしてすっきりさせられることに気付いた。 #include <stdio.h> #include <stdlib.h> #include <math.h> void g(int a, int b, int r, int n, int x) { 　　int d, i; 　　if (n == 0) { 　　　　if (r == 0 && x >= a && x <= b) printf("%d\n", x); 　　} else { 　　　　d = pow(10, n - 1); 　　　　for (i = max(0, r - 9 * (n - 1)); i <= min(9, r); i++) { 　　　　　　g(a, b, r - i, n - 1, d * i + x); 　　　　} 　　} } void f(int a, int b, int s) { 　　g(a, b, s, ceil(log10(b)), 0); } int main(void) { 　　f(1, 1000000000, 12); 　　return 0; } 957 名前：デフォルトの名無しさん [2019/11/10(日) 21:37:46.78 ID:OK7x/7YO.net] 文字コードがシフトJISでもUnicodeでも3つ以上の連番となる文字列（最長一致）を、 コード範囲とともにすべて表示せよ。例えば、それらのうちの1つに関する表示は、 824F..8258 FF10..FF19 ０１２３４５６６７８９ となる。なお、シフトJISには機種依存文字を含んで構わない。 958 名前：デフォルトの名無しさん mailto:sage [2019/11/10(日) 21:57:20.43 ID:uvNl/ ] [ここ壊れてます] 959 名前：eaa.net mailto: >>932 何を以って同じ文字とみなすのか定義しろ [] [ここ壊れてます] 960 名前：デフォルトの名無しさん [2019/11/10(日) 22:09:53.56 ID:OK7x/7YO.net] >>933 それも機種依存で構わない。規格上の厳密さにこだわる必要はない。 961 名前：デフォルトの名無しさん mailto:sage [2019/11/10(日) 23:26:27.72 ID:EkgZPBq1.net] >>932 Java https://ideone.com/GLDM9a これでいいのけ？ 962 名前：デフォルトの名無しさん mailto:sage [2019/11/11(月) 00:44:57.23 ID:VmjibYtT.net] バイナリファイルの高速コンペア 963 名前：デフォルトの名無しさん mailto:sage [2019/11/11(月) 18:33:43.09 ID:KK646YuM.net] >>936 メモリに二つとも呼んでfor回す。意外は難しい気がする。 964 名前：デフォルトの名無しさん mailto:sage [2019/11/11(月) 19:03:14.97 ID:KK646YuM.net] >>917 https://ideone.com/eVgFHk C++。一回解いたけど再考して配列一個潰した。 5秒で5000万位解けそう？？ 965 名前：デフォルトの名無しさん mailto:sage [2019/11/11(月) 22:23:08.18 ID:ySONYK72.net] >>936 単に一致不一致だけわかればいいのか？ とか コンペアするファイルは２つだけなのか？ とか 単に２つのファイルの一致不一致を見るだけなら基本>>937の言う通りだと思う 966 名前：デフォルトの名無しさん [2019/11/11(月) 22:37:18.90 ID:hxYpUSvR.net] >>935 正解。Windowsには機種依存文字 8754..875D 2160..2169 �T�U�V�W�X�Y�Z�[�\�] などもあるが、機種依存文字を含んでも構わないという出題だったので、 含まなくてもOK。 967 名前：デフォルトの名無しさん [2019/11/12(火) 05:31:26.51 ID:oeG9wEYf.net] お題 スレ立てるまでもない質問はここで 152匹目 https://mevius.5ch.net/test/read.cgi/tech/1573214616/ の3番の問題を勝手に解く 968 名前：デフォルトの名無しさん mailto:sage [2019/11/12(火) 12:11:13.05 ID:BJKXTHw+.net] >>940 Java https://ideone.com/611DD5 >>935からCharasetをShift-JISからx-SJIS_0213に変えただけ (Windowsだとx-MS932_0213のほう？) Shift-JISだと古いやつなんやな 969 名前：デフォルトの名無しさん [2019/11/12(火) 21:37:48.42 ID:+gLjUv3x.net] >>941 処理データ量が少なく計算効率を考慮しなくて良いなら、Rで簡潔に書ける。 https://ideone.com/cRvth9 効率が求められるなら、Cで二分探索の変形版だな。 https://ideone.com/FXQQjq 970 名前：デフォルトの名無しさん [2019/11/12(火) 22:38:04.89 ID:SyoIDDRx.net] windowsのロングパス対応の重複ファイル検索するコードない? 971 名前：デフォルトの名無しさん mailto:sage [2019/11/13(水) 04:07:44 ID:eXHRJefh.net] >>941 Pharo/Squeak Smalltalk | fn | fn := [:m | | table | table := #(98 100 198 200 250 298). table detectMin: [:x | (x - m) abs] ]. fn value: 50. "=> 98 " fn value: 195. "=> 198 " 972 名前：デフォルトの名無しさん mailto:sage [2019/11/13(水) 14:07:45.70 ID:9sxFrKBI.net] >>941 https://ideone.com/wJ8lPk C++。多分動いてるけど、境界線系のエラーハンドリングは適当。 973 名前：デフォルトの名無しさん mailto:sage [2019/11/13(水) 15:30:27.12 ID:EqcpRCSG.net] どう考えても線形探索の方が簡単で速い 1回だけなら 974 名前：デフォルトの名無しさん [2019/11/13(水) 18:24:57.67 ID:utJBi2wY.net] >>941 Lua function f(a, x) local res = a[1] for i = 2, #a do if math.abs(res - x) > math.abs(a[i] - x) then res = a[i] end end return res end 975 名前： mailto:sage [2019/11/13(水) 20:03:11.45 ID:ESFhNQze.net] >>944 https://mevius.5ch.net/test/read.cgi/tech/1434079972/53 976 名前：デフォルトの名無しさん mailto:sage [2019/11/13(水) 20:28:42.98 ID:6mLuLK4e.net] >>941 octave https://ideone.com/kbVTGp 977 名前：デフォルトの名無しさん [2019/11/13(水) 20:40:25.65 ID:H1DP2m/6.net] >>944 >>1002 978 名前：デフォルトの名無しさん [2019/11/13(水) 20:48:13.08 ID:CMaH4qd1.net] >>941 C++ならSTLのequal_rangeを使えば、二分探索のコードを自前で書かずに済む。 https://ideone.com/KJ134u この例の条件でしか判定しないなら、5つの定数値との比較にするのが一番簡単で 速そうだな。 https://ideone.com/ef553N 979 名前：デフォルトの名無しさん mailto:sage [2019/11/13(水) 21:39:03.09 ID:Fqkv69gY.net] なんで順番に5回も比較してんの？ 980 名前：デフォルトの名無しさん mailto:sage [2019/11/13(水) 21:47:59.14 ID:kE3A4AyF.net] 10回比較するわけにはいかないからでしょ 981 名前：デフォルトの名無しさん mailto:sage [2019/11/13(水) 21:53:11.46 ID:RzCRvdkP.net] まずは199との比較では？ あとは範囲を絞ったテーブルとか int全てをカバーするテーブルも intが32bitな64bit環境なら一応は可能 982 名前：蟻人間 mailto:sage [2019/11/13(水) 22:09:59.79 ID:SHPlbPC2.net] お題: 自動塗り絵。 白地に黒い線で図形が描かれているモノクロ画像が与えられる。 白い領域をそれぞれ適当な単色で塗りつぶせ。可能ならOpenCVを使ってもいい。 983 名前：デフォルトの名無しさん mailto:sage [2019/11/13(水) 22:51:59.05 ID:RzCRvdkP.net] ペイントブラシ + スクリプト で出来そう 984 名前：デフォルトの名無しさん [2019/11/13(水) 23:03:48.70 ID:CMaH4qd1.net] >>955 「一番速い」ではなく「一番簡単で速い」だからね。可読性とかバグの 混入しにくさとかも考えると、順番に5回比較するのが一番良いだろ。 特に https://mevius.2ch.net/test/read.cgi/tech/1573214616/3 への 回答としては、最も適している。 985 名前：デフォルトの名無しさん mailto:sage [2019/11/13(水) 23:40:49.81 ID:RzCRvdkP.net] 一番速くもないし一番簡単でもない 一番「簡単で速い」？ 簡単と速いは相反するので一番なんて無い 986 名前：デフォルトの名無しさん mailto:sage [2019/11/13(水) 23:42:10.65 ID:RzCRvdkP.net] 凡人が安易に｢一番｣とか言わない方が良いよ 987 名前：デフォルトの名無しさん [2019/11/14(木) 01:06:49.29 ID:4AhPUV/Y.net] 俺が一番 988 名前：デフォルトの名無しさん [2019/11/14(木) 06:15:22.98 ID:BnXMw1SX.net] >>941 Io f:=method(a,x, a map(v,list((v-x)abs,v))min last ) d:=list(98,100,198,200,298) f(d,120) println 実行結果 100 989 名前：デフォルトの名無しさん mailto:sage [2019/11/14(木) 09:31:40.70 ID:baSi3t2K.net] 一番簡単で速いってなんだよ 一番簡単かつ一番速いなら一番速いって言えばいいだけだろ ってC++の人かよ 990 名前：デフォルトの名無しさん mailto:age [2019/11/14(木) 12:32:18.21 ID:WVE0j82D.net] 一番に過剰反応してるみなさんwww 991 名前：デフォルトの名無しさん mailto:sage [2019/11/14(木) 13:14:51.59 ID:/NpdgKVA.net] 一番とか最も適しているとか 頭が悪いやつが良く言うセリフ 992 名前：デフォルトの名無しさん mailto:sage [2019/11/14(木) 13:27:39.39 ID:isT1FYJS.net] それな あと｢頭悪いやつがよく言う｣ってのも頭悪いやつよく言うセリフだわ 993 名前：デフォルトの名無しさん mailto:sage [2019/11/14(木) 15:14:06.76 ID:1CVvHcAw.net] >>941 python https://ideone.com/g2dWOw 994 名前：デフォルトの名無しさん mailto:sage [2019/11/14(木) 16:23:41.28 ID:bZ2yXVXr.net] >>963 俺、よくmakehoge書いてる人だけど、その二分探査書いた人は別人。 偶に、俺じゃない人がC++書いてくことがある。 まぁ、俺も貢献度が高いかというと解らんけど。 995 名前：デフォルトの名無しさん [2019/11/14(木) 22:16:17.11 ID:ya/1xYDt.net] >>963 「一番簡単で速い」は「一番簡単」かつ「速い」という意味だよ。 一番簡単なコードを書いてみて充分に速ければ、さらに手を加える必要はないってこと。 昨今はCPUが速いので、簡単なコードをささっと書いて終わりにできる場合が多いし、 Cを使うまでもなくRやPythonなどでも実用に耐える。処理条件が変わって速度に 不満が生じたときだけ、書き直せば良い。 996 名前：デフォルトの名無しさん mailto:sage [2019/11/14(木) 22:21:25.20 ID:KjmBL3+S.net] 配列をキャッシュに乗せるだけで早くなる 配列にするだけで早くなる 997 名前：デフォルトの名無しさん [2019/11/14(木) 23:43:50.36 ID:ya/1xYDt.net] >>970 >>941の最も近い値を求める処理(Aと呼ぶ)だけを複数回連続して行う場合はそうだが、 間に別の処理(Bと呼ぶ)がたくさん入る場合はキャッシュから外れるかも知れないし、 AよりもBの方で相対的にだいぶ長い時間がかかっているならば、Aを高速化する 意味はない。 Aを簡単に書き終え、Bを書き進めてプログラム全体を完成させ、各部分の実行時間を デバッガで分析し、Aを高速化する必要があるか判定するのが効率的な開発方法。 必要なときだけAを書き直してみて、元のAと実行時間を比較し、顕著に速い場合だけ 採用する。あまり変わらない場合は元の 998 名前：簡単な方に戻す。 [] [ここ壊れてます] 999 名前：デフォルトの名無しさん mailto:sage [2019/11/15(金) 06:08:37 ID:/dDy1LQy.net] >>969 なぜ 一番簡単 だと思ったのか 1000 名前：デフォルトの名無しさん mailto:sage [2019/11/15(金) 06:11:01 ID:/dDy1LQy.net] 中途半端に最適化するくらいなら 意味通りをそのまま記述した方が良いよ トリッキーなマクロとか使わないで普通にループでいいし 1001 名前：デフォルトの名無しさん [2019/11/15(金) 07:24:03.38 ID:YlbiRAmO.net] >>941 J f =: 4 : 0 {. x /: | x - y ) a =: 98 100 198 200 250 298 a f 199 198 1002 名前：デフォルトの名無しさん mailto:sage [2019/11/15(金) 08:39:52.88 ID:zGnI3whh.net] >>491 python 整数の範囲を 1000000000 にして、リストのサイズをその1/10の　100000000 にしてやった物 https://ideone.com/JL4ZtG 1003 名前：デフォルトの名無しさん mailto:sage [2019/11/15(金) 08:46:57.30 ID:pd2oXw5y.net] お題はどれ？ 1004 名前：デフォルトの名無しさん mailto:sage [2019/11/15(金) 10:34:11.71 ID:zGnI3whh.net] >>975 は、>>941 のお題の間違い。 1005 名前：デフォルトの名無しさん mailto:sage [2019/11/15(金) 10:34:39.11 ID:kGxI2dsU.net] >>972 もっと簡単なのがあると言うなら提示すりゃいいだけ 1006 名前：デフォルトの名無しさん mailto:sage [2019/11/15(金) 10:37:36.49 ID:Dg2kwGpJ.net] そんなら一番簡単なんて言ったもん勝ちやんアホクサ 1007 名前：デフォルトの名無しさん mailto:age [2019/11/15(金) 11:19:40.93 ID:y6ix6SXf.net] >>979 どういうこと？ 1008 名前：デフォルトの名無しさん mailto:sage [2019/11/15(金) 13:20:35.16 ID:pd2oXw5y.net] 発言者に証明責任がある 当たり前 1009 名前：デフォルトの名無しさん mailto:sage [2019/11/15(金) 13:22:00.36 ID:pd2oXw5y.net] 簡単じゃない部分は書いたけどね 1010 名前：デフォルトの名無しさん mailto:sage [2019/11/15(金) 13:25:38.61 ID:pd2oXw5y.net] 本当に一番簡単だと思ってるなら 非常に頭が弱い というしかない 1011 名前：デフォルトの名無しさん mailto:age [2019/11/15(金) 16:04:20.43 ID:y6ix6SXf.net] 証明責任が 1012 名前：デフォルトの名無しさん [2019/11/15(金) 18:45:17.65 ID:YlbiRAmO.net] >>941 Ruby def f(a,x) a.min_by{|v|(v-x).abs} end 1013 名前：デフォルトの名無しさん mailto:sage [2019/11/15(金) 22:18:10.52 ID:1XAUh39O.net] >>982 ひょっとして>>973か？ 頓珍漢な指摘でドヤられても困るw 1014 名前：デフォルトの名無しさん mailto:sage [2019/11/16(土) 07:59:12.18 ID:PKd8UO5d.net] お前ちょっとしつこいよ 二人ともどっか行ってくれ 1015 名前：デフォルトの名無しさん mailto:sage [2019/11/16(土) 09:38:56.12 ID:R3eXoa4h.net] お題: 標準入力から読み取った文字列に対して変換候補の単語を表示するスクリプトを作れ 変換候補は https://www.cs.cmu.edu/~rgs/alice-table.html のテキストを元にし、英文のみの対応とする 例: in < on out > ['on', 'once', 'one', 'only'] in < we out > ['well', 'went', 'were'] 1016 名前：デフォルトの名無しさん mailto:sage [2019/11/16(土) 09:39:44.99 ID:R3eXoa4h.net] >>988 URL訂正: https://www.cs.cmu.edu/~rgs/alice-I.html 1017 名前：10-11 mailto:sage [2019/11/16(土) 11:43:03.30 ID:nyexrMnj.net] Mathematica ビットテーブル使ったからいまいち f[x_]:=Round[Exp[x*49/2^9]*10]+Mod[BitShiftRight[8518656,x],2] f[Range[0,23]] {10,11,12,13,15,16,18,20,22,24,27,30,33,36,39,43,47,51,56,62,68,75,82,91} 1018 名前：デフォルトの名無しさん mailto:sage [2019/11/16(土) 13:01:44.00 ID:9Ne+J8hx.net] >>988-989 PowerShell $Words = ([RegEx]"\w+").Matches((Invoke-WebRequest 'https://www.cs.cmu.edu/~rgs/alice-I.html').Content) | Select-Object -ExpandProperty 'Value' | Sort-Object -Unique 'on', 'we' | %{ "'$_' => ['$($Words -cmatch "^$_.*$" -join ''', ''')']" } -- 'on' => ['on', 'once', 'one', 'only'] 'we' => ['well', 'went', 'were'] 1019 名前：蟻人間 mailto:sage [2019/11/16(土) 14:12:37.63 ID:wI2tFyzM.net] そろそろ次スレ 1020 名前：デフォルトの名無しさん [2019/11/16(土) 20:00:42.94 ID:ycfnvugG.net] >>987 誤解がないように一応言っておくが、同一人物なのは943, 952, 958, 969, 971, 993だけで、 978や986は別人ね。 1021 名前：デフォルトの名無しさん mailto:sage [2019/11/16(土) 20:11:13.21 ID:SjIOWxyj.net] どうでもいい 匿名掲示板 1022 名前：デフォルトの名無しさん mailto:sage [2019/11/16(土) 22:09:51.31 ID:ByTTIV4m.net] >>988 @Mathematica https://ideone.com/3Ad2Nv 1023 名前：デフォルトの名無しさん mailto:sage [2019/11/17(日) 09:01:36.94 ID:xqEdXdr6.net] 次スレ プログラミングのお題スレ Part16 mevius.5ch.net/test/read.cgi/tech/1573948822/ 1024 名前：990 mailto:sage [2019/11/17(日) 15:37:45.58 ID:WMPUR+bY.net] BitGet使うんだった(Mathematicaに慣れてないのばればれ) (* 49/2^9 = 0.095703125 *) f[x_]:=Round[Exp[x*0.095703125]*10]+BitGet[8518656,x] もう少し頑張っても16ビット以内にビットテーブルは縮小出来ず…。 (* 785/2^13 = 0.0958251953125 *) f[x_]:=Round[Exp[x*0.0958251953125]*10]+BitGet[130048,x] 1025 名前：デフォルトの名無しさん [2019/11/21(木) 12:06:42.30 ID:p+kY48sO.net] >>941 julia a=[98,100,198,200,250,298] f(a,x)=a[argmin(map(abs ,a.-x))] f(a,50) 1026 名前：デフォルトの名無しさん mailto:sage [2019/11/21(木) 17:12:54.10 ID:x85mexbT.net] >>988-989 Squeak Smalltalk。関数で。 | contents words fn | contents := (HTTPClient httpGet: 'https://www.cs.cmu.edu/~rgs/alice-I.html') contents. words := (contents replaceAll: Character lf with: Character space; asTextFromHtml) asString subStrings: ' !"''()*,-.:;?`'. words := words asSet asSortedArray. fn := [:in | words select: [:word | word beginsWith: in]]. fn value: 'on'. "=> #('on' 'once' 'one' 'only') " fn value: 'we'. "=> #('well' 'went' 'were') " "for Pharo => ws.stfx.eu/DK48GF5ZH8SF " 1027 名前：蟻人間 mailto:sage [2019/11/21(木) 20:01:07.49 ID:KAM+noJg.net] はかい こうせん せんもんがっこう 1028 名前：1001 [Over 1000 Thread.net] このスレッドは１０００を超えました。 新しいスレッドを立ててください。 life time: 116日 0時間 21分 10秒 1029 名前：1002 [Over 1000 Thread.net] 5ちゃんねるの運営はプレミアム会員の皆さまに支えられています。 運営にご協力お願いいたします。 ─────────────────── 《プレミアム会員の主な特典》 ★ 5ちゃんねる専用ブラウザからの広告除去 ★ 5ちゃんねるの過去ログを取得 ★ 書き込み規制の緩和 ─────────────────── 会員登録には個人情報は一切必要ありません。 月300円から匿名でご購入いただけます。 ▼ プレミアム会員登録はこちら ▼ https://premium.5ch.net/ ▼ 浪人ログインはこちら ▼ https://login.5ch.net/login.php 1030 名前：過去ログ ★ [[過去ログ]] ■ このスレッドは過去ログ倉庫に格納されています

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef