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

1 名前：デフォルトの名無しさん mailto:sage [2018/09/28(金) 10:09:07.13 ID:phwOkayR.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/ 宿題は宿題スレがあるのでそちらへ。 前スレ プログラミングのお題スレ Part10 https://mevius.5ch.net/test/read.cgi/tech/1514772904/ プログラミングのお題スレ Part11 https://mevius.5ch.net/test/read.cgi/tech/1524570314/ 862 名前：デフォルトの名無しさん mailto:sage [2018/12/16(日) 13:54:15.20 ID:ob8ozoeg.net] [お題] 来年と素数 今年も残りわずか、来年は2019年で平成31年。 1)"2019"の省略形の"19"について。 　素数の和で19を作る、すべての素数配列を列挙せよ(できれば辞書順で)。 　同じ素数を何個使ってもよいが、同じ素数同士は区別しない。 　・例えば対象が"11"だと以下の6つ 　{2, 2, 2, 2, 3} 　{2, 2, 2, 5} 　{2, 2, 7} 　{2, 3, 3, 3} 　{3, 3, 5} 　{11} 　以下 2)3)4)は種類計のみ答える(明細は多いので略)。 2)来年の初まりは平成31年で、"31"について。 　素数の和で31を作る、その種類はいくつか。条件は1)と同様。 3)素数の和で2019を作る、その種類はいくつか。条件は1)と同様。 4)2019と31を続けた数 201931(=2019*100+31)について。 　素数の和で201931を作る、その種類はいくつか。 　但し、使用していい素数は31以下の素数かつ、 　同じ素数は最大2019個までしか使えない。同じ素数は区別しない。 　※ 3)4)は64bit整数を超えるので、下10桁だけの回答も可。 863 名前： mailto:sage [2018/12/16(日) 14:12:11.90 ID:IjCemHtZ.net] >>835 年忘れ課題の時期になったんですね… 864 名前：デフォルトの名無しさん mailto:sage [2018/12/16(日) 19:04:23.02 ID:P931WLXH.net] >>835 Java https://ideone.com/LgkDWF あってんのかなー 865 名前：830 mailto:sage [2018/12/16(日) 19:54:33.15 ID:GrZg6kve.net] >>837 2)の31からして自分のと違う。 自分のでは111だった。 javaのやついじって、112個の明細を出してみたら、[2,2,27] があった。 27は素数じゃないよね。いじり方が悪い？ 866 名前：デフォルトの名無しさん mailto:sage [2018/12/16(日) 19:56:19.00 ID:pjubjjb0.net] >>838 自分も31は111だったわ 867 名前：デフォルトの名無しさん mailto:sage [2018/12/16(日) 20:37:34.86 ID:VvrWecHB.net] >>835 Ruby 1)は省略 require 'prime' def fuge(n, cand = Prime.to_a(n), h = {}, succ = 0) c0 = cand[0] return h[[n, c0]] if h[[n, c0]] return 0 if n == 0 || !c0 || n < c0 return 1 if n == c0 x = succ == 2019 ? 0 : fuge(n - c0, cand, h, succ + 1) h[[n, c0]] = fuge(n, cand[1..-1], h) + x end p fuge(19) # => 23 p fuge(31) # => 111 p fuge(2019) # => 576202207044176168646563 p fuge(201931, Prime.to_a(31)) # => 4021686887140718864271667825968903 868 名前：デフォルトの名無しさん mailto:sage [2018/12/16(日) 20:50:18.98 ID:P931WLXH.net] >>838 まじだ・・・修正した 犯人は118行目だ！orz 869 名前：830 mailto:sage [2018/12/17(月) 20:45:38.05 ID:4p2KDXiR.net] >>837 836 　当方の回答と一致しました。 >>840 4) 201931 だけ異なる(自分のがあっているとは限らないが……)。 ※再帰の動きがよくわからない 870 名前：830 mailto:sage [2018/12/20(木) 20:26:37.78 ID:W0v1JICZ.net] >>835　python https://ideone.com/OFR7bn 　間が空いたので、出題者コメント 　1)問題文説明用に書いてみて、問題にもできると思った。 　2)3)は"オイラー 31 DP"でググってください。 　違いはコインの額面が素数に変わったくらいと、おおきさ。 　なかには一つ一つ数えて、本問の2)しか溶けない回答があるので見分けて。 　4)については、ソース上三種類書いて考察しています。 　 ("201931"という変な数値は、3重ループ解を落とすのが目的だった) 871 名前：デフォルトの名無しさん mailto:sage [2018/12/21(金) 08:20:43.27 ID:hMEdBbLv.net] お題： 真理値表から２入力NANDで最小ゲート数回路を作れ。実用上最も重要な問題群 872 名前：デフォルトの名無しさん mailto:sage [2018/12/21(金) 08:38:52.94 ID:choQhZIj.net] 遅延時間とかファンアウトとかは考慮不要ってことでいいのかな 873 名前：デフォルトの名無しさん [2018/12/22(土) 11:29:36.65 ID:7UfbjIEE.net] 参考にどうぞ https://eng.kice.tokyo/logic/logic_ex3/ 874 名前： mailto:sage [2018/12/22(土) 16:28:53.58 ID:vmp1HvU+.net] >>846 昔カルノー図がかける範囲（3入力？4入力くらいだったかな？）で簡約化ツールを作ったことがあります 当時は書き捨て上等、でやっていたのですが、今は困ってしまっています、当時のプログラム記述能力は当時は今後もずっと保存されるものと当時は考えていたのですが、それは完全な誤りでした… 875 名前：デフォルトの名無しさん mailto:sage [2018/12/23(日) 16:48:28.85 ID:V9Fp8lZV.net] >>846 俺全然わかってない人なんだけど、 そのURLの一番下の、入力部分のNOTゲートを無視しない場合、 9個のNANDゲートで構成できるって書いてあるけど、 NOTゲートの部分を2個減らして7個で作るとかはあかんのん？ 876 名前：デフォルトの名無しさん mailto:sage [2018/12/23(日) 16:56:13.54 ID:jMuRFGAa.net] 半導体製造のコストがある NANDゲートは作り易い、というか造りが簡素で単純 NOTゲートも作り易い なので厳密には製造コストも考えないといけない 877 名前：デフォルトの名無しさん mailto:sage [2018/12/23(日) 17:29:24.88 ID:gPP7+XoH.net] >>848 ホントだ、AとCのNOTを一つずつ減らせるね というかこれが最小になる保証もないよね 878 名前：デフォルトの名無しさん mailto:sage [2018/12/23(日) 18:34:59.46 ID:m1FIlPHW.net] >>846 カルノー図からの簡略結果が最終形ではない。 最終形は Z=~ABC+A~C+~BC 879 名前：デフォルトの名無しさん mailto:sage [2018/12/23(日) 21:11:36.62 ID:9AXglOVX.net] >>851 それA=0, B=0, C=0の結果から間違ってるんだが 880 名前：デフォルトの名無しさん mailto:sage [2018/12/23(日) 23:39:28.74 ID:DR7zt9Cz.net] >>852 うむ 最終形は Z=~ABC+A~C+~B~C ですね ２入力NAND回路は Step 9, Solution 1 0 : -1, -1: 0, 0, 0, 0, 1, 1, 1, 1 1 : -1, -1: 0, 0, 1, 1, 0, 0, 1, 1 2 : -1, -1: 0, 1, 0, 1, 0, 1, 0, 1 3 : 0, 0: 1, 1, 1, 1, 0, 0, 0, 0 4 : 3, 1: 1, 1, 0, 0, 1, 1, 1, 1 5 : 4, 2: 1, 0, 1, 1, 1, 0, 1, 0 6 : 5, 2: 1, 1, 1, 0, 1, 1, 1, 1 7 : 5, 4: 0, 1, 1, 1, 0, 1, 0, 1 8 : 7, 6: 1, 0, 0, 1, 1, 0, 1, 0 ともう一つでした。 881 名前：デフォルトの名無しさん mailto:sage [2018/12/24(月) 08:22:13.10 ID:bL5ZoHRn.net] >>853 > Z=~ABC+A~C+~B~C それA=0, B=1, C=0の結果が違うぞ 882 名前：デフォルトの名無しさん mailto:sage [2018/12/24(月) 11:32:09.70 ID:7aEQUcJ6.net] >>854 ~ABC → C=0なので0 A~C → A=0なので0 ~B~C → B=1なので0 結果0であってるんじゃないのん？ 883 名前：デフォルトの名無しさん mailto:sage [2018/12/24(月) 13:42:11.05 ID:bL5ZoHRn.net] >>855 すまん、合ってるわ ちょっとボケてたな 884 名前：デフォルトの名無しさん mailto:sage [2018/12/26(水) 16:33:56.35 ID:GYS6kcBm.net] >>853 wxMaximaでお絵描きした。 /* [wxMaxima: input start ] */ load (graphs)$ gg() := draw_graph( net, show_weight=true, vertex_size=3, show_id=true, show_vertices=[0,1,2,8], show_vertex_type=filled_square, head_length=0.2, head_angle=5, edge_color="dark-green", text_color=blue ); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ Solution[1]:[[[ 0, 3],2],[[ 3, 4],1],[[ 1, 4],1], [[ 4, 5],1],[[ 2, 5],1],[[ 5, 6],1],[[ 2, 6],1], [[ 5, 7],1],[[ 4, 7],1],[[ 7, 8],1],[[ 6, 8],1]]$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ aa:1$ for g:aa thru 1 do ( net : create_graph(9,Solution[g],directed=true), print("Solution",aa,Solution[g]),aa:aa+1, gg()); /* [wxMaxima: input end ] */ 885 名前：デフォルトの名無しさん mailto:sage [2019/01/06(日) 20:37:20.68 ID:uX30aAuK.net] エモい歌うまバーチャルユーチューバー https://script.google.com/macros/s/AKfycbxuAt1ejx43_zMRfK7Xplwgwn7cXDQAdZTJkDdLrVCLo8SIdhI/exec 今、見られている話題のVtuberを知りたいなら、ハルカス式Vtuberランキングを見ましょう 【ハルカス式Vtuberランキング】※毎週・毎月自動更新 https://script.google.com/macros/s/AKfycbzZO93mJcZ5M_dPmIZOzuVQNr4mcGwQQdiT7GiLld_1Uews7uE/exec 年末年始の一週間12/27〜01/02までのハルカス式Vtuberランキング https://docs.google.com/spreadsheets/d/1jdVQ2r5yTrAykMRF1nuX6_5DXpK0167D4JcVCQZTJdM/edit#gid=157464142 年末の一ヶ月12/1〜12/31までのハルカス式Vtuberランキング https://docs.google.com/spreadsheets/d/1Yc6HD_h4lfurme9b3T0ZXBf2-iBpFSmMGg-1bdgSe0E/edit#gid=1971024984 第４回バーチャルYouTuber人気投票募集中（全304名、2018年11月23日〜） あなたの好きなVtuberは？５問（配信内容、トーク、歌うま、ゲーム実況、キャラデザ） https://script.google.com/macros/s/AKfycbwSwNBm8qYD4_kZN2uJLeqRIP8Mwpbo3YDTUEpaSMU02BDAR3jh/exec ・Googleフォームは標準仕様では不正投票が可能な為、改造して対策を行いました。 ・2018/11/23時点でチャンネル登録数10,000人以上のuserlocalに登録されたVtuberを対象としています。 ・一つのチャンネルでVtuberが複数人いる場合は、それぞれ分けています。 ・このフォームに投票するにはグーグルアカウントでログインする必要はありません。 ・並び順は前回の得票数の高い順と新人は登録者数の多い順に並んでいます。 ・今回も1,000人の方が投票するまで継続します。 なお投票結果はスプレッドシートにリアルタイムで表示されるようにしました。 また【概要】と【詳細】でシートを分けております。 https://docs.google.com/spreadsheets/d/1udB81Vnia9CoIgPaan3a5XFeaCfcnBXkRoPTuxvRpAc/ ｇｒげｒげ 886 名前：デフォルトの名無しさん [2019/01/18(金) 22:48:43.15 ID:sD1souQd.net] あげ 887 名前：デフォルトの名無しさん [2019/01/19(土) 05:22:33.88 ID:M8Q3zGyy.net] 過疎ってるので別スレのこれをお題にする。 なお、クラスではなく関数でもサブルーチンでも良い。 https://mevius.5ch.net/test/read.cgi/tech/1544839627/332 332 デフォルトの名無しさん (ﾜｯﾁｮｲ f11f-t+p0) sage 2019/01/18(金) 22:57:58.37 ID:1ZiD/8V00 文字列から数字をtmpWとtmpHに抜き出すクラスを作りたいのですがどうしたらいいですか？ 演算子記号は+−もある、数字の桁数は不明で小数点もあり、数字が入るときは小文字一字始まり、引数はw or hで抜き出す戻り値を示す。 対象文字 �@w900×ＨH �AWW×h1000 �BWW×HH �Cw900/h100 結果 引数がwなら左　 hなら右 �@tmpW=900　tmpH=�W�W �AtmpW=�W�W tmpH=1000 �BtmpW=�W�W　tmpH=�W�W �CtmpW=900　tmpH=1000 888 名前：デフォルトの名無しさん mailto:sage [2019/01/19(土) 08:17:19.40 ID:9NMu+pMT.net] お題スレじゃなくて、あなたの宿題無料でやりますよになってる 889 名前：デフォルトの名無しさん [2019/01/19(土) 09:54:02.71 ID:9IabhBF0.net] >>860 Ruby f = -> str {str.scan(/([A-Z]{2}|[a-z])((?:\d+\.)?\d+)?/).each_with_object({}){|(m, num), h| h["tmp#{m[0].upcase}"] = !num ? ' ' : num.match?(/\./) ? num.to_f : num.to_i}} %w[ 　　w900×HH WW×h1000 WW×HH w900/h100 w3.14/h2.72 ].each{|e| h = f[e]; puts "#{e} -> " + h.map{|v| '%s = %p' % v}.join(', ')} # => w900×HH -> tmpW = 900, tmpH = " " WW×h1000 -> tmpW = " ", tmpH = 1000 WW×HH -> tmpW = " ", tmpH = " " w900/h100 -> tmpW = 900, tmpH = 100 w3.14/h2.72 -> tmpW = 3.14, tmpH = 2.72 890 名前：デフォルトの名無しさん mailto:sage [2019/01/19(土) 12:58:12.91 ID:XYN5JTgF.net] > �CtmpW=900　tmpH=1000 891 名前：デフォルトの名無しさん [2019/01/19(土) 15:20:58.20 ID:M8Q3zGyy.net] >>861 お題をやるかどうかは自由だし使う言語も自由なのでここは宿題向きスレではない。それに宿題用のスレは別にある。 892 名前：デフォルトの名無しさん [2019/01/20(日) 17:00:10.01 ID:XepLmY3z.net] お題 チェス盤をかく □■□■□■□■ ■□■□■□■□ □■□■□■□■ ■□■□■□■□ □■□■□■□■ ■□■□■□■□ □■□■□■□■ ■□■□■□■□ 893 名前：デフォルトの名無しさん mailto:sage [2019/01/20(日) 17:28:18.15 ID:bv4HmLR/.net] for i in range(4): print("□■□■□■□■") print("■□■□■□■□") 894 名前：デフォルトの名無しさん mailto:sage [2019/01/20(日) 18:45:01.40 ID:vla32kuj.net] console.log(` □■□■□■□■ ■□■□■□■□ □■□■□■□■ ■□■□■□■□ □■□■□■□■ ■□■□■□■□ □■□■□■□■ ■□■□■□■□ `); 895 名前：デフォルトの名無しさん mailto:sage [2019/01/20(日) 19:21:05.18 ID:QLQt0ffh.net] >>865 85kg 170cmの俺がJavascriptで回答。 [85, 170] .map(d => [...d.toString(2).padStart(8,0)] .map(b => +b ? '□' : '■') .join`` + '\n') .join`` .repeat(4) 896 名前：デフォルトの名無しさん mailto:sage [2019/01/20(日) 19:39:43.28 ID:CUY2SNg1.net] >>865 Ruby puts 72.times.map{|i| i % 9 / 8 * 10 + 15 / (i % 9 + 8) * (i & 1 ^ 9633)}.pack('U*') # => □■□■□■□■ ■□■□■□■□ □■□■□■□■ ■□■□■□■□ □■□■□■□■ ■□■□■□■□ □■□■□■□■ ■□■□■□■□ 897 名前：デフォルトの名無しさん mailto:sage [2019/01/20(日) 19:45:27.08 ID:z2xvgkTe.net] >>868 >>869 お前ら天才だな 普段何やってんの 898 名前：デフォルトの名無しさん mailto:sage [2019/01/20(日) 19:58:44.02 ID:vla32kuj.net] >>870 ヒマ人どもの公開オナニーに騙されるな。 ベンチ取ってみれば分かるけど >>868より>>867のほうが処理速度も速く、CPU、メモリ消費も勝ってる。 899 名前：デフォルトの名無しさん mailto:sage [2019/01/20(日) 22:22:45.08 ID:n75q6Hj+.net] 解法や工夫は色々あっていい 900 名前：デフォルトの名無しさん mailto:sage [2019/01/20(日) 23:40:01.19 ID:3oCDYmJz.net] >>871 可読性も最強だしなｗ 901 名前：デフォルトの名無しさん [2019/01/21(月) 00:16:11.01 ID:evkqklOK.net] 前々からつくろうとしていまだ決定版ができてないのがある。 コマンド　fileA fileBで、重複行を除いて連結と、 A-Bで重複行を除くやつ。入力が数百Mだときつい。 902 名前：デフォルトの名無しさん [2019/01/21(月) 00:20:48.31 ID:q5TMCwho.net] きついのは口臭だけにしとけよ 903 名前：デフォルトの名無しさん mailto:sage [2019/01/21(月) 04:33:49.89 ID:ZCrWhalc.net] >>874 Linux とかでよく使われるシェル(bash とか)ならこんな感じだろうな。 ( uniq fileA ; uniq fileB ) > fileC シェルスクリプトにするならこんな内容のファイルを作ってそれの実行パーミッション立てておくだけ。 #!/bin/sh uniq $1 uniq $2 ようするに uniq コマンド使ってるだけ。 Windows でも似たようなものはあるかも知れないが WSL 入れて Ubuntu とか動かしちゃった方が何も考えずに Linux 風にできるので楽かも知れない。 /mnt/c/ にCドライブマウントされてるからファイルのやり取りを考える必要もない。 改行が LF なのとデフォルトのエンコーディングが UTF-8 なのは考慮する必要があるが。 904 名前：デフォルトの名無しさん [2019/01/21(月) 07:09:30.84 ID:evkqklOK.net] そんな機能あったっけ、と確認したみたけど意図する動作しない、連続しない重複も対象 Linuxコマンド集　【 uniq 】 ソート済みのファイルから重複した行を削除する ファイルで重複している行を削除する。ただし，ファイルはソートしてある必要がある https://tech.nikkeibp.co.j 905 名前：p/it/article/COLUMN/20060227/230918/ 連続していない離れた重複行も削除したければ、sortコマンドコマンドで予めソートする必要がある。その代わり順番は保存されない。 https://hydrocul.github.io/wiki/commands/uniq.html [] [ここ壊れてます] 906 名前：デフォルトの名無しさん mailto:sage [2019/01/21(月) 08:10:55.04 ID:rd0KMO5T.net] 要するにAの末尾とBの先頭で一致するとこだけを削除したいってこと？ 907 名前：デフォルトの名無しさん [2019/01/21(月) 08:19:59.40 ID:evkqklOK.net] ２つあって。 一つは連結した単一ファイルで、後方にある重複行を取り除く。 もう一つはBに存在する行を取り除いたAの重複行を取り除く。 それぞれuniq拡張(A+B)　、uniq拡張(A-B)のような。 908 名前：デフォルトの名無しさん [2019/01/21(月) 09:47:36.96 ID:evkqklOK.net] スクリプトやめてC++でやってみたら ロードと書き込みの速度とほぼ同程度でできるようだ。 909 名前：デフォルトの名無しさん [2019/01/21(月) 11:56:42.83 ID:ub5sAEWO.net] >>865 J }:("1) 8 9 $ '_#' _#_#_#_# #_#_#_#_ _#_#_#_# #_#_#_#_ _#_#_#_# #_#_#_#_ _#_#_#_# #_#_#_#_ 910 名前：デフォルトの名無しさん mailto:sage [2019/01/21(月) 13:07:07.09 ID:jV3tC4jb.net] JってUnicode使えないの？ 911 名前：デフォルトの名無しさん [2019/01/21(月) 13:14:23.06 ID:ub5sAEWO.net] 使えるんだけど私の方が勉強不足で。 912 名前：デフォルトの名無しさん [2019/01/21(月) 14:03:05.80 ID:chW+Guj1.net] >>865 Perl https://paiza.io/projects/06iuVCc-HeWgTb7j2TrTMQ 913 名前：デフォルトの名無しさん mailto:sage [2019/01/21(月) 14:14:22.79 ID:P73TaUU+.net] >>879 A-Bの部分は grep -x -v -f B A でできるけど順序を保存したuniqはコマンドだけではできないのかな 914 名前：デフォルトの名無しさん [2019/01/21(月) 18:14:39.49 ID:chW+Guj1.net] そういうコマンドを別途作るか、全部作っちゃうかかな。 915 名前：デフォルトの名無しさん mailto:sage [2019/01/21(月) 21:03:38.83 ID:mEBdwP2z.net] Ruby なら、ハッシュで重複行を排除できる。 ARGF は、a.txt b.txt (ARGV)を連結した、仮想ファイル ruby script.rb a.txt b.txt 以下は、script.rb の内容 hash = { } ARGF.each_line { |line| hash[ line ] = true } # true には、特に意味がない puts hash.keys -- a.txt あ a あ b -- b.txt x あ a ん -- 出力 あ a b x ん 916 名前：デフォルトの名無しさん [2019/01/21(月) 21:49:42.62 ID:QH90tNLy.net] 速度出るのできた。CRCと文字列長のハッシュしかみてなく重複らしいのはduplicate.txtへ。 標準出力 deldup.exe fileA fileB ・・・　はマージして重複削除 deldup.exe /D fileA fileB ・・・　はA -B -・・・の重複削除 https://ideone.com/ABJNAy 917 名前：デフォルトの名無しさん mailto:sage [2019/01/21(月) 22:56:33.96 ID:uToUSKRf.net] >>865 octave https://ideone.com/KyX1rR 918 名前：デフォルトの名無しさん mailto:sage [2019/01/21(月) 23:04:52.30 ID:PFiT+1XJ.net] >>226 Javaはunsignedの概念がない 919 名前：デフォルトの名無しさん mailto:sage [2019/01/22(火) 02:53:38.24 ID:t1xtxA/a.net] >>879 後方にある重複業削除なら awk で連想配列(要するにハッシュ)使ってこんな風にすればできるな。 awk '{if(!n[$0]){n[$0]=1;print}}' fileA fileB ただし全行をメモリ上に置くことになるのでファイルがでかいとまともに動かない環境があるかも。 超大きいファイルの場合は行ごとに MD5 や SHA1 等のハッシュ値計算してそれだけ保管しておいて比較した方が良いかもね。 920 名前：デフォルトの名無しさん [2019/01/22(火) 10:22:28.48 ID:f5q/almD.net] >>865 Lua for i=1,72 do if i%9==0 then print("") else io.write(({"■","□"})[i%2+1]) end end 921 名前：デフォルトの名無しさん mailto:sage [2019/01/22(火) 11:22:34.61 ID:ez/DcBYq.net] 普通に行ごとにソートして重複を除去すればいいだけやん 922 名前：デフォルトの名無しさん mailto:sage [2019/01/22(火) 12:39:35.18 ID:bOf9t ] [ここ壊れてます] 923 名前：fZi.net mailto: >>865 javascript [...function*(){for(var i=0;i<64;i++)yield (i&7)==7?'\n':'■□'[i&8?i%2:+!(i%2)]}()].join`` [] [ここ壊れてます] 924 名前：デフォルトの名無しさん [2019/01/22(火) 12:48:37.38 ID:J1mDHp9Y.net] >>893 順序変えなくないんだって。 925 名前：デフォルトの名無しさん [2019/01/22(火) 18:32:37.01 ID:f5q/almD.net] >>865 Ruby puts (["□■"*4,"■□"*4]*4) 926 名前：デフォルトの名無しさん mailto:sage [2019/01/22(火) 18:48:04.82 ID:bOf9tfZi.net] >>881 J分からない人向け解説ｷﾎﾞﾝﾇ 927 名前：デフォルトの名無しさん mailto:sage [2019/01/22(火) 22:15:16.89 ID:4TOwjU0o.net] >>865 javascript ['□■', '■□'].map(s => s.repeat(4) + '\n').join``.repeat(4) 928 名前：デフォルトの名無しさん [2019/01/24(木) 21:04:14.42 ID:HE3o+0uB.net] >>865 Lua print (((("_#"):rep(36)):gsub("(........).","%1\n"))) 929 名前：デフォルトの名無しさん mailto:sage [2019/01/24(木) 22:20:43.56 ID:HLNzgCZV.net] >>865 javascript Array(72).fill().map((v, i)=>i%9?'■□'[i%2]:'\n').join`` >>894はボード横幅が7になってる間違いでしたごめんなさい。 930 名前：デフォルトの名無しさん [2019/01/25(金) 20:09:30.47 ID:s1700d1K.net] お題 n個からr個選ぶ組み合わせの個数を求める 931 名前：デフォルトの名無しさん mailto:sage [2019/01/25(金) 22:06:56.43 ID:7NAKvkXa.net] 数学の問題が叩かれるのはここのアホどもには難しいからなんだ！ 決してスレ違いだからじゃないんだ！ だから高校１年の教科書の定義引き写すだけの簡単な問題なら叩かれないんだ！ 932 名前：デフォルトの名無しさん mailto:sage [2019/01/25(金) 22:30:26.19 ID:oIz/D2lY.net] 教科書捨てたから定義ググりました。 const p = (n, r) => (n < 2 || r < 1) ? 1 : n * p(n - 1, r - 1); const c = (n, r) => p(n, r) / p(r); c(1200, 100); //=> 1.2734481790871909e+148 chromeでBigInt実装されてるのでせっかくだからと思ってpを const p = (n, r) => (n < 2n || r < 1n) ? 1n : n * p(n - 1n, r - 1n); に改良しようとしたらエラーでる… なんでか分かる方いたら教えてください。 933 名前：デフォルトの名無しさん mailto:sage [2019/01/26(土) 03:39:53.55 ID:mo79YSSI.net] >>901 Ruby c = -> (n, k, m = []) { 　　m[n] = [1] unless m[n] 　　k = n - k if n < k * 2 　　return m[n][k] if m[n][k] 　　m[n][k] = c[n - 1, k - 1, m] + c[n - 1, k, m] } p c[5, 2] # => 10 p c[100, 50] # => 100891344545564193334812497256 >>903 undefined - 1n でエラーが起きているので const c = (n, r) => p(n, r) / p(r, r); 934 名前：デフォルトの名無しさん [2019/01/26(土) 03:52:04.18 ID:NFcmjJe3.net] >>901 効率はともかく、関数プログラミングって本でこれ見た時は感動したな。(言語は数学とSMLを合わせた仮想言語だったが) Haskell c n 0 = 1 c n m |n == m = 1 c n m = c (n - 1) m + c (n - 1) (m - 1) 実行結果 5 `c` 3 >10 935 名前：デフォルトの名無しさん [2019/01/26(土) 04:12:24.35 ID:NFcmjJe3.net] 高校の教科書版 Haskell c' n r = product [1..n] `div` (product [1..(n - r)] * product [1..r]) 解説 n C r = n P r / r! = n! / ((n - r) ! * r!) (n P r = n ! / (n - r)!に分解) 936 名前：デフォルトの名無しさん mailto:sage [2019/01/26(土) 04:32:41.56 ID:Ve68vOks.net] >>904 ありがとう！ 恥 937 名前：ずかしい… [] [ここ壊れてます] 938 名前：デフォルトの名無しさん mailto:sage [2019/01/26(土) 05:11:41.67 ID:iYrqGgfh.net] >>901 C++ inline uint64_t gcd(uint64_t a, uint64_t b) { uint64_t r; while ((r = a % b) != 0) { a = b; b = r; } return b; } uint64_t binomial(uint64_t n, uint64_t m) { if (n < m) return 0; m = (m > n / 2) ? n - m : m; uint64_t result = 1; for (uint64_t i = 1; i <= m; i++, n--) { uint64_t d = gcd(result, i); result /= d; result *= n / (i / d); } return result; } 939 名前：デフォルトの名無しさん [2019/01/26(土) 10:34:54.19 ID:ls0y1m5K.net] >>901 Lua function cc(n,r) local a = 1 for i = 1, r do a=a*(n-i+1)/i end return a end print(cc(20,10)) 184756.0 940 名前：デフォルトの名無しさん mailto:sage [2019/01/26(土) 11:22:21.12 ID:tq46h9Ux.net] お題 複数の線分が平面上で重なりがあるかないかしらべる。 941 名前：デフォルトの名無しさん mailto:sage [2019/01/26(土) 12:02:35.05 ID:Owe/QLUY.net] >>865 @Mathematica Table[If[EvenQ[i + j], 0, 1], {i, 8}, {j, 8}] // 　ArrayPlot[#, Mesh -> True] & 942 名前：デフォルトの名無しさん [2019/01/26(土) 13:54:20.56 ID:+oP10x+/.net] >>910 適当に連立方程式とくだけじゃなかったです？ 数学出来ないんですけど。 943 名前：デフォルトの名無しさん [2019/01/26(土) 14:10:31.09 ID:t2YAFdPa.net] 人狼AI　と　人狼ゲーム 944 名前：デフォルトの名無しさん mailto:sage [2019/01/26(土) 14:39:24.25 ID:YRte2Dpq.net] >>865 Perl5 print ((qw{□■}x4, "\n", qw{■□}x4, "\n")x4); 実行結果 $ perl 12_860.pl □■□■□■□■ ■□■□■□■□ □■□■□■□■ ■□■□■□■□ □■□■□■□■ ■□■□■□■□ □■□■□■□■ ■□■□■□■□ 945 名前：デフォルトの名無しさん mailto:sage [2019/01/26(土) 15:04:32.49 ID:vn81VQ6e.net] >>865 Pharo Smalltalk String cr join: ((1 to: 4) collect: [:i | {'□■' repeat: 4 . '■□' repeat: 4} ]) flattened 実行結果 □■□■□■□■ ■□■□■□■□ □■□■□■□■ ■□■□■□■□ □■□■□■□■ ■□■□■□■□ □■□■□■□■ ■□■□■□■□ 946 名前：デフォルトの名無しさん mailto:sage [2019/01/26(土) 17:16:36.10 ID:5cGQ6lSj.net] お題: マークダウン記法の見出しをHTMLに変換しなさい 947 名前：デフォルトの名無しさん [2019/01/26(土) 18:50:28.91 ID:OZN9QunV.net] >>865 rfo-basic For i=1 To 44 m$=m$+Chr$((9622+Mod(i,2))*(Mod(i,9)<>0)+10) Next Print m$ End プロは奇をてらわない。 ｂａｉ　砂坊主 948 名前：デフォルトの名無しさん mailto:sage [2019/01/26(土) 21:39:22.15 ID:Ve68vOks.net] byでは？ 949 名前：デフォルトの名無しさん mailto:sage [2019/01/26(土) 21:56:29.11 ID:lXnCadeF.net] レス古事記に構うなよ 950 名前：デフォルトの名無しさん mailto:sage [2019/01/27(日) 00:46:03.01 ID:EZ97VlcS.net] >>865 @Mathematica セルオートマトン（ルール32）を使って、、 CellularAutomaton[32, {0, 1, 0, 1, 0, 1, 0, 1}, 8] // 　ArrayPlot[#, Mesh -> True] & 951 名前：デフォルトの名無しさん mailto:sage [2019/01/27(日) 01:01:04.00 ID:u288xi28.net] >>865 python3 [print("".join("■" if (x+y) % 2 else "□" for y in range(8))) for x in range(8)] 952 名前：デフォルトの名無しさん mailto:sage [2019/01/27(日) 04:52:31.63 ID:rwuNPA7J.net] >>865 C for (int r = 0; r < 8; r++) {   for (int c = 0; c < 8; c++) {     printf((r + c) % 2 ? "■" : "□");   }   printf("\n"); } 953 名前：デフォルトの名無しさん mailto:sage [2019/01/27(日) 06:36:29.52 ID:rwuNPA7J.net] >>910 C double abac = (bx - ax) * (cy - ay) - (by - ay) * (cx - ax); double abad = (bx - ax) * (dy - ay) - (by - ay) * (dx - ax); double cdca = (dx - cx) * (ay - cy) - (dy - cy) * (ax - cx); double cdcb = (dx - cx) * (by - cy) - (dy - cy) * (bx - cx); return (abac * abad < 0 && cdca * cdcb < 0); 954 名前：デフォルトの名無しさん mailto:sage [2019/01/27(日) 06:44:59.11 ID:mVMeZ4rl.net] >>923 直線じゃなくて線分だぞ 955 名前：デフォルトの名無しさん mailto:sage [2019/01/27(日) 06:46:02.03 ID:z0hosMYm.net] >>916 javascript(es2018 regexネームドグル 956 名前：ープのため) const atxMatcher = line => line.trim().match(/^(?<directive>\S*)[ \t]+(?<contents>.*)/) const atxRules = [{ name: 'HnTag', regex: /^#{1,6}/, process: (hnDirective, hnContents) => { const hnEl = document.createElement('h'+ hnDirective.length) hnEl.textContent = hnContents return hnEl.outerHTML } }] const makeHtml = line => { const atxMatch = atxMatcher(line) if (!atxMatch) return line const {directive, contents} = atxMatch.groups let tag for (const rule of atxRules) { const directiveMatch = directive.match(rule.regex) if (directiveMatch) { tag = rule.process(directiveMatch[0], contents) break } } return tag ? tag : line } `# aaa ##\tbbb ###### \t ccc ################ ddd `.trim().split`\n`.map(makeHtml).join`` 結果： <h1>aaa</h1><h2>bbb</h2><h6>ccc</h6><h6>ddd</h6> [] [ここ壊れてます] 957 名前：デフォルトの名無しさん mailto:sage [2019/01/27(日) 08:20:11.42 ID:rwuNPA7J.net] >>924 線分ですよ 958 名前：デフォルトの名無しさん mailto:sage [2019/01/27(日) 11:17:31.03 ID:/cT7Kgd3.net] >>923 > return (abac * abad < 0 && cdca * cdcb < 0); return (abac * abad <= 0 && cdca * cdcb <= 0); 端点も含まんとあかんのとちゃう？ 959 名前：デフォルトの名無しさん mailto:sage [2019/01/27(日) 12:22:09.16 ID:rwuNPA7J.net] 重なりの定義によるかも 接しているのは重なりなしとしました 960 名前：デフォルトの名無しさん mailto:sage [2019/01/27(日) 12:42:45.94 ID:rwuNPA7J.net] と思ったけど=ありのが正解でした 961 名前：デフォルトの名無しさん [2019/01/27(日) 13:15:46.24 ID:4tSdie01.net] お題 半径が整数の3つの円ある。 どの円も他の2つの円に外接している。 3つの円の中心点を結んでできる 三角形がピタゴラスの三角形に なる場合の3つの円の半径を 100未満についてすべて求める。 例えば3つの円の半径が1,2,3の時 辺の長さが3,4,5のピタゴラスの 三角形ができる。 962 名前：デフォルトの名無しさん mailto:sage [2019/01/27(日) 13:54:53.07 ID:wgzaqL4l.net] >>930 C++ https://ideone.com/TvwEx3

---

---

[ 続きを読む ] / [ 携帯版 ]

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