プログラミングのお題スレ 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/ 宿題は宿題スレがあるのでそちらへ。 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 &__ - &__; }

---

---

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

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