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

1 名前：デフォルトの名無しさん mailto:sageteoff [2015/10/07(水) 20:19:06.64 ID:c4LYwtKo.net] プログラミングのお題スレです。 前スレ プログラミングのお題スレ Part7 peace.2ch.net/test/read.cgi/tech/1429195275/ 【出題と回答例】 1 名前：デフォルトの名無しさん 　　お題：お題本文 2 名前：デフォルトの名無しさん 　　>>1 使用言語 　　回答本文 【ソースコードが長くなったら】 (オンラインでコードを実行できる) ideone.com/ codepad.org/ compileonline.com/ rextester.com/runcode runnable.com/ code.hackerearth.com/ melpon.org/wandbox https://paiza.io/ 宿題は宿題スレがあるのでそちらへ。 655 名前：デフォルトの名無しさん mailto:sage [2016/08/23(火) 14:52:37.15 ID:nbfEIr8Y.net] >>642 となると、今のところbrute forceしかアイデアない 656 名前：デフォルトの名無しさん mailto:sage [2016/08/23(火) 15:46:43.07 ID:8juwdgVG.net] >>618 C++で貪欲法 フィボナッチ数を小さなフィボナッチ数に分解するところはもっといいやり方があると思う https://paiza.io/projects/4gT7Vzo3rwr-d2V0q_vK3w 657 名前：デフォルトの名無しさん mailto:sage [2016/08/23(火) 16:13:11.72 ID:1XZ2ZUlZ.net] >>644 おぉ、すごいな。上手い。 658 名前：デフォルトの名無しさん mailto:sage [2016/08/23(火) 16:59:17.93 ID:nbfEIr8Y.net] >>642のさらに考察してDPで問題なさそうだと思って>>636のを辞書順に選択するように変えてみたけど結果変わらなかった https://paiza.io/projects/E3IiR1BZVilAaTnBITTY-w https://out.paiza.io/projects/E3IiR1BZVilAaTnBITTY-w/output.txt >>636とのdiff取った、同じと出た https://paiza.io/projects/R-vSh83dQSqE0kq0WGagTA 659 名前：デフォルトの名無しさん mailto:sage [2016/08/23(火) 17:06:57.99 ID:Z+VJIz/8.net] >>618 Squeak Smalltalk | fn | fn := [:N | 　| fibonacciUpTo elems ans | 　fibonacciUpTo := [:m | 　　Array streamContents: [:ss | 　　　| a b | 　　　ss nextPut: (a := b := 1). 　　　[(a := b flag: (b := a + b)) < m] whileTrue: [ss nextPut: a] 　　] 　]. 　ans := nil. 　elems := fibonacciUpTo value: N. 　[:exit | 　　elems size to: 1 by: -1 do: [:m | 　　　elems combinations: m atATimeDo: [:comb | 　　　　comb sum = N ifTrue: [ans := comb. exit value] 　　　] 　　] 　] valueWithExit. 　ans ]. ^(1 to: 10), {100. 1000} collect: [:N | N -> (fn value: N)] "=> {1->#(1) . 2->#(1 1) . 3->#(1 2) . 4->#(1 1 2) . 5->#(1 1 3) . 6->#(1 2 3) . 7->#(1 1 2 3) . 8->#(1 2 5) . 9->#(1 1 2 5) . 10->#(1 1 3 5) . 100->#(1 2 3 5 13 21 55) . 1000->#(1 1 3 8 21 34 89 233 610)} " 660 名前：デフォルトの名無しさん mailto:sage [2016/08/23(火) 17:07:07.82 ID:nbfEIr8Y.net] >>644 何これめっちゃすごいな・・・ フィボナッチ数列に関する定理があるのか 661 名前：デフォルトの名無しさん [2016/08/23(火) 22:31:24.67 ID:xhPJKCKw.net] >>618 Rubyで。 https://ideone.com/3XA5Qw 662 名前：デフォルトの名無しさん [2016/08/24(水) 00:02:28.52 ID:hGPUmbYi.net] 良問まとめありますか? 663 名前：デフォルトの名無しさん mailto:sage [2016/08/24(水) 00:04:45.93 ID:IQL/zjWi.net] 競プロなんてどうでしょう 664 名前：デフォルトの名無しさん mailto:sage [2016/08/24(水) 06:31:48.04 ID:emWUYHC0.net] >>618 C言語 ideone.com/3s4puY >>619 C言語 ideone.com/n6mblc >>630 C言語 ideone.com/bPehld 665 名前：デフォルトの名無しさん mailto:sage [2016/08/24(水) 12:37:09.73 ID:IQL/zjWi.net] >>652 N =< f(0) + f(1) + ... +f(k) となるkを見つけたときにf(k-1)が>>618の題意を満たすフィボナッチの数の1つで再帰的にN := N - f(k-1)で貪欲法的に求められるのか 理屈が全然分からん 数学は奥が深すぎ 666 名前：デフォルトの名無しさん mailto:sage [2016/08/24(水) 15:34:01.41 ID:DjG9ToKL.net] f(0)+f(1)+...+f(k)=f(k+2)-1だから N>=f(k+1)&&N<f(k+2)を満たすkを探してf(k-1)を選びN-f(k-1)を次のNとして再帰と言い換えたほうがわかりやすい 条件を満たす場合をちょっと式変形すると2f(k)>N-f(k-1)>=f(k)で フィボナッチ数列の今てきとーに考えたガバ不等式だと2f(k)>=f(k+1)>=f(k)で考えたら再帰の途中で N-f(kー1)>=f(k+1) && N-f(k-1)<f(k+2) みたいなkが存在しててもおかしくなさそうだけど大丈夫なのかー 667 名前：デフォルトの名無しさん mailto:sage [2016/08/24(水) 16:45:04.33 ID:38RcxOvs.net] >>653 N:=N-f(k)やんか！ならf(k+1)>N-f(k)>=f(k-1)になるから帰納法で展開可能なことはすぐに証明出来そうだね おそらく>>652はフィボナッチ数の大きい方から順に、自然数をフィボナッチ部分列で展開できるギリギリの大きさのフィボナッチ数を選んでる 668 名前：デフォルトの名無しさん [2016/08/24(水) 17:22:27.06 ID:hGPUmbYi.net] そもそも理解があやしいから確認したいが・・・ フィボナッチ数列でなるべく小さいNをとって、集合{f(1), ・・・,f(N)}で その部分の和をある数と一致させるって話? 669 名前：デフォルトの名無しさん [2016/08/24(水) 17:30:24.68 ID:hGPUmbYi.net] >>656とすると、Nの下限は>>652のように総和を計算すればすぐ求まるな。 しかし、任意の数はフィボナッチ数列の部分集合の和で表現できるかとか、 上でf(N)を引き算した数がN-1以下の部分集合の和で表現できるとかは簡単か? 670 名前：651 mailto:sage [2016/08/24(水) 20:06:38.41 ID:emWUYHC0.net] >>655の言うように展開できるぎりぎりの数を順に選んでます。 とりあえず、f(0)+f(1)+...+f(n)=sum(n) とした場合、 1〜sum(n)の整数はf(0)〜f(n)の部分和で表すことができる 例）フィボナッチ数列の最初の6つ[0,1,1,2,3,5]を使えば1〜12までの数を表せる というのを前提に、与えられた数がsum(n)より大きくsum(n+1)以内なら 必ずf(n+1)が含まれるということを、残りの数が0になるまで再帰的に計算しています。 最初の前提は、数列を一辺とした正方形をつなげていくというあの形から 直感的になんとなく。1〜sum(n)がf(0)〜f(n)の数列の組み合わせで表せるなら sum(n)>=f(n+1)（n>=1の場合） なので1〜sum(n+1)もf(0)〜f(n+1)の数列の組み合わせで表せるということに なるんじゃないのかなぁと。正直全く自信ないです。 自分が書いたコードは、求めたフィボナッチ数列を配列に保存していたけど その必要全くなかったですね。 ideone.com/oUIvN8 671 名前：デフォルトの名無しさん mailto:sage [2016/08/24(水) 20:50:39.06 ID:Gt3DCYIG.net] >>618 @Mathematica ideone.com/jtWvsW 672 名前：デフォルトの名無しさん mailto:sage [2016/08/25(木) 19:55:54.39 ID:1lQyPTY4.net] >>657 >上でf(N)を引き算した数がN-1以下の部分集合の和で表現できるとかは簡単か? f(0)=0,f(1)=1,f(2)=1,f(3)=2,...のようにインデックスを決めておく。 命題：k>=1のときf(k+2) > N >=f(k+1)を満たす任意の自然数Nは{f(0),...,f(k)}の部分集合の和で表せる。 k=1のとき自明 k>=1で成立を仮定しk+1で命題が成り立つことを示す。 書き下すとf(f+3)>N>=f(k+2)を{f(0),...,f(k+1)}の部分列の和で表せればおｋ。 そこで部分列の一番大きなf(k+1)で全体を引き算すると f(k+3)-f(k+1)>N-f(k+1)>=f(k+2)-f(k+1) ⇔ f(k+2) >N-f(k+1) >=f(k) となり仮定よりN-f(k+1)は{f(0),...,f(k+1)}の部分列の和で表せる。 以上から帰納法で命題は正しい。 簡単すぎｗｗｗｗ 673 名前：デフォルトの名無しさん mailto:sage [2016/08/25(木) 19:59:23.41 ID:1lQyPTY4.net] >>660 >となり仮定よりN-f(k+1)は{f(0),...,f(k+1)}の部分列の和で表せる。 ×N-f(k+1)は{f(0),...,f(k+1)} 〇N-f(k+1)は{f(0),...,f(k)} 674 名前：デフォルトの名無しさん [2016/08/26(金) 00:23:54.59 ID:iNPRC5gr.net] 速度が向 675 名前：上したのかどうか計るためのベースとして簡単なベンチマークテスト作った。 適当にウェイトいれて、機種・コンパイラの偏りをなくすようにしてみた。 http://ideone.com/KceBs4 ここ参考にした。 http://www001.upp.so-net.ne.jp/y_yutaka/labo/math_algo/calcbench.html [] [ここ壊れてます] 676 名前：661 [2016/08/26(金) 00:28:49.61 ID:iNPRC5gr.net] ちょい疑問がシフト演算は早いという定説はあるとおもうが。 実際、計測比較してみると足し算、引き算よりも遅い。 オーバーフローが原因で遅くなってる気はするが・・・ 677 名前：デフォルトの名無しさん mailto:sage [2016/08/26(金) 00:34:55.42 ID:46yZwIqt.net] >>663 コンパイラが最適化しちゃうからじゃね？ 678 名前：デフォルトの名無しさん [2016/08/26(金) 00:47:03.70 ID:iNPRC5gr.net] 最適化対策として、計算結果を引き継ぐことで、ループ無視は防止できてるはず・・・ 679 名前：デフォルトの名無しさん [2016/08/26(金) 01:07:03.15 ID:iNPRC5gr.net] 計算途中で、内部でオーバーフローか型変換が起こって遅くなってると予測してみて、 整数値で扱えない範囲にならないように、足し算のところビットORで代替してみたけど同速度だった。 単純にシフト演算が遅いだけっぽい。 680 名前：デフォルトの名無しさん mailto:sage [2016/08/26(金) 01:29:53.53 ID:rbtqc2qT.net] gccのo3でコンパイルしてみたけど確かにShiftが一番遅かった どうしてこうなるかはアセンブリみれば一瞬でわかるよ 681 名前：デフォルトの名無しさん mailto:sage [2016/08/26(金) 01:53:05.11 ID:rbtqc2qT.net] shiftも早くなるようにおまじないかけといたよ ideone.com/t1qv2O 682 名前：デフォルトの名無しさん mailto:sage [2016/08/26(金) 01:54:53.90 ID:rbtqc2qT.net] すまんローカルだと早くなってたんだが Shift 421.0ms　→　101.0ms 683 名前：デフォルトの名無しさん [2016/08/26(金) 01:56:20.02 ID:iNPRC5gr.net] アセンブラはわからないけど。 内部で型変換がおってる説が間違いとすると、計算回数だろな・・・ シフト測定はシフト+足し算をしてて、足し算測定のほうは足し算一つだけ。 足し算測定のほうを、足し算1つ上乗せして公平にしてみる。 684 名前：デフォルトの名無しさん mailto:sage [2016/08/26(金) 02:01:15.45 ID:CVrNr9ea.net] clang 3.7のCで動かしたらこんなんなったんだがどういうことだ？ ideone.com/5Cjgpy ちゃんと動いてないのか最適化でばっさりなのか 685 名前：デフォルトの名無しさん mailto:sage [2016/08/26(金) 02:02:55.47 ID:CVrNr9ea.net] clangの方が普通に最適化が効いて、gccの方が効いてないだけか？ 686 名前：デフォルトの名無しさん mailto:sage [2016/08/26(金) 04:26:31.05 ID:Mbltetpr.net] gcc6.2.0使ってコンパイルしたらAVX2命令使いまくりで激速になった 687 名前：デフォルトの名無しさん [2016/08/26(金) 22:19:12.01 ID:iNPRC5gr.net] 良いベンチマーク考案中。 実際の問題を解いたプログラム　/　基準ベンチマーク　 の時間比がほぼ一定が良い。機種、コンパイラによらず。 688 名前：デフォルトの名無しさん mailto:sage [2016/08/27(土) 01:33:01.65 ID:UE0kbjNO.net] >>662 最適化対策のための出力っていうのが良く分からん あと、各々の命令の重さの係数（weight）はどうやって決めてるの？ 689 名前：デフォルトの名無しさん [2016/08/27(土) 01:40:19.24 ID:7nFiTNgH.net] 必要の計算は無視される最適化に対応。、 意味はないけど最後まで計算を引き継いで出力する。各計算を和でつなぐ。 690 名前：デフォルトの名無しさん [2016/08/27(土) 01:42:17.34 ID:7nFiTNgH.net] 必要のない計算は・・・ 691 名前：デフォルトの名無しさん mailto:sage [2016/08/27(土) 02:40:42.60 ID:UE0kbjNO.net] なるほど、そういうことか。 シフト命令が遅いのは変数kでシフトしてるからじゃないかな。 kビットシフトするのではなく1ビットシフトをk回繰り返した方が早くなるかも？ 692 名前：デフォルトの名無しさん mailto:sage [2016/08/27(土) 11:38:15.27 ID:2qjvRKJV.net] つづきは個人のブログかチラシの裏でやれ 693 名前：デフォルトの名無しさん [2016/08/27(土) 12:50:08.51 ID:8oHlLwTt.net] お題: 数字が書かれたn枚の紙切れが袋に入っています。 この袋から紙切れを取り出し、数字を見て袋に戻すということをx回行います。 x回の紙切れの数字の和がmになる確率を返す関数fを定義してください。 (let ((k '(1 3 5)) (m 10) (x 4)) ; n = 3, m = 10, k = {1, 3, 5}, x = 4 (f k m x)) => 16/81 (let ((k '(1 3 5)) (m 9) (x 4)) ; n = 3, m = 9, k = {1, 3, 5}, x = 4 (f k m x)) => 0/81 (let ((k '(1 2 3 4 5)) (m 15) (x 5)) ; n = 5, m = 15, k = {1, 2, 3, 4, 5}, x = 5 (f k m x)) => ? 694 名前：デフォルトの名無しさん mailto:sage [2016/08/27(土) 14:21:38.42 ID:/lPBBpET.net] 同じ数字の紙は何枚あってもいいの？ 全部違う数字？ 入っている数字はmより小さいの？ 695 名前：デフォルトの名無しさん mailto:sage [2016/08/27(土) 14:28:53.21 ID:/lPBBpET.net] ああ、ごめん。忘れてｗ 696 名前：デフォルトの名無しさん mailto:sage [2016/08/27(土) 14:54:16.82 ID:9mBmz7KO.net] >>680 ideone.com/6XEpQt C++。モンテカルロ。サンプル数少なすぎて収束してない。 確立はよくわからん。 697 名前：デフォルトの名無しさん mailto:sage [2016/08/27(土) 15:28:29.92 ID:9mBmz7KO.net] >>683 をちょびっと整形した。 ideone.com/l9zgpe 698 名前：デフォルトの名無しさん mailto:sage [2016/08/27(土) 16:50:12.54 ID:FbbA5YyG.net] >>680 Java ideone.com/6BEAKE 699 名前：デフォルトの名無しさん mailto:sage [2016/08/27(土) 18:38:18.89 ID:F1nYMYS3.net] >>680 C(C99) ideone.com/IRsTjt 700 名前：デフォルトの名無しさん mailto:sage [2016/08/27(土) 23:43:10.10 ID:8oHlLwTt.net] >>630 Emacs Lisp (defun g (l s i) (if (null l) t (let ((x (funcall (nth (% i 2) '(+ -)) s (car l)))) (when (<= (abs x) 10.0) (g (cdr l) x (1+ i)))))) (defun f (l) (g l 0 0)) f (f '(2 4 2 4 2 4 2 4 2 4 0)) t (f '(2 4 2 4 2 4 2 4 2 4.1 0)) nil (f '(2 4 1 10 10 1 4 2 0)) nil (f '(3 1 4 1 5 9 2 6 5 3 5 8 9 7 9 3)) t 701 名前：デフォルトの名無しさん mailto:sage [2016/08/28(日) 21:20:07.72 ID:9IFYhCBA.net] あなたはN円分の商品を1個購入することになりました。 おサイフの中には1,5,10,50,100,500円玉がそれぞれ1000枚あります。 価値の高い硬貨を優先に支払いに回すときに、それぞれの支払いに使う硬貨の枚数を求めよ 出力はカンマ区切りで左から1,5,10,50,100,500円の順に枚数を出力しなさい 例題 N=1111 出力 1,0,1,0,1,2 1円が1枚、10円が1枚、100円が1枚、500円が2枚なのでこうなります 702 名前：デフォルトの名無しさん mailto:sage [2016/08/28(日) 21:22:27.37 ID:gdb/jxff.net] ちょっと財布を想像して吹いたｗ 703 名前：デフォルトの名無しさん mailto:sage [2016/08/28(日) 21:26:10.45 ID:CCZyZi8n.net] >>688 それ1000枚の条件いるの？ 704 名前：デフォルトの名無しさん [2016/08/28(日) 22:06:25.06 ID:sxo5kh14.net] >>688 Rubyで。 https://ideone.com/fRleLH 705 名前：デフォルトの名無しさん mailto:sage [2016/08/28(日) 22:43:07.98 ID:FpzTx2tv.net] >>688 Emacs Lisp (require 'cl-lib) (setq purse (sort (append (make-list 1000 1) (make-list 1000 5) (make-list 1000 10) (make-list 1000 50) (make-list 1000 100) (make-list 1000 500)) #'>)) (defun f (N purse payment) (assert (and (integerp N) (> N 0))) (if (null purse) "" (let ((x (car purse))) (cond ((> x N) (f N (cl-remove-if #'(lambda (c) (= c x)) purse) payment)) ((< x N) (f (- N x) (cdr purse) (cons x payment))) ((= x N) (cl-reduce #'(lambda (a b) (concat a "," b)) (mapcar #'(lambda (c) (number-to-string (count c (cons x payment)))) '(1 5 10 50 100 500)))))))) (f 1111 purse '()) "1,0,1,0,1,2" (let ((max-lisp-eval-depth most-positive-fixnum) (max-specpdl-size most-positive-fixnum)) (f 500500 purse '())) "0,0,0,0,5,1000" (let ((max-lisp-eval-depth most-positive-fixnum) (max-specpdl-size most-positive-fixnum)) (f 666001 purse '())) "" 706 名前：デフォルトの名無しさん mailto:sage [2016/08/29(月) 00:10:36.80 ID:G+hsDqDY.net] >>688 C++で 707 名前： http://ideone.com/p4dwIW >>690 まあ本質的な意味はないけど一応1000枚の条件で答えは変わるぐらい N=500500 0,0,0,0,5,1000 [] [ここ壊れてます] 708 名前：デフォルトの名無しさん [2016/08/29(月) 10:41:31.05 ID:6rwIECPC.net] まえにあった問題の解法が不明。 nに対して、2次元平面の円で、その円周上の整数点がちょうどn個となる円の最小半径を求める問題。 709 名前：デフォルトの名無しさん mailto:sage [2016/08/29(月) 16:45:06.30 ID:fFx5B9de.net] >>694 問題関係のレスと自分が書いたコード見直したが、何やってるのかわけわからんくなってたから困るｗｗ 710 名前：デフォルトの名無しさん [2016/08/30(火) 01:05:58.62 ID:0bBTSjL7.net] 整数 a(0)、・・・、a(n)が与えられた時、 すべてのi　に対して、　a(i) + c ≡　0　(mod m)が成り立つような m、c >1を求める問題。 711 名前：デフォルトの名無しさん mailto:sage [2016/08/30(火) 01:20:54.99 ID:XiF8vPmR.net] はい。 712 名前：デフォルトの名無しさん mailto:sage [2016/08/30(火) 03:54:00.29 ID:ccTd05WG.net] >>694 前スレからもってきたけど円の中心点の情報は書いてくれよ、めちゃくちゃ重要だろ 41 ：デフォルトの名無しさん：2015/05/01(金) 14:31:24.98 ID:9G1+bMO9.net お題：ちょうどn個(1 < n)の格子点(x座標もy座標も整数の点)を通る円の半径の 最小値を求める。円の中心点は格子点でなくてよい。 例 n=2 -> 0.5 n=5 -> 16.170331 n=6 -> 2.5 713 名前：デフォルトの名無しさん mailto:sage [2016/08/30(火) 07:35:24.70 ID:o3zijpP7.net] >>680 Common Lisp ideone.com/yyVA7g >>688 C++11 ideone.com/rNuPAy 714 名前：デフォルトの名無しさん mailto:sage [2016/08/30(火) 11:00:38.72 ID:bKDKxVCe.net] >>698 そのn=5は間違えてるから訂正しとく N=5 (1/6,1/6) R=5.892557 R^2=625/18 715 名前：デフォルトの名無しさん [2016/08/30(火) 11:59:20.10 ID:0bBTSjL7.net] >>698 個数4N個のときは最小半径と整数点を簡単に求める方法見つかった。　個数4、8、12、16、20、24・・・・のとき。 4で割って1余る素数を最初に求めておく。　5、13、17、29、37、41・・・・・ Nを適当に積に分解して、N = a(1) * ・・・　*a(i) 、a(1) >= a(2) >= ・・を満たすようにして。 半径2乗を5^(a(1)-1) * 13^(a(2)-1) * 17^(a(3)-1)・・・・とする原点中心の円周の格子点の数は、4N個。 最小半径をあたえるNの積分解を一発で求めるアルゴリズムはしらんが、この方針で間違いないはず。 716 名前：デフォルトの名無しさん [2016/08/30(火) 12:11:16.96 ID:0bBTSjL7.net] まちがってた・・・・これと比較してみたら。　たとえば 8個のときは (2x-1)^2 + (2y-1)^2 = 5 12個のときは、(2x-1)^2 + (2y-1)^2 = 5^2 16個のときは、(2x-1)^2 + (2y-1)^2 = 5*13 20個 のときは、(2x-1)^2 + (2y-1)^2 = 5^4 でいいらしい。 >>701を2で割ったらほぼ合ってるかと・・・ 118 名前： 投稿日：2015/05/14(木) 19:56:36.53 ID:rp22TBsk >>118 俺が計算したのではこんなん ただし半径256以上は最小じゃないかも知れないから注意 ideone.com/2WBTbl 717 名前：デフォルトの名無しさん [2016/08/30(火) 12:28:56.64 ID:0bBTSjL7.net] >>702によると、41個の場合の方程式は、 (14x-1)^2 + (14y-1)^2 = 5^2 * 13^2 * 17^2 * 41^2　らしい。 予想するとこれはより半径を縮められるはず。 たとえば、適当に　a、b、cをとれば、　( ax + b)^2 + ( ax + c)^2 = 5^2 * 13^2 * 17^2 * 29^2 の格子点数が41個にできる可能性。 右辺はこれに限るとは言い切れないけど。 最初の右辺でもいまのでも、原点を通る円 x^2 + y^2 =　・・・としてはどちらも格子点数は4*3*3*3*3=324個のはず。 718 名前：デフォルトの名無しさん [2016/08/30(火) 12:45:23.63 ID:0bBTSjL7.net] 324/7 = 46.28、 324/8　= 40.5なので、 >>703でaは8以上だと、41点以上生成できないはず・・ aは7もしくは14で決め打ちして。2倍するのだけは特別でこれは解個数を変化させない可能性。>>702と同様。 しかし2倍しないほうがよリみつかりやすいはず・・ 適当にa、bをとれば ( 7x + a)^2 + ( 7x + b)^2 = 5^2 * 13^2 * 17^2 * 29^2　の形で41点生成できると予想。 719 名前：デフォルトの名無しさん mailto:sage [2016/08/30(火) 13:17:27.27 ID:bKDKxVCe.net] 5^2 * 13^2 * 17^2 * 41^2で出てくるのは39点と42点じゃないかな？ 数学の事よくわからないけど。 720 名前：デフォルトの名無しさん mailto:sage [2016/08/30(火) 13:23:30.96 ID:bKDKxVCe.net] おっと間違えた 5^2 * 13^2 * 17^2 * 29^2　の形で出てくるのが39点と42点な 721 名前：デフォルトの名無しさん [2016/08/30(火) 13:55:35.84 ID:0bBTSjL7.net] いや数学的な裏付けなどなく、たんなる予測だけど・・ いま検証コード作成中。 722 名前：デフォルトの名無しさん [2016/08/30(火) 15:04:25.03 ID:0bBTSjL7.net] >>706 そのとおりだったわ。どういう理屈? あと、計算が間違ってなければ>>703は解なしで、41点でてくる方程式は (7x-1)^2 + (7y)^2 = 5^2 * 13^2 * 17^2 * 41^2 だった。 723 名前：デフォルトの名無しさん mailto:sage [2016/08/30(火) 15:29:46.99 ID:bKDKxVCe.net] >>708 理屈はわからんｗ 昔書いた探索コードでそのまま格子点数出せそうな感じだったので、 5^2*13^2*17^2*29^2を突っ込んでみたら39と42が出ただけｗ んで、半径として考えるとN=41は (7x-1)^2 + (7y)^2 = 5^2 * 13^2 * 17^2 * 41^2ではなく、 (14x-1)^2 + (14y-1)^2 = 2 * 5^2 * 13^2 * 17^2 * 41^2になるんかな。 724 名前：デフォルトの名無しさん [2016/08/31(水) 16:46:14.27 ID:9ufvv7Gu.net] 円の格子点のやつは、P=NPとかいった計算理論の話題とみて、難しいクラスでは? 素因数分解とか、巡回セールスマン問題と較べても計算困難では? ( Ax + B)^2 + ( Ax + C)^2 = R^2は半径はR/Aだけど、RもAも無限大までしても、最小半径になる可能性があって。 一つ解けた半径が、最小値なのかすら調べられない気が・・ AかRに上限あるとでも証明できれば別だが。 725 名前：デフォルトの名無しさん [2016/08/31(水) 19:35:22.89 ID:9ufvv7Gu.net] たとえば、2点のときの最小半径は0.5らしいが・・・　方程式は(2x)^2 + (2y-1)^2 = 1で。 a 十分大で、r/a < 0.5 を満たすとして、( ax -b )^2 + ( ay -c )^2 = r^2の格子点数が2点のみとなる場合はないのか? 　 726 名前：デフォルトの名無しさん [2016/08/31(水) 19:38:46.35 ID:9ufvv7Gu.net] >>711が合ってた場合、最小半径はいくらでも小さくできると予想。 >>711が合ってない事を証明できる人いる? 727 名前：デフォルトの名無しさん [2016/08/31(水) 19:40:33.34 ID:9ufvv7Gu.net] すまん。そんなわけがなかった。半径が小さすぎれば図を書いてみて格子点が発生しない。 728 名前：デフォルトの名無しさん mailto:sage [2016/08/31(水) 19:47:55.57 ID:p1K5Mzky.net] 半径が自然数で中心が原点ならピタゴラス数の数を調べればわかるんだけどな。 729 名前：デフォルトの名無しさん mailto:sage [2016/08/31(水) 19:49:26.51 ID:NSLbELcw.net] その相似形は等価？相似検出するのメンドクセーけど。 730 名前：デフォルトの名無しさん [2016/08/31(水) 20:41:09.29 ID:9ufvv7Gu.net] 円内部の格子点数を不等式で挟める式あった。　 少し大きい円、少し小さい円のドーナツ型にしたら、円周上の格子点数の理想値が求まるかと・・・ ガウスの円問題 原点を中心とした半径rの円の内部(境界を含む)にある整数点の個数をR(r)で表す. R(r)は円の面積の推定値を与える.R(100)/100＾2 = 3.1417 ガウスは |R(r)-πr＾2|<crを示したが,|R(r)-πr＾2|<cr＾k となるkの最小値を求める問題に一般化される. シェルピンスキーはk≦2/3を証明し,ガウスのk=1を改善. 1963年に陳景潤はk≦24/37を,1990年にハクスリーはk≦46/73を得た. k=1/2と予想されている. www.geocities.jp/ikuro_kotaro/koramu/834_r2.htm 731 名前：デフォルトの名無しさん mailto:sage [2016/08/31(水) 20:41:41.64 ID:p1K5Mzky.net] 半径rのときの点の最大数は bごとにaを変化させていってx、yが同時に整数になる数の最大数だな。 x=r (cos a +cos b) y=r(sin a+ sin b) 732 名前：デフォルトの名無しさん [2016/09/01(木) 00:30:32.18 ID:F9uf4uEu.net] R(r)　半径rの円の内部の整数点の個数 L(r) 半径rの円の円周上の格子点の個数として。 rより小さいsをとれば、 L(r) <= πr＾2 + cr＾k - ( πs＾2 - cs＾k ) 、s -> rとして =2cr＾k >>716にはcの値が書いてないが適当にc=7/2として、 よりよい評価したいのでk=1/2とすると、L(r) <= 7√r うまく円周上に格子点を配置できたときの上限が7√r。 円周上の格子点を 32点生成できるrはr^2 = 5*13*17/2 64点生成できるrはr^2 = 5^3*13*17/2　らしいので 上の公式で計算してみると 上 = 7√r = 33.9375 下 = 7√r = 75.8867 評価式の性能はいまいち。 評価値とぴったり一致すれば最小半径が証明できるとおもったが使えない。 733 名前：デフォルトの名無しさん [2016/09/01(木) 01:40:05.53 ID:F9uf4uEu.net] しかし、評価式のべつの使い道があるな。　L(r) <　7√rは正しい前提として。 たとえば、100点生成できる半径を求めようとしたとき、 L(203)　< 99.7346 だから、半径が203以下ではムリだと判明する。探索するとき幅は狹められる。 734 名前：デフォルトの名無しさん mailto:sage [2016/09/01(木) 08:42:57.18 ID:d9inzlx2.net] どこかほかでやってくれないかな… 735 名前：デフォルトの名無しさん mailto:sage [2016/09/01(木) 18:50:15.31 ID:wr8HVpEY.net] そうだな。そもそも単なる数学の問題を お題化したって、どうせ宿題なんだろって思ってしまう 736 名前：デフォルトの名無しさん [2016/09/02(金) 16:08:29.58 ID:szLK569k.net] 円周の格子点は一年半弱まえのやつだし、数学、数学の宿題の範疇では解けるとはおもえない。 僅かでも円のイチをずらせば格子点がまったく無くなったりするわけで コンピュータの力技は必要だろ? ある程度、探索範囲をせばめることはできても検証でプログラムいるとおもう。 737 名前：デフォルトの名無しさん mailto:sage [2016/09/02(金) 19:02:35.81 ID:VYGld2xC.net] 思考垂れ流しうんこマンが自重してくれればそれでいい 一人で連投してんじゃねー 738 名前：デフォルトの名無しさん mailto:sage [2016/09/02(金) 20:03:49.13 ID:enD9pirT.net] 「論よりコード」 739 名前：デフォルトの名無しさん mailto:sage [2016/09/02(金) 21:05:07.04 ID:+wy8tThR.net] この流れならむしろ数学板でもいいとおもう 740 名前：デフォルトの名無しさん mailto:sage [2016/09/02(金) 21:52:48.00 ID:e1jBggiu.net] お題： 下図のように山の麓（標高0）の両側にいるA君B君が頂上（標高10）を目指して同時に出発する ただし、A君B君のいる位置の標高はどの時刻でも等しくなるように登らなければならない （下図でA君が標高7の峠から標高3の谷へ下るときにはB君は来た道を引き返す必要がある） 標高1だけ上るor下るのに1時間かかるとして頂上まで最短で何時間かかるか求めよ 　　 　 　 　 　 　10 　　 　 　 7 　 ／＼ 　　 　 ／＼／3 　 ＼ Ａ 0／　 　 　 　 　 　 ＼0 Ｂ 山の形状は以下のような文字列で表現する １）文字列の先頭と末尾はA君B君のスタート地点（標高0）を表し、必ず'0'である ２）ゴールの頂上（標高10）の位置は':'で表す（文字コードがちょうど':'='0'+10なので） ３）途中の峠と谷の標高を'1'〜'9'で表す（上図の山の形状は"073:0"と表される） ４）途中の峠と谷は交互に現れるようにする（例えば"037:0"は無し） テスト例 "073:0" -> 18 "07362:450" -> 36 "06464:36470" -> 42 "0827171:28480" -> 66 "0737491:28180" -> 146 "05374734372747484:184618186912120" -> ? 741 名前：デフォルトの名無しさん mailto:sage [2016/09/02(金) 23:34:33.91 ID:hbWVf6eK.net] A：012101.... B：012123... 詰む気がするんだけど 742 名前：デフォルトの名無しさん mailto:sage [2016/09/03(土) 04:18:59.59 ID:P0QwwpBf.net] >>726 c++ https://ideone.com/2sIaGw とりあえず、サンプルが通ったからsubmitって感じ。 743 名前：デフォルトの名無しさん [2016/09/03(土) 08:16:17.90 ID:QWBdU6+p.net] 一年半弱立っててもまともなコードがあがってない難問。 論、一部結果はでてるが有効打ゼロ。 744 名前：デフォルトの名無しさん mailto:sage [2016/09/03(土) 18:06:05.39 ID:fVb/pFms.net] >>728 https://ideone.com/2sIaGw (上書き修正) BFS版を追加して、それを本採用 ※依然として低い高さ制限=10に甘えたコードになっている 745 名前：デフォルトの名無しさん mailto:sage [2016/09/03(土) 20:46:56.74 ID:hrFRXovl.net] >>604 OCaml(勉強中) ideone.com/fRBQlj F#と並行してその元になってるOCamlの勉強も始めてみました yukicoderで同じ問題やったらOCamlの方が実行時間8倍速、使用メモり1/7くらいだった･･･ 746 名前：デフォルトの名無しさん [2016/09/04(日) 04:44:05.42 ID:swx+XD0y.net] >>726 Ruby https://ideone.com/LcrSC5 747 名前：デフォルトの名無しさん [2016/09/04(日) 10:12:56.94 ID:AIgtYd56.net] 円周の格子点は、 平面上の0-45度部分へ整数点の中心(a,b)を取って 原点を通る円、 (x-a)^2 + (y-b)^2 = r^2, (r^2 =a^2 + b^2)をベースに 整数mをとって解個数を1/m以下にする操作、 (mx-a)^2 + (my-b)^2 = r^2を考えればよさげ。 これならa,b,mは小さい順に無駄なく動かせ網羅できるかと。 748 名前：デフォルトの名無しさん mailto:sage [2016/09/04(日) 14:51:14.83 ID:+9WebUQ3.net] >>733 論よりコード　もしくは演算結果 749 名前：デフォルトの名無しさん mailto:sage [2016/09/07(水) 01:44:45.83 ID:Bbadz6db.net] >>726 Emacs Lisp (require 'cl-lib) (defun f (s) (let* ((e (reduce (lambda (a b) (concat a (substring b 1))) (mapcar (lambda (x) (let ((a (car x)) (b (cdr x))) (macrolet ((c (d) `(loop for i from a ,d b concat (string i)))) (if (< a b) (c to) (c downto))))) (loop for i from 0 below (1- (length s)) collect (cons (aref s i) (aref s (1+ i))))))) (f (position ?: e)) (g (substring e 0 (1+ f))) (h (apply #'string (reverse (string-to-list (substring e f))))) (w 0) (y '(((0 . 0) 0 nil)))) (while y (let ((i (caaar y)) (j (cdaar y))) (if (and (= (aref g i) ?:) (= (aref h j) ?:)) (setq w (cadar y) y nil) (setq y (append y (mapcar (lambda (x) (list x (1+ (cadar y)) (cons (cons i j) (caddar y)))) (remove-if (lambda (x) (or (< (car x) 0) (< (cdr x) 0) (find x (caddar y) :test 'equal) (/= (aref g (car x)) (aref h (cdr x))))) (list (cons (1+ i) (1+ j)) (cons (1+ i) (1- j)) (cons (1- i) (1+ j)) (cons (1- i) (1- j))))))))) (pop y)) w)) (f "073:0") 18 (f "07362:450") 36 (f "06464:36470") 42 (f "0827171:28480") 66 (f "0737491:28180") 146 (f "05374734372747484:184618186912120") 400 (f "021:120") 12 (f "091:280") 62 750 名前：デフォルトの名無しさん mailto:sage [2016/09/09(金) 01:34:40.70 ID:U1OL4Uha.net] >>726 Haskell ideone.com/SHS7xc 751 名前：デフォルトの名無しさん mailto:sage [2016/09/12(月) 09:47:06.73 ID:lP0lbdh9.net] お題: Hello, World! を円形にして出力。 円形の定義、CUI, GUI どちらでやるかも自由。 丸くなっていれば良しとする。 752 名前：デフォルトの名無しさん mailto:sage [2016/09/12(月) 16:48:28.87 ID:cNnBFZuZ.net] >>737 Javascript codepen.io/anon/pen/VKvNOg 753 名前： [] [ここ壊れてます] 754 名前：デフォルトの名無しさん mailto:sage [2016/09/13(火) 03:30:08.30 ID:jvr3tDVu.net] ideone.com/cGLp0X C++。イデオンで再現しようと思ってエスケープシーケンス検索したら、 win10の以前のアップデートで限定的に復活してたので使ってみた。 イデオンでは通らなかった。Orz 755 名前：デフォルトの名無しさん mailto:sage [2016/09/13(火) 03:30:44.87 ID:jvr3tDVu.net] 画像つけ忘れた。Orz sssp://o.8ch.net/gsxd.png 756 名前：デフォルトの名無しさん mailto:sage [2016/09/13(火) 08:28:14.57 ID:ziymAouq.net] >>694 https://ideone.com/wVBe61 (コードではなく計算結果) 円周上の格子点、高速化頑張ったら15分でこれ位行けるようになった＠PentiumG6950 https://ideone.com/lpXRWS こっちは1年前にUPしたけどスレに貼らなかった計算結果…結構長い時間かけて計算したような覚えがある。 757 名前：デフォルトの名無しさん [2016/09/13(火) 11:57:17.52 ID:EheVVWlB.net] 円周の格子点問題は、数学でもプログラムでも一発で解答できる決定版はなさげで 力業をいかに高速化するかにかかってるとおもうな。 758 名前：デフォルトの名無しさん mailto:sage [2016/09/13(火) 12:05:57.03 ID:UfB/Iygd.net] 直径nキロメートルの円があります。 手島と大嶋は時計回りに円周上を走ることになりました。 手島は秒速tセンチメートル、大嶋は分速oメートルで走ります。 0<n<100000000 0≦t≦10000000 0≦o≦10000 0<m<1000000 大嶋が円をm周した時に手島はn周出来たか出力しなさい。 ■標準入力 1行目がn、2行目がtとo、3行目がm n t o m ■標準出力 n 759 名前：デフォルトの名無しさん mailto:sage [2016/09/13(火) 12:44:49.89 ID:c6Y5aSJz.net] >>743 nが2回出てきてるんですが っていうか、答えは整数実数どっち？ 後者なら有効数字はどうするの？ 760 名前：デフォルトの名無しさん mailto:sage [2016/09/13(火) 12:45:20.45 ID:jvr3tDVu.net] 時計ですなー。 761 名前：デフォルトの名無しさん mailto:sage [2016/09/13(火) 13:35:13.01 ID:ziymAouq.net] >>743 Java https://ideone.com/nWux6W 直径って出力に関係ないよね…？ 762 名前：デフォルトの名無しさん mailto:sage [2016/09/13(火) 23:16:40.62 ID:Hd4kFj6N.net] >>737 C ideone.com/JZTL1J >>743 C ideone.com/sIdSFq 763 名前：デフォルトの名無しさん [2016/09/14(水) 00:16:05.45 ID:U8aDu041.net] >>743 Rubyで。 input =<<END 2.5 100 200 10 END n, t, o, m = input.split.map { |e| e.to_f } p 3 * m * t >= 5 * o * n 764 名前：デフォルトの名無しさん mailto:sage [2016/09/14(水) 18:32:15.94 ID:XNPp97JV.net] 地球の半径ですら6400キロなのに 直径100000000キロまで設定している>>743って。。。 765 名前：デフォルトの名無しさん [2016/09/14(水) 21:22:01.11 ID:lCv5R5I7.net] 宇宙人なんだろう 観測史上最大の星 L1551 IRS5 だと1e8じゃあまだまだ足りんぞ 766 名前：デフォルトの名無しさん mailto:sage [2016/09/20(火) 20:19:45.34 ID:9oYup838.net] 出題出来るオレ、カッケー とか思って調子に乗ってやったんだろ、どうせ。 今頃恥ずかしくてこのスレも見ていないだろ。 こういう奴はdat落ちして新スレに移行するか、最新50くらいの 過去ログが流れてしまった頃に 素知らぬ顔してまた書き込み出すぜ。 767 名前：デフォルトの名無しさん mailto:sage [2016/09/20(火) 20:44:49.56 ID:goOJLnhv.net] 山下雄介 768 名前：デフォルトの名無しさん [2016/09/21(水) 12:22:41.32 ID:Fil1hk+D.net] Haxe(ヘックス)はOSSで、JSに型チェックを付けたような言語で(altJS)、 JS, Flash, PHP, C++, Java, C#, Python に書き出せる。 Windows8.1対応 IDEは、FlashDevelop このサイトで、ブラウザでプログラミングして、実行できる Try Haxe ! try.haxe.org/ Haxeプログラミング入門、尾野政樹、2015 769 名前：デフォルトの名無しさん mailto:sage [2016/09/28(水) 00:14:12.32 ID:x19ZT2Us.net] お題：足がコンパスのロボット 足がコンパスのようになっており、片足を支点にして交互に回転しながら歩くようなロボットがあります。 回転半径は１メートルで固定です。その回転角度は１０〜３６０°まで設定できるのですが、 実際に動かすと、その設定範囲内で１歩毎に常にランダムの角度で動いてしまいます。 例えば９０°に設定すると、１〜９０の範囲で１°間隔にてランダムな回転角度です。 スタート地点にこのロボットを置き、１０００歩、歩かせた場合、 最もスタート地点から遠ざかってしまう可能性が高い設定角度は １０°、３０°、４５°、６０°、９０°、１８０°、２７０°、３６０°のうちどれでしょう？ 770 名前：デフォルトの名無しさん mailto:sage [2016/09/28(水) 00:25:35.81 ID:va8I6tp2.net] 回転角度は10度以上360度以下の整数で 設定がn度のとき、1,2,3,...,n度で歩く確率がそれぞれ1/nってこと？ 設問がよくわからない 771 名前：７５３ mailto:sage [2016/09/28(水) 00:27:45.52 ID:x19ZT2Us.net] >>754 訂正します。 最もスタート地点から遠ざかってしまう可能性× 最も歩く範囲面積が大きくなる可能性○ 772 名前：７５３ mailto:sage [2016/09/28(水) 01:05:00.83 ID:x19ZT2Us.net] >>756 面積は必要なかったｗ 最も歩く範囲が大きくなる可能性○ 773 名前：デフォルトの名無しさん mailto:sage [2016/09/28(水) 01:08:31.73 ID:va8I6tp2.net] 歩く範囲って何？ そしてその範囲にどういう順序を導入すんの？ 774 名前：デフォルトの名無しさん mailto:sage [2016/09/28(水) 01:31:23.36 ID:x19ZT2Us.net] >>758 どうしようかな･･･ 例えば、ロボットが大きな円盤に乗っている。ロボットを中心に置く。 １０００歩歩かせた場合、一番大きな円盤を必要とする設定は概ね何度でしょう？ ってのがいいかな。 775 名前：デフォルトの名無しさん mailto:sage [2016/09/28(水) 01:44:05.92 ID:vAKZVh2k.net] なんという泥縄... 776 名前：デフォルトの名無しさん mailto:sage [2016/09/28(水) 02:12:02.41 ID:E00q6b/l.net] 設定が360度の場合、1度〜360度でランダムなのか10度〜360度でランダムなのか 777 名前：デフォルトの名無しさん mailto:sage [2016/09/28(水) 02:13:21.23 ID:E00q6b/l.net] て書いてあったわすまん 778 名前：デフォルトの名無しさん mailto:sage [2016/09/28(水) 02:18:42.43 ID:E00q6b/l.net] >>754 Java https://paiza.io/projects/CDqrMJ9Uzeu_xuPBk77a3Q これで良いんかの 779 名前：デフォルトの名無しさん mailto:sage [2016/09/28(水) 02:45:02.35 ID:E00q6b/l.net] うん、>>763バグってるねｗ https://paiza.io/projects/y_4Q-6RWYYRQul600Fxw7A 780 名前：７５３ mailto:sage [2016/09/28(水) 09:28:28.82 ID:5Q2VSD5F.net] >>764 正解！ 781 名前：片山博文MZ ◆T6xkBnTXz7B0 mailto:sage [2016/09/28(水) 23:43:35.22 ID:fvrxpn3K.net] お題：X-Y散布図のデータが与えられると、データの特徴を出力するプログラムを作れ。 782 名前：デフォルトの名無しさん mailto:sage [2016/09/29(木) 00:41:48.24 ID:jq9v4dMk.net] 質問。出力の型はな〜に？ 783 名前：片山博文MZ ◆T6xkBnTXz7B0 mailto:sage [2016/09/29(木) 00:56:33.41 ID:4ynE22uh.net] >>767 決まっていない。 784 名前：片山博文MZ ◆T6xkBnTXz7B0 mailto:sage [2016/09/29(木) 01:02:42.83 ID:4ynE22uh.net] Xが変化しないなら、「Xは定数と思われます」。 統計的特徴として、最大値、最小値、平均値など。 相関の有無など。 データの特徴を学習させるときに使えたらなと思う。 785 名前：片山博文MZ ◆T6xkBnTXz7B0 mailto:sage [2016/09/29(木) 01:09:09.41 ID:4ynE22uh.net] >>767 ごめんごめん、型は文字列がいいや。 786 名前：デフォルトの名無しさん mailto:sage [2016/09/29(木) 01:18:25.34 ID:5Ed1CqY4.net] プログラミングの問題じゃねーなそれ 787 名前：片山博文MZ ◆T6xkBnTXz7B0 mailto:sage [2016/09/29(木) 01:24:57.46 ID:4ynE22uh.net] お題：数列の規則性を分析して一般項のC言語式を推定するプログラム。 788 名前：デフォルトの名無しさん mailto:sage [2016/09/29(木) 01:26:33.81 ID:iWzko7DS.net] 変な奴きたなおい 789 名前：デフォルトの名無しさん mailto:sage [2016/09/29(木) 11:07:09.92 ID:S1ISAJ/O.net] お題： 次の文章が成り立つように(　)の中に数を入れよ（10進数の算用数字の形で）。 『この文章の中に 0は(　)文字、1は(　)文字、2は(　)文字、3は(　)文字、4は(　)文字、 5は(　)文字、6は(　)文字、7は(　)文字、8は(　)文字、9は(　)文字、 算用数字は(　)文字あります』 790 名前：デフォルトの名無しさん mailto:sage [2016/09/29(木) 11:12:05.26 ID:3fQeuqpk.net] 前にそれ見たことあるけど。問題ちょっと違うけど。 791 名前：デフォルトの名無しさん mailto:sage [2016/09/29(木) 13:26:29.91 ID:HDXVl+rI.net] >>774 複数解あるから全部列挙しろって事？ Ruby 2.3.1 $><<'『この文章の中に 0は(%d)文字、1は(%d)文字、2は(%d)文字、3は(%d)文字、4は(%d)文字、 5は(%d)文字、6は(%d)文字、7は(%d)文字、8は(%d)文字、9は(%d)文字、 算用数字は(　)文字あります』'%[1,7,5,1,1,2,1,2,1,1,22] 792 名前：デフォルトの名無しさん mailto:sage [2016/09/30(金) 17:18:56.68 ID:Y6l190wq.net] 数字と漢数字を相互に変換するプログラムを作成お願いします。 出来ればC#でお願いします。 例 111231243235436　<==> 百十一兆二千三百十二億四千三百二十三万五千四百三十六 793 名前：デフォルトの名無しさん [2016/09/30(金) 17:34:05.09 ID:CijhFsAG.net] じぶんでやれ 794 名前：デフォルトの名無しさん mailto:sage [2016/09/30(金) 19:16:59.63 ID:GrCnAQwz.net] おーくせんまんおーくせんまん 795 名前：デフォルトの名無しさん mailto:sage [2016/10/01(土) 15:45:59.82 ID:g8fgU4gY.net] お題と見せかけてプログラム作成依頼する奴って性格悪そう 796 名前：デフォルトの名無しさん mailto:sage [2016/10/01(土) 17:22:57.31 ID:Hi+y6PXx.net] じゃぱぁーん！ 797 名前：デフォルトの名無しさん [2016/10/01(土) 23:29:57.15 ID:sU5CeuPC.net] >>777 Ruby ideone.com/fKqGcR 798 名前：デフォルトの名無しさん mailto:sage [2016/10/02(日) 10:09:53.98 ID:tpSAAMa5.net] 逆方向が難しいな 799 名前：デフォルトの名無しさん mailto:sage [2016/10/02(日) 10:28:30.05 ID:9tnsJKRL.net] そうなの？ いまから取り組む予定だったけど そんなに難しいんなら止めよっと 800 名前：デフォルトの名無しさん mailto:sage [2016/10/02(日) 11:51:51.24 ID:QvMQ+uX0.net] 難しくはない 面倒くさいだけで 801 名前：デフォルトの名無しさん [2016/10/02(日) 17:21:53.04 ID:k1HK9CGy.net] >>777 Rubyで両方向。 ideone.com/vTwBZc 802 名前：デフォルトの名無しさん [2016/10/02(日) 21:03:52.42 ID:YNMJXJ08.net] お題：３×３×３のルービックキューブを最小手数で６面揃えるプログラム 803 名前：デフォルトの名無しさん [2016/10/02(日) 21:10:43.76 ID:w8w2bVqI.net] すいません>>787は自己解決しました 804 名前：デフォルトの名無しさん mailto:sage [2016/10/02(日) 21:17:54.22 ID:YgSevYt1.net] 自己解決ってなんだ 805 名前：デフォルトの名無しさん mailto:sage [2016/10/03(月) 02:19:06.57 ID:afA6oe1A.net] >>777 ruby 2.0.0 ideone.com/uwKDDc ・マイナスを▲で表現するアイデアは>>786さんから無断で拝借しました ・テスト部分のコードも>>786さんから無断で拝借しました 806 名前：デフォルトの名無しさん [2016/10/03(月) 07:04:42.97 ID:g0wnVkPc.net] >>790 サンクス 807 名前：デフォルトの名無しさん mailto:sage [2016/10/03(月) 15:18:20.56 ID:wy4v0QcT.net] >>787-789 ﾜﾗﾀw 808 名前：デフォルトの名無しさん mailto:sage [2016/10/03(月) 21:25:42.73 ID:lIBXU/7G.net] 数独ソルバーで任天堂問題解こうと思ったら、2000万年かかるようになった。Orz 総当たりだとキツイなぁ。数独は。平均サジェスト数が2個の81乗。死ぬわ。 809 名前：デフォルトの名無しさん mailto:sage [2016/10/03(月) 21:29:48.53 ID:lIBXU/7G.net] cp1.nintendo.co.jp/ruby.html ここから入門。 810 名前：デフォルトの名無しさん [2016/10/03(月) 21:33:29.69 ID:RKI08UEe.net] 任天堂問題とは? 811 名前：デフォルトの名無しさん mailto:sage [2016/10/03(月) 21:40:47.39 ID:lIBXU/7G.net] >>795 俺が作った造語。すまんな。 >>794のページから問題解いてくとアルヨ。 812 名前：デフォルトの名無しさん mailto:sage [2016/10/03(月) 21:59:25.51 ID:hxqof8pD.net] Rubyの自作ヘボ数独ソルバーですらコンマ以下で解けたぞ 813 名前：デフォルトの名無しさん mailto:sage [2016/10/03(月) 22:19:26.57 ID:lIBXU/7G.net] >>797 俺あんまりロジック解くの得意じゃないからねぇ。 C++でかいたけど、総当たりは筋が悪いことはわかったよ。 814 名前：デフォルトの名無しさん mailto:sage [2016/10/03(月) 22:24:43.42 ID:aKvG7AoT.net] 総当たりから不要なパターンを省いていくのも一つの手だと思う 815 名前：デフォルトの名無しさん mailto:sage [2016/10/03(月) 22:25:59.85 ID:hxqof8pD.net] >>797 基本ルール：ある数字と同じ列（or行or3*3の正方形）にはその数字が入らない これだけでも実装して後は背理法でやればすぐ解けると思うぞ 解の一意性がどうかとか細かいこともあるけどこの問題は一意的に求まるから関係ないし 816 名前：デフォルトの名無しさん mailto:sage [2016/10/03(月) 22:27:06.95 ID:lIBXU/7G.net] ideone.com/afSrEW ここからどうしたらいいと思う？ i7-6700でも2000万年かかる。 817 名前：デフォルトの名無しさん mailto:sage [2016/10/04(火) 01:44:53.95 ID:a8C2punc.net] >>793-794 昔書いたソースコードを流用した ideone.com/ibTP88 818 名前：デフォルトの名無しさん mailto:sage [2016/10/04(火) 01:58:03.23 ID:FAQ7jfY8.net] >>802 グレート！ すごいな、イデオン時間で解けるもんなんだなぁ。うーん。俺は修業が足りんな。 俺も結構書いたかと思ったけど全然うわてだ。 ロジック解くときはやっぱこれくらい書かないとダメかー。 ひぎぃ、頭がフットーしちゃうよぉ〜。 819 名前：デフォルトの名無しさん mailto:sage [2016/10/04(火) 02:23:25.94 ID:a8C2punc.net] >>803 数独は有名な解き方がいくつかあるので、それを知らないと難しいかも いくつもある解き方を実装するのは面倒なのでバックトラック法でやるのがいいと思う 820 名前：デフォルトの名無しさん mailto:sage [2016/10/04(火) 02:52:38.24 ID:FAQ7jfY8.net] >>804 情報ありがとう。いいものが見れた。 821 名前：デフォルトの名無しさん mailto:sage [2016/10/04(火) 19:40:37.29 ID:wFGKqamD.net] お題：任天堂の倒し方をプログラムせよ。 822 名前：デフォルトの名無しさん mailto:sage [2016/10/04(火) 21:58:16.07 ID:ZRyYrZJK.net] 大作だなあ… 823 名前：デフォルトの名無しさん mailto:sage [2016/10/04(火) 23:47:40.64 ID:YN9fMNzy.net] 「方法をブログラムせよ」ってのが謎なんですが 824 名前：デフォルトの名無しさん mailto:sage [2016/10/04(火) 23:50:15.04 ID:FAQ7jfY8.net] 日本語で。 株を買います。株主総会でゴネマス。倒せます。 825 名前：デフォルトの名無しさん [2016/10/05(水) 00:49:13.06 ID:JfbCSBrf.net] >>806 プログラムしたよ。 826 名前：デフォルトの名無しさん mailto:sage [2016/10/05(水) 19:29:14.00 ID:Bgv24eMU.net] 任天堂の倒し方を知っていると 言っていた面接官は 827 名前：デフォルトの名無しさん [2016/10/05(水) 19:35:13.81 ID:ljdAnrxD.net] お題：激問 828 名前：デフォルトの名無しさん mailto:sage [2016/10/05(水) 21:44:58.11 ID:d6ezgCbb.net] >>793 ideone.com/cILqPg C++。 やっと解けたよー。ほとんどデバッグも整形もしてないけど、答えはあってるかも。 2000万年が0秒になった。頭タコすぎて泣けるわ。 頭がフットーする。 >>802に感謝。 829 名前：デフォルトの名無しさん mailto:sage [2016/10/05(水) 21:45:50.48 ID:iBWfgtGO.net] print "任天堂の倒し方" 830 名前：デフォルトの名無しさん mailto:sage [2016/10/05(水) 21:56:56.37 ID:NHEuemUY.net] ヒントページ見れば苦労せずに誰でも書けそうなもんだが 831 名前：デフォルトの名無しさん mailto:sage [2016/10/05(水) 22:05:52.60 ID:d6ezgCbb.net] >>815 ルビー読めません。Orz 832 名前：デフォルトの名無しさん mailto:sage [2016/10/06(木) 17:02:16.03 ID:VkVdfdR0.net] スタックを操作するプログラムまたそれを表示するプログラムをお願いします 833 名前：デフォルトの名無しさん mailto:sage [2016/10/06(木) 17:48:54.19 ID:Gk0vxqlO.net] 狩野英孝のものまねで「スタックー」って叫べばOK 834 名前：片山博文MZ ◆T6xkBnTXz7B0 mailto:sage [2016/10/06(木) 18:13:10.02 ID:KbZqo+3y.net] >>817 自動変数のアドレスはスタックへのポインターになる 835 名前：デフォルトの名無しさん mailto:sage [2016/10/06(木) 19:29:47.14 ID:LwTuJfQY.net] スタックを操作するプログラムってこんなんでいいのかな？ #include <malloc.h> #include <stdio.h> #include <string.h> unsigned char data[6] = {0x68,0,0,0,0,0xc3}; unsigned int func() { unsigned int *p; p = malloc(1024); memcpy(p,data,6); *((unsigned int*)&data[1]) = *((unsigned int*)((unsigned int*)(&p) + sizeof(unsigned int*))); *((unsigned int*)((unsigned int*)(&p) + sizeof(unsigned int*))) = (unsigned int)p; printf("0x%X\n",*((unsigned int*)((unsigned int*)(&p) + sizeof(unsigned int*)))); return *((unsigned int*)&data[1]); } int main(void) { printf("0x%X\n",func()); return 0; } 836 名前：デフォルトの名無しさん mailto:sage [2016/10/06(木) 19:48:03.50 ID:LwTuJfQY.net] >>820 すまん、これ間違ってますねぇ・・・ スタックの操作って環境依存な気がするけどどうなんでしょう 837 名前：デフォルトの名無しさん mailto:sage [2016/10/06(木) 20:04:22.70 ID:SdPd3klr.net] え？データ構造の練習の話じゃなくてプログラムの一時領域の話？ ちなみにここは宿題スレじゃない。 838 名前：デフォルトの名無しさん mailto:sage [2016/10/06(木) 21:15:35.91 ID:dAHZcQmf.net] スマホで入力した数字を出力しなさい Sは0から9までの数字とcと+と-からなる文字列 0＜S＜1001 Sの先頭は数字から始まる Sの最後に+と-がこない cは入力済みの数字をクリアする +は左辺に1を足し、-は右辺に1を引く Sに数字が含まれていなかったり、cと+と-が先頭や最後に出てきたり2文字以上続いたらERRORと出力すること ■stdin 5+1-32c8 ■stdout 8 ■stdin 32+8 ■stdout 338 ■stdin +24c25 ■stdout ERROR 839 名前：修正 mailto:sage [2016/10/06(木) 21:16:30.92 ID:dAHZcQmf.net] スマホで入力した数字を出力しなさい Sは0から9までの数字とcと+と-からなる文字列 0＜S＜1001 Sの最後に+と-がこない cは入力済みの数字をクリアする +は左辺に1を足し、-は右辺に1を引く Sに数字が含まれていなかったり、cと+と-が先頭や最後に出てきたり2文字以上続いたらERRORと出力すること ■stdin 5+1-32c8 ■stdout 8 ■stdin 32+8 ■stdout 338 ■stdin +24c25 ■stdout ERROR 840 名前：修正 mailto:sage [2016/10/06(木) 21:17:13.95 ID:dAHZcQmf.net] Sの最後に+と-がこない ↑この１文も削除 841 名前：修正 mailto:sage [2016/10/06(木) 21:18:37.24 ID:dAHZcQmf.net] 119+5 なら1205 842 名前：デフォルトの名無しさん mailto:sage [2016/10/06(木) 21:55:36.99 ID:hrJ3iBy7.net] この+,-ってスマホの入力とどういう関係があるの？ 843 名前：デフォルトの名無しさん mailto:sage [2016/10/06(木) 21:59:09.52 ID:HEfd0Rj6.net] また山下雄介か 844 名前：デフォルトの名無しさん mailto:sage [2016/10/07(金) 10:59:44.51 ID:1a/aMfXp.net] >>824 ruby if gets.chomp!.split(/[c+-]/, -1).include?('') puts:ERROR else str = $_.include?(?c)? $_[/c\K[^c]*$/] : $_ ary = str.split(/\b/) ary.each_with_index{|s, i| case s when /^\d+$/ then next when ?+ then ary[i - 1].succ! when ?- then ary[i + 1] = (ary[i + 1].to_i - 1).to_s end ary.delete_at(i) } puts ary*'' end 845 名前：828 mailto:sage [2016/10/07(金) 11:10:04.11 ID:1a/aMfXp.net] ミス if gets.chomp!.split(/[c+-]/, -1).include?('') puts:ERROR else str = $_.include?(?c)? $_[/c\K[^c]*$/] : $_ ary = str.split(/\b/) ary.each_with_index{|s, i| case s when /^\d+$/ then next when ?+ then ary[i - 1].succ! when ?- then ary[i + 1] = (ary[i + 1].to_i - 1).to_s end ary[i] = nil } puts ary.compact*'' end 846 名前：828 mailto:sage [2016/10/07(金) 11:21:01.09 ID:1a/aMfXp.net] ミス 連投すまんこれで最後にするわ if gets.chomp!.split(/[c+-]/, -1).include?('') puts:ERROR else str = $_.include?(?c)? $_[/c\K[^c]*$/] : $_ ary = str.split(/\b/) ary.each_with_index{|s, i| case s when /^-?\d+$/ then next when ?+ then ary[i - 1] = (ary[i - 1].to_i + 1).to_s when ?- then ary[i + 1] = (ary[i + 1].to_i - 1).to_s end ary[i] = nil } puts ary*'' end 847 名前：デフォルトの名無しさん [2016/10/08(土) 08:08:57.97 ID:vxldEz4C.net] >>824 830を参考にしました。 Ruby ideone.com/AizppP 848 名前：デフォルトの名無しさん mailto:sage [2016/10/09(日) 01:39:18.78 ID:okPyT/Vt.net] 1行で gets.chomp!.split(/[c+-]/,-1)&['']!=[]?$><<:ERROR:(~/c/?$_[/c\K[^c]*$/]:$_).split(/\b/).tap{|a|$><<a.each_with_index{|s,i|s.to_s[/\d/]?next: a[i-e=44-s.ord]=a[i-e].to_i+e;a[i]=p}*''} 849 名前：デフォルトの名無しさん mailto:sage [2016/10/09(日) 03:00:29.48 ID:BybICDK4.net] やっぱRubyって･･･いや、なんでもない 850 名前：デフォルトの名無しさん mailto:sage [2016/10/09(日) 21:58:35.59 ID:2oHV2A6O.net] >>823-826 ・「右辺に1を引く」の右辺をマイナスのすぐ右側の数と解釈 def f8823(s) # Sに数字が含まれていなかったり、 # cと+と-が先頭や最後に出てきたり2文字以上続いたらERRORと出力すること return 'ERROR' if /\d+/ !~ s || /(^[c+-]|[c+-]$|[c+-]{2,})/ =~ s # cは入力済みの数字をクリアする # +は左辺に1を足し、-は右辺に1を引く s.gsub(/.+c/, '').gsub(/(\d+)\+/) {$1.next}.gsub(/-(\d+)/) {($1.to_i - 1).to_s} end p %W(#{} c + - 1c 1+ 1- c1 c+ c- 1cc1 1++1 1--1 1c+-1 119+5 119-5 119c5 1+1-1 1+1+1 1-1-1).map {|s| [s, f8823(s)]} ↓ $ ruby 8823.rb [["", "ERROR"], ["c", "ERROR"], ["+", "ERROR"], ["-", "ERROR"], ["1c", "ERROR"], ["1+", "ERROR"], ["1-", "ERROR"], ["c1", "ERROR"], ["c+", "ERROR"], ["c-", "ERR OR"], ["1cc1", "ERROR"], ["1++1", "ERROR"], ["1--1", "ERROR"], ["1c+-1", "ERROR" ], ["119+5", "1205"], ["119-5", "1194"], ["119c5", "5"], ["1+1-1", "210"], ["1+1 +1", "221"], ["1-1-1", "100"]] 851 名前：834 mailto:sage [2016/10/09(日) 22:19:57.08 ID:k3CHV3QP.net] >>835は完全に間違っているので取り下げます 1-1+1 が 120 になっちゃうねこれじゃあ 852 名前：デフォルトの名無しさん [2016/10/09(日) 23:19:57.10 ID:0NJ6apgZ.net] >>836 ideone.com/Qb37qE で実行してみたが、　 1-1+1 は、ERRORじゃね？ 853 名前：デフォルトの名無しさん mailto:sage [2016/10/10(月) 08:00:29.16 ID:HHuVI6c/.net] お題： A B C … Z 1 2 3 26 とするとき、 KNOWLEDGE -> 11 + 14 + 15 + 23 + 12 + 5 + 4 + 7 + 5 = 96 HARDWORK -> 8 + 1 + 18 + 4 + 23 + 15 + 18 + 11 = 98 ATTITUDE -> 1 + 20 + 20 + 9 + 20 + 21 + 4 + 5 = 100 となる。 総和が100となる他の単語を3つ見つけよ。 854 名前：デフォルトの名無しさん mailto:sage [2016/10/10(月) 08:20:11.21 ID:jxPg9rAk.net] 辞書ファイルくださいｗ 855 名前：デフォルトの名無しさん mailto:sage [2016/10/10(月) 08:52:21.18 ID:HHuVI6c/.net] >>839 っdetail.chiebukuro.yahoo.co.jp/qa/question_detail/q1412673334 856 名前：デフォルトの名無しさん mailto:sage [2016/10/10(月) 09:34:42.77 ID:jxPg9rAk.net] >>838 Java https://paiza.io/projects/vpDhY14oTq6f2YXv4a5wIA 857 名前：デフォルトの名無しさん mailto:sage [2016/10/10(月) 11:41:38.97 ID:PJGQtdQ9.net] >>838 ruby wordlist.txtは改行\n区切りとする $><<open('wordlist.txt').readlines.select{|s|s=s.chomp.upcase.delete('^A-Z');s.codepoints.reduce(&:+)-s.size*64==100}[0,3]*'' 858 名前：デフォルトの名無しさん mailto:sage [2016/10/10(月) 15:20:38.52 ID:vALgwmuK.net] >>838 Emacs Lisp (require 'cl-lib) (cl-mapcan (lambda (s) (and (not (string-match 859 名前：デフォルトの名無しさん mailto:sage [2016/10/10(月) 15:47:08.07 ID:vALgwmuK.net] >>838 Emacs Lisp (require 'cl-lib) (setq result (cl-mapcan (lambda (s) (and (not (string-match "\x5b^A-Z]" s)) (= (apply #'+ (mapcar (lambda (x) (- x ?@)) (upcase s))) 100) (list s))) (split-string (with-temp-buffer (insert-file-contents "/usr/dict/words") (buffer-string))))) (cl-loop for i from 0 below 3 do (print (nth i result))) "accumulate" "acknowledge" "adulthood" (cl-loop for i from 0 below 3 do (print (nth i (reverse result)))) "yarrow" "Yankton" "wholesale" 860 名前：デフォルトの名無しさん mailto:sage [2016/10/10(月) 17:24:16.08 ID:Tl2g/5GS.net] 左下から右上に登る階段を作りなさい 標準入力よりA Bが与えられる Aは段数 Bは平らな部分の長さ 0 ≦ (A,B) 何も出力されるものがなければNONEと出力すること [stdin] 3 2 [stdout] ******__ ****__| **__| __| [stdin] 0 1 [stdout] _ [stdin] 0 0 [stdout] NONE 861 名前：デフォルトの名無しさん mailto:sage [2016/10/10(月) 18:14:49.37 ID:jxPg9rAk.net] >>845 段数1以上で平らの部分の長さが0の場合はNONEと|が縦に並ぶのとどっち？ 862 名前：デフォルトの名無しさん mailto:sage [2016/10/10(月) 18:21:18.09 ID:PJGQtdQ9.net] >>845 Ruby 1行で eval"a,b=%s+1,%s;b<1?$><<:NONE:a.times{|i|puts ?**(a+~i)*b+?_*b+?|*i[0]}"%gets.split 863 名前：164 mailto:sage [2016/10/10(月) 18:30:33.51 ID:WihadwZK.net] >>845 Perl use f 864 名前：eature qw{:5.16}; $_ = <>; ($n, $l) = split; $s = sub { my $i = $_[0]; ($n or $l) and $i <= $n ? __SUB__->($i + 1) . '*' x $l x $i . '_' x $l . ($i < $n ? '|' : '') . "\n" : '' }->(0); print $s ? $s : "NONE\n"; d:\Home>perl 8_844_step.pl 3 2 ******__ ****__| **__| __| d:\Home>perl 8_844_step.pl 0 1 _ d:\Home>perl 8_844_step.pl 1 0 | d:\Home>perl 8_844_step.pl 0 0 NONE [] [ここ壊れてます] 865 名前：164 mailto:sage [2016/10/10(月) 18:33:10.57 ID:WihadwZK.net] >>848 の d:\Home>perl 8_844_step.pl から下の行はコマンドプロンプトから実行した結果の画面のコピペで、 プログラムソースは use feature qw{:5.16}; … print $s ? $s : "NONE\n"; の範囲です 866 名前：デフォルトの名無しさん mailto:sage [2016/10/10(月) 18:40:27.87 ID:PJGQtdQ9.net] Ruby 出力がNONE ⇔ a=0かつb=0 だとすれば eval"a,b=%s+1,%s;a+b<2?$><<:NONE:a.times{|i|puts ?**(a+~i)*b+?_*b+?|*-2[i]}"%gets.split 867 名前：デフォルトの名無しさん mailto:sage [2016/10/10(月) 18:41:34.94 ID:XcJmDjCA.net] >>845 C# なんか宿題っぽいし（悪いけど）いまいちなお題に思えたけど暇だからやってみた https://ideone.com/sAWIyp やっぱりかなり退屈だなw 868 名前：デフォルトの名無しさん mailto:sage [2016/10/10(月) 20:10:20.45 ID:GJ6N0Utq.net] >>838 rustc 1.8.0 use std::io; use std::io::prelude::*; fn main() { let stdin = io::stdin(); for line in stdin.lock().lines().map(|x| x.unwrap()).filter(|s| s.chars().fold(0, |acc, c| acc + 1 + c as i32 - 'A' as i32) == 100).take(3) { println!("{}", line); } } >>845 ruby 2.0.0 a, b = $stdin.gets.scan(/\d+/).map {|s| s.to_i} stairs = (0..a).inject([]) {|acc, i| acc << '*' * b * (a - i) + '_' * b + (0 < i ? '|' : '')} puts b == 0 ? 'NONE' : stairs.join("\n") 869 名前：デフォルトの名無しさん mailto:sage [2016/10/10(月) 20:29:46.85 ID:GJ6N0Utq.net] >>845 ruby 2.0.0 ちょい整理 a, b = $stdin.gets.scan(/\d+/).map {|s| s.to_i} stairs = (0..a).map {|i| '*' * b * (a - i) + '_' * b + (0 < i ? '|' : '')} puts b == 0 ? 'NONE' : stairs.join("\n") 870 名前：デフォルトの名無しさん mailto:sage [2016/10/10(月) 20:35:05.59 ID:XcJmDjCA.net] ケチつけるつもりは全然なくて純粋な疑問なんだけど、 Rubyってとにかく短く書くのが命で可読性はどうでもいいっていう文化なの？ 871 名前：デフォルトの名無しさん mailto:sage [2016/10/10(月) 20:39:05.26 ID:QHxKPE5l.net] >>854 せやで 872 名前：デフォルトの名無しさん mailto:sage [2016/10/10(月) 20:40:37.95 ID:PJGQtdQ9.net] >>854 >>847とか>>850は勝手にゴルフっぽいことしてるだけで Rubyではコードが短いほど良いという共通の価値観はないよ 873 名前：デフォルトの名無しさん mailto:sage [2016/10/10(月) 20:45:28.26 ID:GJ6N0Utq.net] >>854 個人的にはそれはむしろPerlだと思うけどｗ （過去の個人的な体験に基づく偏見です） 874 名前：デフォルトの名無しさん mailto:sage [2016/10/10(月) 20:45:57.40 ID:XcJmDjCA.net] >>856 やっぱりそうだよねw ありがとう 875 名前：デフォルトの名無しさん [2016/10/10(月) 20:51:52.34 ID:xXMHDLa+.net] rubyは作者がそもそもコードの表記法にこだわっているからruby文化全体に表記にこだわりを持つ部分があるのは事実 876 名前：164 mailto:sage [2016/10/10(月) 21:02:10.31 ID:WihadwZK.net] >>857 Perlは短くするために難読性が高くなるような 書き方もできる自由度があるけど >>848はなるべく難読にならないように俺としては配慮して書いたつもりだよ。 ただ、ここに貼るとインデントがなくなっちゃうので見やすさは損なわれているけれど… >>848にポイントするとインデントが付くのでよかっらたポイントしてみてね。 >>848であえて意識したのは無名関数の自己再帰を使ったこと� 877 名前：ｭらいかな。 [] [ここ壊れてます] 878 名前：164 mailto:sage [2016/10/10(月) 21:56:18.64 ID:WihadwZK.net] >>838 Perl use feature say; use List::Util 'sum'; for (1..3) { local $_ = <>; chomp; redo if sum(map {ord($_) - ord('A') + 1} split '') != 100; say; } 879 名前：デフォルトの名無しさん mailto:sage [2016/10/10(月) 22:06:38.74 ID:GJ6N0Utq.net] >>860 実は俺はPerlの可読性なんかを1ミリも語れる状況に無くて 20年前に赤いラクダ本を先輩に貰ったまま本棚で腐らせてるような体たらく 読み書きままならないってだけなんで、どうかお気になさらないでください 880 名前：デフォルトの名無しさん mailto:sage [2016/10/11(火) 20:20:36.62 ID:4j+X4FeX.net] そうね、誕生石なら 881 名前：デフォルトの名無しさん mailto:sage [2016/10/11(火) 20:49:10.20 ID:5wY1VI8m.net] >>838 @Mathematica ideone.com/kMqMeG 882 名前：164 mailto:sage [2016/10/12(水) 00:29:27.25 ID:RXlYYM2a.net] >>823 >>824 Perl use feature 'say'; while (<>) { chomp; print "$_ => "; while (($a,$o,$b,$r) = /^(\d+)([c+-])(\d+)(.*)$/) { $a++ if $o eq '+'; $b-- if $o eq '-'; $a = '' if $o eq 'c'; $_ = "$a$b$r"; } say /^\d+$/ ? $_ : 'ERROR'; } 883 名前：164 mailto:sage [2016/10/12(水) 00:30:18.77 ID:RXlYYM2a.net] >>865 の実行結果の例 5+1-32c8 => 8 32+8 => 338 +24c25 => ERROR 119+5 => 1205 1-1+1 => 111 884 名前：デフォルトの名無しさん mailto:sage [2016/10/13(木) 20:27:03.99 ID:PLGkmVG9.net] >>823-826 rust 1.8.0 https://ideone.com/OGRf5X ・正規表現不使用 ・最後のjoin処理はideoneのrust 1.0.0に合わせて修正 885 名前：デフォルトの名無しさん mailto:sage [2016/10/14(金) 05:03:01.25 ID:ayBWV1jp.net] >>824 ideone.com/wEetSD C++。テストは>>835を一部拝借。失礼。 本分書き始める前に色々使いそうな関数書いたものの結局使わず。無駄だった。 あってるかなぁ。 886 名前：片山博文MZ ◆T6xkBnTXz7B0 mailto:sage [2016/10/24(月) 18:40:09.78 ID:Ea5AKtst.net] お題：隣接行列で与えられたネットワークを可能ならば一筆書きする。 不可能なら「No solution.」と表示する。 887 名前：片山博文MZ ◆T6xkBnTXz7B0 mailto:sage [2016/10/24(月) 18:56:42.71 ID:Ea5AKtst.net] お題：架空の４ビットＣＰＵの機械語を設計し、その論理式と回路図を出力するプログラムを作れ。 888 名前：デフォルトの名無しさん mailto:sage [2016/10/24(月) 23:05:36.84 ID:iFtzBvZM.net] ＞回路図を出力 図の形式は出題者が指定しなくちゃ。 889 名前：デフォルトの名無しさん mailto:sage [2016/10/24(月) 23:33:47.03 ID:Ea5AKtst.net] >>871 .svgか.pdf 890 名前：デフォルトの名無しさん [2016/11/04(金) 18:56:54.02 ID:8tGR/IuU.net] お題：1から9までの数字を1回づつ使って分数をつくる。 たとえば123/456789, 3962/17548など。 約分すると1/8になるものをすべてもとめる。 891 名前：デフォルトの名無しさん mailto:sage [2016/11/04(金) 19:08:46.32 ID:XfxE6vHI.net] 4ケタの順列を総なめしながら8倍してチェックするのかな 3024個みたいだからたいしたことなさそう 892 名前：デフォルトの名無しさん mailto:sage [2016/11/04(金) 22:07:13.71 ID:UQXTh2xL.net] >>873 https://ideone.com/oxmJ61 893 名前：デフォルトの名無しさん mailto:sage [2016/11/04(金) 22:20:51.84 ID:K4HA426Y.net] >>873 ideone.com/kfs5ma 894 名前：デフォルトの名無しさん mailto:sage [2016/11/05(土) 07:20:45.14 ID:JpuKs6gN.net] >>873 ideone.com/iDj8rX C++。総当たりのはずだけど、あってるかな？ 895 名前：デフォルトの名無しさん mailto:sage [2016/11/05(土) 07:36:20.45 ID:JpuKs6gN.net] >>876 しゅごい。 896 名前：デフォルトの名無しさん mailto:sage [2016/11/05(土) 08:01:48.28 ID:eq+4G+9Q.net] >>873 Java ideone.com/ACELnF 897 名前：デフォルトの名無しさん mailto:sage [2016/11/05(土) 19:59:02.35 ID:giaAjwb2.net] >>873 Squeak/Pharo Smalltalk | ans | ans := OrderedCollection new. self assert: 987 * 8 < 123456. '123456789' permutationsDo: [:perm | 　| numer denom | 　numer := perm first: 4. 　denom := perm allButFirst: 4. 　numer asInteger * 8 = denom asInteger ifTrue: [ans add: numer, '/', denom] ]. ^ ans 898 名前：デフォルトの名無しさん mailto:sage [2016/11/05(土) 20:10:30.03 ID:4QNuq7Ui.net] >>879 なるほど、どうせ数が知れてるから真面目に順列でやる必要ないのかw 899 名前：164 mailto:sage [2016/11/05(土) 22:55:55.41 ID:9FbiGoMz.net] >>873 Perl use feature qw{:5.16}; $b = 8888; do { $b += 8; $a = $b/8; my %h; $h{$_}++ for split '', $a . $b; say "$a/$b" unless (exists $h{0} or 9 > keys %h) } while ($a <= 9999); next_permutation がライブラリに無いし 872の問題用に9文字から4桁の順列を生成する 再帰関数を作ろうとしたけど めんどくさくなって、別解法にしました。 900 名前：デフォルトの名無しさん mailto:sage [2016/11/05(土) 23:03:21.88 ID:Kvw69EBs.net] >>873 @Mathematica {"1","2","3","4","5","6","7","8","9","/"}// Permutations// Select[#,#[[1]]!="/"&]&// Select[#,#[[-1]]!="/"&]&// ParallelMap[StringJoin,#]&// Select[#,ToExpression[#]==1/8&]& 901 名前：デフォルトの名無しさん mailto:sage [2016/11/06(日) 10:45:05.08 ID:Ls7dpV42.net] >>873 類題 お題：1から9までの数字を1回づつ使って引き算をつくる。 たとえば123-456789, 3962-17548など。 引き算すると44444になるものをすべてもとめる。 902 名前：デフォルトの名無しさん mailto:sage [2016/11/06(日) 11:16:41.58 ID:BmMxYEOk.net] >>884 C ideone.com/H2wG0P 903 名前：デフォルトの名無しさん mailto:sage [2016/11/06(日) 12:39:57.86 ID:1PuOCcw9.net] >>884 Java ideone.com/qRUcKG 書き換え2行 904 名前：デフォルトの名無しさん mailto:sage [2016/11/06(日) 14:47:56.12 ID:UyE09MO8.net] >>884 Squeak Smalltalk | ans | ans := OrderedCollection new. self assert: 123456 - 987 > 44444. '123456789' permutationsDo: [:perm | 　| x y | 　x := perm first: 5. 　y := perm allButFirst: 5. 　x - y = '44444' ifTrue: [ans add: x, '-', y] ]. ^ ans 905 名前：デフォルトの名無しさん mailto:sage [2016/11/06(日) 15:31:09.29 ID:+kwTAqkL.net] >>873 >>884 c https://ideone.com/OVUNzF ・全パターンをチェック ・肝心な部分（comb, permute）はぐぐったサイトから無断で拝借しました ・セパレータ要素も一緒に混ぜとく案は>>883さんを参考にしました ・一部の関数名（permutations_do）について>>887さんを参考にしました 906 名前：デフォルトの名無しさん mailto:sage [2016/11/06(日) 16:07:27.17 ID:1MCBSGi9.net] >>884 Io Range 1234 to(9876)select(i, (i ..(i+44444))asMutable sort =="123456789 )map(j,(44444+j).."-".. j) 907 名前：デフォルトの名無しさん mailto:sage [2016/11/06(日) 19:36:04.77 ID:jK1sWMF7.net] https://twitter.com/codera_iroha/status/795116603557879808 > せんぱいは、10億以下の整数の中で、最も約数の多い整数を求めるプログラムを書けますか？ 908 名前：デフォルトの名無しさん mailto:sage [2016/11/06(日) 20:36:12.30 ID:9KctHGA8.net] 直感的には重複しない素数の積だと思うけど証明はできんなw 909 名前：デフォルトの名無しさん mailto:sage [2016/11/06(日) 23:07:17.87 ID:1PuOCcw9.net] >>890 Java https://ideone.com/lJ037U あまり考えずに 910 名前：デフォルトの名無しさん mailto:sage [2016/11/06(日) 23:39:17.02 ID:jK1sWMF7.net] >>892 Good Job 911 名前：デフォルトの名無しさん mailto:sage [2016/11/06(日) 23:40:47.89 ID:jK1sWMF7.net] >>892 Good Jobじゃなく正解というべきだったな 912 名前：デフォルトの名無しさん mailto:sage [2016/11/07(月) 00:17:44.47 ID:+ilf/hxD.net] >>892 どういうロジックかさっぱりわかんないやw でも、 newYakusu += yakusu; これはちょっとおかしい気がするw 913 名前：デフォルトの名無しさん mailto:sage [2016/11/07(月) 00:55:26.00 ID:MDpsc3Qw.net] newYakusu *= 2; が正解だろうな、たぶん 914 名前：デフォルトの名無しさん mailto:sage [2016/11/07(月) 01:14:46.43 ID:t5QB3k9f.net] っていうか、2*3*5は2*3の2倍の約数があるのはわかるけど、 2*2*2は2*2より1つ多いだけだと思うんだけど... まあたぶん俺が何か勘違いしてるんだろうなw 915 名前：デフォルトの名無しさん [2016/11/07(月) 01:18:30.50 ID:N5kIq+jA.net] 重複ははずしてだろ。ふつうに。どうみても2べきが小さいから。 916 名前：デフォルトの名無しさん mailto:sage [2016/11/07(月) 09:25:12.04 ID:VzgYAniQ.net] 素因数の指数+1をすべて掛け合わせれば約数の数になる 917 名前：デフォルトの名無しさん mailto:sage [2016/11/07(月) 19:37:58.99 ID:ZbCfelvl.net] >>899 素因数分解がむずかしいね，テーブルで持っておくしかないか 918 名前：デフォルトの名無しさん mailto:sage [2016/11/07(月) 21:09:59.66 ID:hgWS81A3.net] >>892 が計算量を減らすためにバッサリ切り捨ててるとこが良く分からないけど 出てる答え 735134400 = 2^6*3^3*5^2*7*11*13*17 の他にもう一つ約数の数 1344 があった 931170240 = 2^6*3^2*5*7*11*13*17*19 もっとあるかも、というか正解は別にあるかもという気がしなくもない 919 名前：デフォルトの名無しさん mailto:sage [2016/11/07(月) 21:37:10.62 ID:VzgYAniQ.net] >>901 https://ideone.com/UJF04i >>892の素数リスト、19が抜けてるやｗ リスト表示するようにしても931170240が出てこないからおかしいなと確認したら初歩的なミスｗ 920 名前：デフォルトの名無しさん mailto:sage [2016/11/08(火) 02:53:20.88 ID:E77IrmWO.net] 10億以下で約数の数が1344の整数はたぶん4つ 735134400 = 2^6*3^3*5^2*7*11*13*17 821620800 = 2^6*3^3*5^2*7*11*13*19 931170240 = 2^6*3^2*5*7*11*13*17*19 994593600 = 2^6*3^3*5^2*7*11*13*23 921 名前：デフォルトの名無しさん mailto:sage [2016/11/09(水) 05:42:59.95 ID:rWt9CCW+.net] >>890 @Mathematica ideone.com/3wqeR5 922 名前：デフォルトの名無しさん mailto:sage [2016/11/09(水) 09:54:20.69 ID:bJUc+90s.net] >>890 >>902 を参考に C++ ideone.com/OeTnpx 923 名前：デフォルトの名無しさん mailto:sage [2016/11/09(水) 12:57:49.64 ID:n6HvGTQo.net] hello worldを出力しなさい 但し文字リテラルと数字をコード中に書いてはいけません 924 名前：デフォルトの名無しさん mailto:sage [2016/11/09(水) 13:07:00.37 ID:DsWyA9Yw.net] >>906 誰得。 925 名前：デフォルトの名無しさん mailto:sage [2016/11/09(水) 13:39:36.94 ID:RQn7BeEP.net] >>906 https://ideone.com/StMgsy https://ideone.com/whA3mU 926 名前：デフォルトの名無しさん mailto:sage [2016/11/09(水) 14:40:02.73 ID:yNpdMLCi.net] >>906 ruby -e 'class HelloWorld ;end; p HelloWorld' 927 名前：デフォルトの名無しさん mailto:sage [2016/11/09(水) 15:20:35.35 ID:7Gidw00Y.net] >>906 https://ideone.com/xwzB8Z 928 名前：デフォルトの名無しさん mailto:sage [2016/11/09(水) 15:22:04.34 ID:7Gidw00Y.net] 可読性の高いコードができたぜ 929 名前：デフォルトの名無しさん mailto:sage [2016/11/09(水) 15:57:41.78 ID:R5k7JcnE.net] >>906 ideone.com/xt4UEz 930 名前：デフォルトの名無しさん mailto:sage [2016/11/09(水) 16:09:57.80 ID:RQn7BeEP.net] >>906 https://ideone.com/4Z2U4N 標準入力はコードのうちに入りますか？ 931 名前：デフォルトの名無しさん mailto:sage [2016/11/09(水) 18:09:11.97 ID:w47niDgV.net] >>906 文字リテラルは禁止だけど文字列はOK？ 932 名前：デフォルトの名無しさん mailto:sage [2016/11/09(水) 18:11:01.84 ID:w47niDgV.net] >>906 これに似てるね 普通じゃないHello World問題「Restricted Words」の解説記事 #伝説 #しえる｜CodeIQ MAGAZINE https://codeiq.jp/magazine/2013/09/120/ 933 名前：デフォルトの名無しさん mailto:sage [2016/11/09(水) 19:45:29.90 ID:B1AmaaJH.net] >>906 Squeak Smalltalk | hello world | thisContext method tempNamesString "=> 'hello world' " 934 名前：デフォルトの名無しさん mailto:sage [2016/11/09(水) 21:56:55.91 ID:3MgWSwni.net] >>906 https://ideone.com/o8SEV1 https://ideone.com/0PwVHQ 935 名前：片山博文MZ ◆T6xkBnTXz7B0 mailto:sage [2016/11/09(水) 22:31:53.26 ID:A1mSNctr.net] お題：テーブルの上にきれいにきちんと重なったトランプ１セットが置いてあり、全てのカードの表が上向きになっている。 プログラムはカードの並びを入れ換えたり、上からn番目のカードを読み込むことができる。 この仮想的なトランプを操作することによって円周率を求めるプログラムを書け。 936 名前：デフォルトの名無しさん mailto:sage [2016/11/09(水) 22:43:42.78 ID:RQn7BeEP.net] まず>>918のコードが見たいなー} 937 名前：デフォルトの名無しさん mailto:sage [2016/11/10(木) 00:53:34.51 ID:7cWLs5su.net] >>906 https://ideone.com/i6ZnJc 938 名前：164 mailto:sage [2016/11/10(木) 01:07:34.71 ID:UjUlxJgT.net] >>908 あんさんは、 Programmingを 楽しんでますなー。 気に入ったぜ。 939 名前：164 mailto:sage [2016/11/10(木) 01:11:20.89 ID:UjUlxJgT.net] 以下、enterprise fizzbuzzみたいな hellow worldを書く椰子 ↓ 940 名前：デフォルトの名無しさん mailto:sage [2016/11/10(木) 01:21:32.89 ID:rkwF1pIg.net] brainfuckやwhitespeceで文字出力するだけってジェネレータで出来るじゃん 941 名前：デフォルトの名無しさん mailto:sage [2016/11/11(金) 21:28:06.13 ID:drAYGWtl.net] >>906 @Mathematica ideone.com/1PtMdm 942 名前：デフォルトの名無しさん mailto:sage [2016/11/12(土) 12:36:20.63 ID:OOJ7Wqnx.net] 大文字を出力してるので減点 943 名前：デフォルトの名無しさん mailto:sage [2016/11/12(土) 14:05:38.79 ID:FKtxBunI.net] 真面目か 944 名前：デフォルトの名無しさん mailto:sage [2016/11/12(土) 14:44:10.92 ID:5nMDDcWB.net] >>906　C ideone.com/Be4XYH 945 名前：デフォルトの名無しさん mailto:sage [2016/11/12(土) 18:06:10.50 ID:pVnBGILb.net] お題 整数Aに整数Bを加算しなさい 但し3桁に区切って計算すること AとBは文字列で標準入力から2行に分けて与えられる 0≦A≦999999999999999999999999999999999 0≦B≦999999999999999999999999999999999 標準入力 1234 15 標準出力 1249 解説 A=1234 B=15 Aは3桁を超えてるので123と4に分割される 123*10+B+4=1249 もしくは 1*1000+234+B=1249 946 名前：デフォルトの名無しさん mailto:sage [2016/11/12(土) 18:31:12.94 ID:kNoTIrA7.net] >>928 ＞3桁に区切って の意図がわからない 普通に多桁長加算の実装じゃないのか？ 947 名前：デフォルトの名無しさん mailto:sage [2016/11/12(土) 18:50:09.31 ID:8285RMD/.net] 多桁長の演算を実装するだけのようだし 3桁に区切るって限定しなくてもいいよな。 948 名前：デフォルトの名無しさん mailto:sage [2016/11/12(土) 19:55:55.39 ID:Q4JxAaLZ.net] >>906 c ・数年前に同じお題をここか別のスレでやったような気が… #include <stdio.h> int main() { struct { struct {long _a, _b;} _a, _b, space, _d, _e, _f; char _,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z; } __; #define _(v) putchar((void *)&__.v - (void *)&__) _(h),_(e),_(l),_(l),_(o),_(space),_(w),_(o),_(r),_(l),_(d); return &__ - &__; } 949 名前：デフォルトの名無しさん mailto:sage [2016/11/12(土) 20:04:46.68 ID:8285RMD/.net] >>931 こりゃすごい！ 今まで最短の上に可読性が高い！ 950 名前：デフォルトの名無しさん mailto:sage [2016/11/12(土) 20:22:45.93 ID:X4UPo+EY.net] >>931 ideoneでもローカルでもダメだったゾ https://ideone.com/hhNgqg 951 名前：930 mailto:sage [2016/11/12(土) 21:03:19.70 ID:Li4gnKYC.net] >>932 ども！ でも最短じゃあないよねｗ >>933 ごめん sizeof(long)が8の環境で確認してた struct {struct {char a,b,c,d;} a,b,c,d;} _a, _b, space, _d, _e, _f; これでどこでも動くはず 952 名前：デフォルトの名無しさん mailto:sage [2016/11/12(土) 22:58:47.72 ID:VjO69xXO.net] ＞sizeof(long)が8の環境で確認してた あれま？ paiza.IOではちゃんと動いたけど ideoneやCodeIQではダメだったか 953 名前：デフォルトの名無しさん mailto:sage [2016/11/13(日) 00:35:59.69 ID:GDVX8Ikh.net] >>931 >数年前に同じお題を >>915のCodeIQの問題とかじゃね？ 954 名前：デフォルトの名無しさん mailto:sage [2016/11/13(日) 08:49:46.08 ID:y8U2/o7H.net] >>906 https://ideone.com/ST1qS2 955 名前：デフォルトの名無しさん [2016/11/13(日) 09:05:29.71 ID:FuKHFetX.net] お題：ｎビットのグレイコ＾ドを生成する。 例 n 3 000 001 011 010 110 111 101 100 S 956 名前：デフォルトの名無しさん [2016/11/13(日) 09:14:09.45 ID:FuKHFetX.net] お題：nビットのグレイコードを生成する。 例 n=3 000 001 011 010 110 111 101 100 957 名前：デフォルトの名無しさん mailto:sage [2016/11/13(日) 11:09:32.80 ID:w9Y83CjX.net] >>939 @Mathematica ideone.com/WXOxKH 958 名前：デフォルトの名無しさん mailto:sage [2016/11/13(日) 12:26:26.96 ID:ArrhAnA/.net] >>939 Java ideone.com/SOEHsd brainfuckでやろうかなと思ったが、少し考えてめんどくさくなってやめた 959 名前：デフォルトの名無しさん mailto:sage [2016/11/13(日) 19:09:07.56 ID:EpE2S11k.net] >>939 C# ideone.com/Gbq0NT >>941 こんな短く書けるのかw ガックリ来たわ どういうロジックかさっぱり分からんw 960 名前：デフォルトの名無しさん mailto:sage [2016/11/13(日) 20:45:37.87 ID:qMZbrJPH.net] >>942 ニコニコ百科からの転載でアレだけどこれ抑えてれば理解できるんじゃね >二進数を1ビット右にシフトし(先頭は0)、元の二進数と各桁で排他的論理和をとると得られる。また、1ずつ増やした場合、グレイコードで変化する桁は、二進数で0が1に変化する桁(繰り上がる先の桁)に等しい。 入力数値の分だけ1をシフトさせてやりゃ入力数値が桁数に変換できるから あとはその桁数に達するまでforループ回して元数値と右シフト数値の排他的論理和とって2進表示し続けてる感じだと思う 無駄がなくてスマートなプログラムな感じがするけどsubstring(1)だけよく分からない 961 名前：デフォルトの名無しさん mailto:sage [2016/11/13(日) 20:53:45.16 ID:ArrhAnA/.net] >>943 指定桁数の2進数を作るのに最上位ビット捨ててる n=3だと1xxxの文字列作って一番左削ってる感じ printf等で指定桁数の2進数作れりゃそっち使うんだけどｗ 962 名前：デフォルトの名無しさん [2016/11/13(日) 21:00:49.81 ID:qMZbrJPH.net] >>244 桁数調整の為に一旦論理和とってから最初の1だけ捨ててるのか 勉強になりました 963 名前：デフォルトの名無しさん mailto:sage [2016/11/13(日) 21:09:45.44 ID:EpE2S11k.net] >>943 なるほどそういう定式化された求め方があるのか グレイコードなんて大昔学校で習って以来まったく使ったことがないから知らなかったよ。 ありがとう 964 名前：デフォルトの名無しさん mailto:sage [2016/11/14(月) 04:33:29.92 ID:/TJLzgQW.net] >>939 Nim https://ideone.com/JsyrW3 965 名前：デフォルトの名無しさん mailto:sage [2016/11/15(火) 07:10:12.87 ID:H9REv+Ri.net] >>906 J hello =: noun world =: noun ;:inv nl $~ noun 966 名前：デフォルトの名無しさん mailto:sage [2016/11/15(火) 07:34:43.51 ID:HcDSv4MP.net] >>906 ここをクリック >>906 967 名前：デフォルトの名無しさん mailto:sage [2016/11/15(火) 07:52:00.92 ID:k57TIQI7.net] 次スレあるの？ 968 名前：デフォルトの名無しさん mailto:sage [2016/11/15(火) 15:27:30.98 ID:Veyi95OJ.net] >>932 何が凄いのか分からん hello worldがコード中に埋め込まれて いるのが見えるんだが、だったら printfでhello world書いているのと同じじゃあないの？ 969 名前：デフォルトの名無しさん mailto:sage [2016/11/15(火) 16:32:08.46 ID:evn38iuN.net] >>951 printf("hello world");←これの""で囲まれてる部分が文字列リテラル 今回は文字列リテラルと数字を使わずにハロワを出力してみろってお題だからprintfでそのまま書いてたらアウト 970 名前：デフォルトの名無しさん mailto:sage [2016/11/15(火) 18:08:30.22 ID:DO3IaX9S.net] >>906のお題は文字列リテラル禁止じゃなく文字リテラル禁止だよ 971 名前：デフォルトの名無しさん mailto:sage [2016/11/15(火) 18:30:01.74 ID:evn38iuN.net] そうかそいつはすまなかった読み違えたよ >>952の2行目の「文字列リテラル」は「文字リテラル」に置き換えて読んでくれ 972 名前：デフォルトの名無しさん mailto:sage [2016/11/15(火) 18:59:50.88 ID:DO3IaX9S.net] C言語なら "hello world"のダブルクオートで括るのは文字列リテラルだけど 文字リテラルはシングルクオートで括るから 文字列リテラル使うprintf("hello world")は合法だよ 973 名前：デフォルトの名無しさん mailto:sage [2016/11/15(火) 19:02:18.94 ID:DO3IaX9S.net] brainfuckやwhitespaceは処理系によってはもしかすると文字リテラルや文字列リテラルあるのかもしれないけど C言語で>>906の問題を解くなら>>931と基本同じように文字コード計算して出力するだけだから大差ないよね 974 名前：デフォルトの名無しさん mailto:ｓage [2016/11/16(水) 06:37:25.19 ID:NqgYpFgU.net] ？ 975 名前：デフォルトの名無しさん mailto:sage [2016/11/16(水) 20:12:56.69 ID:5Ihw572q.net] >>906 C# ideone.com/FHDr9j やっぱり面白くないな 976 名前：デフォルトの名無しさん mailto:sage [2016/11/16(水) 21:43:19.98 ID:h+UNZgYe.net] " "や'_'を使ってるところがウケ狙いなのかもしれないけど 確かにそんなに面白くない 977 名前：デフォルトの名無しさん mailto:sage [2016/11/16(水) 22:49:50.11 ID:opmi2l/i.net] 文字コードが絡む問題は悪名高いEBCDICを真っ先に思い浮かべてしまって その考慮がされてないとちょっと白ける部分がある 978 名前：デフォルトの名無しさん [2016/11/20(日) 01:25:08.34 ID:60DKtBPZ.net] >>906 ruby2 print :hello, [:s, :S].map(&:to_s).map(&:ord).inject(:-).chr, :world melpon.org/wandbox/permlink/i4MWT1u23HHuoe7P 979 名前：デフォルトの名無しさん mailto:sage [2016/11/20(日) 13:28:08.49 ID:mWWihz9s.net] >>906 Haskell ideone.com/QN4BaU 980 名前：デフォルトの名無しさん mailto:sage [2016/11/21(月) 08:38:02.28 ID:4Ckt/1Kw.net] >>906 F# type ``hello world`` = W printfn "%s" typeof<``hello world``>.Name 981 名前：デフォルトの名無しさん mailto:sage [2016/11/21(月) 08:39:37.06 ID:4Ckt/1Kw.net] 訂正 >>906 F# type ``hello world`` = W stdout.WriteLine typeof<``hello world``>.Name 982 名前：デフォルトの名無しさん [2016/11/21(月) 18:47:44.72 ID:3NXFWxK7.net] >>939 ruby n = 3 (1 << n).times do |v| puts "%0#{n}b" % (v ^ (v >> 1)) end melpon.org/wandbox/permlink/BnpyEB9rsl73vBDI 983 名前：デフォルトの名無しさん mailto:sage [2016/11/21(月) 19:50:16.01 ID:nCxXmPKB.net] >>935 （´･∀･`）ﾍｰ　動く環境もあったのね >>936 CodeIQ見たことも聞いたこともない >>906 c ・数字つこうた ・四則演算ビット演算無し ・文字リテラル文字列リテラル無し ・移植性と他の環境で動く保障無し #include <stdio.h> int main() { int is[] = {1819043176, 1870078063, 6581362}; long long lls[] = {8031924123371070824, 6581362}; puts((char *)is); puts((char *)lls); return 0; } ↓ hello world hello world 984 名前：デフォルトの名無しさん mailto:sage [2016/11/21(月) 20:56:30.60 ID:/F1fcl9l.net] 文字コードに依存するわエンディアンに依存するわ、後出しでどんだけ劣化するんだ 985 名前：デフォルトの名無しさん mailto:sage [2016/11/21(月) 23:37:55.18 ID:7dMNwwBf.net] 数字もダメ というのがルール 986 名前：デフォルトの名無しさん mailto:sage [2016/11/22(火) 02:14:49.59 ID:bN+iUVDf.net] 勝手に問題作り変えちゃダメだよね 国語できなさそう 987 名前：デフォルトの名無しさん mailto:sage [2016/11/22(火) 04:14:16.14 ID:hJpZQ6a9.net] >>906 ideone.com/X7Wrl9 C++??　既出の回答に感動してパクってみた。 数字自作してる時点であんまり問題の意味ないよね。 体をなしてないというか。 988 名前：デフォルトの名無しさん mailto:sage [2016/11/22(火) 05:24:33.85 ID:7Ti0FWyJ.net] >>906 ideone.com/XH28rr Python3 HQ9+的アプローチで数値計算してない 989 名前：デフォルトの名無しさん mailto:sage [2016/11/22(火) 08:07:22.61 ID:ofQaf/jO.net] リバースエンジニアリングしてもコード中にリテラルが無いので解読されにくいという事だよね 990 名前：デフォルトの名無しさん mailto:sage [2016/11/22(火) 08:58:18.46 ID:hJpZQ6a9.net] 秘密主義は技術の向上を阻害するのであんまり興味ないな。 991 名前：デフォルトの名無しさん mailto:sage [2016/11/22(火) 11:24:14.19 ID:O62ysXRT.net] でも「神秘的！ステキ！」とか言われてクラッカーやハッカーにモテるかもよ 992 名前：デフォルトの名無しさん mailto:sage [2016/11/22(火) 20:14:09.73 ID:svcAyLEK.net] >>906 Common Lisp https://ideone.com/jcgKGl 993 名前：デフォルトの名無しさん mailto:sage [2016/11/22(火) 21:11:42.55 ID:0aK0hXHG.net] >>906 c https://ideone.com/5oPjJu ・数字無し ・四則演算ビット演算無し ・文字リテラル文字列リテラル無し ・移植性と他の環境で動く保障無し >>906 ruby ・バッククォートつこうた puts `echo hello world` 994 名前：デフォルトの名無しさん mailto:sage [2016/11/22(火) 22:00:15.16 ID:GG9ZZPlA.net] >>976 cの方面白い 細かいけどreturn 0;に数字使われて 995 名前：るのに笑ってしまった [] [ここ壊れてます] 996 名前：デフォルトの名無しさん mailto:sage [2016/11/22(火) 22:12:48.53 ID:bzMDKvPC.net] bash $echo hello world 997 名前：デフォルトの名無しさん mailto:sage [2016/11/22(火) 22:32:08.95 ID:GG9ZZPlA.net] それがありなら c++ https://ideone.com/5fVbir 998 名前：デフォルトの名無しさん mailto:sage [2016/11/22(火) 22:33:06.33 ID:GG9ZZPlA.net] もう出てたか 999 名前：デフォルトの名無しさん mailto:sage [2016/11/23(水) 03:02:34.05 ID:1DVlaY/L.net] >>976 その手があったか。思いつかなかった 1000 名前：デフォルトの名無しさん mailto:sage [2016/11/23(水) 16:23:56.87 ID:zVQCWlzE.net] >>977 > return 0;に数字使われてる どわーっ！！ >>906 c codepad.org/4F3U6t52 ・移植性と他の環境で動く保障無し （少なくともideoneじゃコンパイルエラー 変形して通しても次の問題が出てきて駄目） 1001 名前：デフォルトの名無しさん mailto:sage [2016/11/23(水) 17:00:53.66 ID:v3lmFY9L.net] bash $cat message.txt 1002 名前：164 mailto:sage [2016/11/28(月) 21:11:05.16 ID:rbBqsttl.net] >>906 Perl sub AUTOLOAD {($AUTOLOAD =~ /::(.+)$/)[0]} print Hello()." ".World()."\n"; 1003 名前：164 mailto:sage [2016/11/28(月) 21:24:43.26 ID:rbBqsttl.net] >>984 しまった、listのindexに0を使っちゃってる。 return 0;がﾀﾞﾒ?かもしれないならば数字使っちゃﾀﾞﾒ?? ならばこうか… >>906 Perl sub AUTOLOAD { $AUTOLOAD =~ s/^.*:://; $AUTOLOAD } print hello()." ".world()."\n"; 1004 名前：164 mailto:sage [2016/11/28(月) 21:42:11.18 ID:rbBqsttl.net] >>906 Perl つか、これでｲｲｼﾞｬﾝ。 package hello_world; print join ' ', split '_', __PACKAGE__; 連投ｽﾏｿ 1005 名前：デフォルトの名無しさん mailto:sage [2016/11/28(月) 21:56:43.31 ID:dQXmDcQq.net] 文字リテラル知らんのか？ 1006 名前：164 mailto:sage [2016/11/28(月) 22:24:35.04 ID:rbBqsttl.net] "hello world"の文字列リテラルだけじゃなく " "もﾀﾞﾒてことか…orz ' 'は一応「文字」だけどまぁ歓迎されない感じだな もうひと工夫いるけどﾏﾝﾄﾞくさくなってきた 1007 名前：デフォルトの名無しさん [2016/11/29(火) 19:26:40.96 ID:LsagP9/y.net] コードとコンパイラによっては最適化で文字が埋め込まれることに 1008 名前：デフォルトの名無しさん mailto:sage [2016/11/29(火) 21:35:16.55 ID:1MA0K2jV.net] 先入れ中出しのアルゴリズムを実装せよ 1009 名前：デフォルトの名無しさん mailto:sage [2016/11/29(火) 21:39:13.43 ID:+UdcctZr.net] やだ、できちゃう 1010 名前：デフォルトの名無しさん mailto:sage [2016/11/29(火) 21:49:39.94 ID:PX7t+lnB.net] 先っちょだけだから 1011 名前：デフォルトの名無しさん mailto:sage [2016/11/30(水) 01:45:20.18 ID:b7dyxQXg.net] >>990 C++にはSTLにQueueあるからねぇ。 今更、作る意義がわからない。 1012 名前：デフォルトの名無しさん mailto:sage [2016/11/30(水) 04:13:31.77 ID:b7dyxQXg.net] って、ネタかよ。真面目に答えるんじゃなかった。 1013 名前：デフォルトの名無しさん mailto:sage [2016/11/30(水) 12:22:48.19 ID:y2jQ/DIV.net] STLは知らないけど.NETのキューって要素1つずつしか出し入れできないんだよね これだとバッファーとしては使いづらいから自作したわ 1014 名前：デフォルトの名無しさん mailto:sage [2016/11/30(水) 12:44:08.74 ID:UIwN06Hs.net] LINQ使えばいいんじゃね 1015 名前：デフォルトの名無しさん mailto:sage [2016/11/30(水) 23:47:33.27 ID:8E5tVjA8.net] Queueって先入れ中出しなん？ 1016 名前：デフォルトの名無しさん mailto:sage [2016/12/01(木) 00:54:11.48 ID:NHXaAvDm.net] それもネタなんだろ 1017 名前：デフォルトの名無しさん mailto:sage [2016/12/01(木) 06:10:42.69 ID:I/74Zq7s.net] 次スレありますでしょうか。 1018 名前：デフォルトの名無しさん mailto:sage [2016/12/01(木) 15:05:04.44 ID:HhJrKDKy.net] ｔ 1019 名前：小倉優子 ◆YUKOH0W58Q mailto:sage [2016/12/01(木) 15:05:24.69 ID:HhJrKDKy.net] 　　∧,,,∧　 　( 　・∀・)　1000ならジュースでも飲むか 　 (　　 　)　 　　し─J　 1020 名前：過去ログ ★ [[過去ログ]] ■ このスレッドは過去ログ倉庫に格納されています

---

---

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

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