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

1 名前：デフォルトの名無しさん [2014/09/21(日) 00:34:47.71 ID:WCtTxfaP] プログラミングのお題スレです。 前スレ プログラミングのお題スレ Part4 peace.2ch.net/test/read.cgi/tech/1402622093/ プログラミングのお題スレ toro.2ch.net/test/read.cgi/tech/1357191974/ 出されたお題をコーディングして罵られるスレ toro.2ch.net/test/read.cgi/tech/1354393458/ 【出題と回答例】 1 名前：デフォルトの名無しさん 　　お題：お題本文 2 名前：デフォルトの名無しさん 　　>>1 使用言語 　　回答本文 【ソースコードが長くなったら】 codepad.org/ ideone.com/ 宿題は宿題スレがあるのでそちらへ。 65 名前：デフォルトの名無しさん mailto:sage [2014/09/24(水) 05:40:11.99 ID:7S8qGuxj] お題：頂点の座標が(0,0),(0,L),(L,L),(L,0)の辺長Lの正方形がある。 これをすべて大きさの異なる正方形に分割した。各正方形の辺長は 26,24,60,2,22,28,8,14,17,13,6,7,23,50,4,16,21,12,27,18,3,15 である。このデータは各正方形の左下の頂点をXを第1キー、 Yを弟２キーとした昇順の並び順になっている。 各正方形の左下の頂点の座標を求める。 66 名前：デフォルトの名無しさん mailto:sage [2014/09/24(水) 06:47:55.02 ID:KBFgIokm] >>54 Perl ideone.com/e05JDP 67 名前：デフォルトの名無しさん mailto:sage [2014/09/24(水) 08:45:28.67 ID:qN3itg9e] >>65 ttp://ideone.com/qXck8R ほぼC。問題が割と素直でよかった。 キリシマ問題みたいな検索が無かったので何とかなった。 最初問題よく読んでなくて力ずくで解こうとしたのはないしょだ。 68 名前：デフォルトの名無しさん mailto:sage [2014/09/24(水) 11:19:48.91 ID:E6n9D2xU] >>54 Squeak Smalltalk | xigxag | xigxag := [:w :h | 　0 to: h-1 do: [:y | 　　0 to: w-1 do: [:x | 　　　Transcript nextPut: ('!-' at: ((x+y \\ (h-1)) * (x-y \\ (h-1))) sign + 1) 　　]. Transcript cr. 　]. Transcript cr; endEntry ]. Transcript open. xigxag value: 11 value: 5. xigxag value: 16 value: 6. 69 名前：デフォルトの名無しさん mailto:sage [2014/09/24(水) 22:35:39.85 ID:hdgcnesQ] >>65 Python import math q = [26,24,60,2,22,28,8,14,17,13,6,7,23,50,4,16,21,12,27,18,3,15] L = int(math.sqrt(sum(a*a for a in q))) ans = [] area = [[None for x in range(L)] for x in range(L)] for x in range(L): 　　for y in range(L): 　　　　if len(ans) >= len(q): break 　　　　if not area[y][x]: 　　　　　　h = q[len(ans)] 　　　　　　for dx in range(h): 　　　　　　　　for dy in range(h): 　　　　　　　　　　area[y+dy][x+dx] = chr(ord('A')+len(ans)) 　　　　　　ans.append((x,y)) print ans #for a in reversed(area): print "".join(a) --- [(0, 0), (0, 26), (0, 50), (24, 26), (24, 28), (26, 0), (46, 28), (46, 36), (54, 0), (54, 17), (54, 30), (60, 30), (60, 37), (60, 60), (67, 17), (67, 21), (71, 0), (83, 21), (83, 33), (92, 0), (92, 18), (95, 18)] 70 名前：デフォルトの名無しさん mailto:sage [2014/09/25(木) 12:22:22.02 ID:oTmNFJvj] >>65 Squeak Smalltalk | ws L border | ws := #(26 24 60 2 22 28 8 14 17 13 6 7 23 50 4 16 21 12 27 18 3 15). L := (ws * ws) sum sqrt. border := Array new: L withAll: 0. ^ws collect: [:w | 　| y x | 　y := border indexOf: (x := border min). 　y to: y+w-1 do: [:idx | border at: idx incrementBy: w]. 　x@(y-1) ] "=> {0@0 . 0@26 . 0@50 . 24@26 . 24@28 . 26@0 . 46@28 . 46@36 . 54@0 . 54@17 . 54@30 . 60@30 . 60@37 . 60@60 . 67@17 . 67@21 . 71@0 . 83@21 . 83@33 . 92@0 . 92@18 . 95@18} " 71 名前：デフォルトの名無しさん mailto:sage [2014/09/26(金) 06:06:07.66 ID:h0+5zF68] 　　|=番兵|_ 　（　　・ω・）　＜ ｽﾃﾝﾊﾞｰｲ 　　〇=｛=｝〇　　　　　　　　∧,, ∧ 　　|::::::::::＼　　　　　　　　(*‘ω‘ *) ､､､し ､､､((（.＠）vv､vvv ､､（､v､）っv､､ 72 名前：デフォルトの名無しさん mailto:sage [2014/09/26(金) 22:32:07.09 ID:OuqeUKn+] >>65 J f=:3 :0 L=.%:+/y^2 w=.0 0,(0,L),(L,L),:L,0 r=.i.0 0 for_i. y do. r=.r,{.w w=.w,({.w)(+"1)0 0,(0,i),(i,i),:i,0 w=./:~w-.(-.~:w)#w end. y,.r ) f 26 24 60 2 22 28 8 14 17 13 6 7 23 50 4 16 21 12 27 18 3 15 26 0 0 24 0 26 60 0 50 (略) 18 92 0 3 92 18 15 95 18 73 名前：デフォルトの名無しさん mailto:sage [2014/09/27(土) 05:48:55.84 ID:vG38XDPk] >>65 Io f:=method(A, L:=A map(**2)sum sqrt w:=list(list(0,0),list(0,L),list(L,0),list(L,L)) r:=list A foreach(i, p:=w min px:=p at(0) py:=p at(1) r push(list(p)) list(p,list(px,py+i),list(px+i,py),list(px+i,py+i))foreach(j, if(w contains(j),w remove(j),w push(j)) ) ) r ) 74 名前：デフォルトの名無しさん [2014/09/27(土) 09:57:43.95 ID:KE8XqyCz] だれかジオメトリシェーダー部分を書いて下さい monobook.org/wiki/SL_Sharp 75 名前：デフォルトの名無しさん mailto:sage [2014/09/27(土) 18:42:16.51 ID:6iG2wykO] >>65 Haskell main = print $ p65 [26,24,60,2,22,28,8,14,17,13,6,7,23,50,4,16,21,12,27,18,3,15] p65 edges = map (\(x, y, _) -> (x, y)) . reverse $ foldl f [] edges 　where 　　l = floor . sqrt . fromIntegral . sum $ map (^2) edges 　　f ps e = (head [(x, y, e) | x <- [0..l-1], y <- [0..l-1], not $ touch x y ps]):ps 　　touch x y = any (\(sx, sy, ss) -> sx <= x && x < sx + ss && sy <= y && y < sy + ss) 76 名前：デフォルトの名無しさん mailto:sage [2014/09/27(土) 18:50:19.14 ID:Yl+ojJfz] 無限ループになるコードを1行で書きなさい 77 名前：デフォルトの名無しさん mailto:sage [2014/09/27(土) 18:55:26.60 ID:6iG2wykO] >>76 Haskell main = print $ last [0..] 78 名前：山下雄介＠上級者 ◆1Bax/hBUwKIJ mailto:sage [2014/09/27(土) 19:02:34.88 ID:Yl+ojJfz] 手島君が1から100の範囲で1つ数字を思い浮かべました その数字を当てなさい その数字が不正解の時は、正解の数字より高いか低いかは教えてもらえます 最短で正解の数字を当てなさい 79 名前：デフォルトの名無しさん mailto:sage [2014/09/27(土) 19:39:09.20 ID:abKsREh3] なお手島くんは22%くらいの確率で、 大小関係についてウソをつくそうです 80 名前：デフォルトの名無しさん mailto:sage [2014/09/27(土) 19:50:30.58 ID:2j9vH2tZ] 機械相手に一生懸命入力してる手島くんのために100回目で正解当てるコード書こう(適当) 81 名前：デフォルトの名無しさん mailto:sage [2014/09/27(土) 20:04:30.56 ID:LiPjrIzD] >>76 Prolog r :- r. 82 名前：デフォルトの名無しさん mailto:sage [2014/09/27(土) 20:12:21.42 ID:DXaZxPH6] >>76 C/C++ for (;;); 83 名前：デフォルトの名無しさん mailto:sage [2014/09/27(土) 20:29:46.61 ID:Chmua2a8] >>76 輪廻転生.pl print '→生→死' while 1; 84 名前：デフォルトの名無しさん mailto:sage [2014/09/27(土) 20:33:03.81 ID:vG38XDPk] >>76 J ,^:(_)1 Io loop(8) Maxima do 8; 85 名前：デフォルトの名無しさん mailto:sage [2014/09/27(土) 20:34:23.55 ID:Chmua2a8] >>78>>80 100万回やっても無理な場合がある。正解がπとかだったらどうするよ？ 86 名前：デフォルトの名無しさん mailto:sage [2014/09/27(土) 20:37:34.88 ID:2j9vH2tZ] >>85 本当だ 整数とすら言ってなかった 87 名前：デフォルトの名無しさん mailto:sage [2014/09/27(土) 21:55:19.08 ID:G9WDbqrY] >>78>>79 Python ideone.com/PLcCef 88 名前：デフォルトの名無しさん [2014/09/27(土) 22:27:08.87 ID:40eOdFUh] 型がわかれば整数の問題とあんまり変わらないだろ 89 名前：山下雄介＠上級者 ◆1Bax/hBUwKIJ mailto:sage [2014/09/28(日) 00:39:43.55 ID:RZX9lPG9] 0と1のみでランダムに生成した文字列Sがある 長さは2<=S<=1000である 11001010110100011001011011111111111111000000000010111000000 同じ文字で連続した文字列の内、他の連続する文字列よりも一番長い文字列をMX 同じ文字で連続した文字列の内、ニ番目に短い文字列をMN としたときのMXとMNを求めよ 見当たらない場合はFALSEを出力しろ S=110001010100 MX=3 (000が一番長い) MN=2 (11または00が二番目に長い) S=111111 MX=3 (111111が一番長い) MN=FALSE (2番目に短いものが存在しない) S=10 MX=FALSE (1番長いのが存在しない) MX=FALSE (2番目に短いものが存在しない) 90 名前：デフォルトの名無しさん mailto:sage [2014/09/28(日) 02:03:02.94 ID:YHDmkQBf] >>89 Haskell -- 一番長いのの条件がわからんが勝手に解釈した import Data.List main = mapM (print.p89) ["11001010110100011001011011111111111111000000000010111000000", "110001010100", "111111", "10"] p89 s = let r = nub.reverse.sort.map length$group s in (if 1<=length r then Just$r!!0 else Nothing, if 2<=length r then Just$r!!1 else Nothing) (Just 14,Just 10) (Just 3,Just 2) (Just 6,Nothing) (Just 1,Nothing) 91 名前：デフォルトの名無しさん mailto:sage [2014/09/28(日) 05:24:03.32 ID:SflzpwZE] >>76 ttp://ideone.com/L5LGGN int main(){ return main();} 92 名前：デフォルトの名無しさん mailto:sage [2014/09/28(日) 06:09:53.87 ID:SflzpwZE] >>78 ttp://ideone.com/UDYKYh ほぼC。二分探査だ。嘘は入れてない。 93 名前：デフォルトの名無しさん mailto:sage [2014/09/28(日) 07:17:16.29 ID:SflzpwZE] >>89 ttp://ideone.com/53lyu1 ほぼC。適当に書いた。 94 名前：デフォルトの名無しさん mailto:sage [2014/09/28(日) 07:31:55.79 ID:7Waj3RIN] >>89 J 0はFALSEとします 連続する文字列は2文字以上とします f=:2&{.@\:~@~.@(#~ 1&<)@((#;.1)~1,(}.~:}:)) f '110001010100' 3 2 f '111111' 6 0 f '10' 0 0 f '1110001' 3 0 f '11100011' 3 2 95 名前：デフォルトの名無しさん mailto:sage [2014/09/28(日) 10:46:12.34 ID:Cu1iOogD] >>89 Python 他よりも一番長い（つまり唯一）, （それを除いて）ニ番目に短い と解釈しました。 import re def f(S): 　　d = dict() 　　for m in re.finditer(r"(.)\1*", S): 　　　　l,s = len(m.group()),m.group() 　　　　if not d.has_key(l): 　　　　　　d[l] = [] 　　　　d[l].append(s) 　　M = list(sorted(d.keys())) 　　MX = M.pop() if len(d[M[-1]]) == 1 else False 　　MN = M[1] if len(M) >= 2 else False 　　print "S={} => {}, {}".format(S,MX,MN) --- S=110001010100 => 3, 2 S=111111 => 6, False S=10 => False, False S=0011 => False, False S=00110 => False, 2 S=001100 => False, False S=0011000 => 3, False 96 名前：デフォルトの名無しさん mailto:sage [2014/09/28(日) 16:33:11.25 ID:lmN8tiDJ] >>78 F# type answer = Eq | Lt | Gt let tegima a q = if q = a then Eq elif q < a then Lt else Gt let inline ask one lo hi tegima = 　　let rec ask' lo hi = 　　　　if lo = hi then lo 　　　　else 　　　　　　let q = (lo + hi) / (one+one) 　　　　　　match tegima q with 　　　　　　| Eq -> q 　　　　　　| Lt -> ask' (q+one) hi 　　　　　　| Gt -> ask' lo (q-one) 　　ask' lo hi let ask100 = ask 1. 0. 100. >> printfn "%f" 　　 ask100 <| tegima 42. // 42.0 ask100 <| tegima System.Math.PI // 3.141592654 97 名前：デフォルトの名無しさん mailto:sage [2014/09/28(日) 19:00:02.66 ID:IeNBSGsI] >>89 例2,3を見ると繰り返し現れる文字列で一番長い物と 二番目の物って意味？ それとも例2はたんに書き間違いで 2文字以上で1番長い物と2番目に長い物？ 曖昧な仕様で後々実装後もめるパターンだなｗ。 98 名前：デフォルトの名無しさん mailto:sage [2014/09/28(日) 23:51:21.05 ID:AmQTaudV] >>89 Python 例示とは異なるが、純粋に一番長い連続と二番目に短い連続を取得と解釈(連続は2文字以上からで1文字のみは除外) あと、「FALSE」はNoneとさせてもらった 更にいうとリハビリがてらの超愚直コードなので広い心で見守っていただきたい・・・ def count_seq(str): 　　cnt, mx, mn1, mn2 = 1, None, None, None 　　str += 'X' 　　 　　for i in xrange(1, len(str)): 　　　　if str[i - 1] == str[i]: 　　　　　　cnt += 1 　　　　else: 　　　　　　if cnt > 1 and (mx is None or cnt > mx): 　　　　　　　　mx = cnt 　　　　　　if cnt > 1 and (mn1 is None or cnt < mn1): 　　　　　　　　mn1, mn2 = cnt, mn1 　　　　　　elif cnt > 1 and cnt > mn1 and (mn2 is None or cnt < mn2): 　　　　　　　　mn2 = cnt 　　　　　　cnt = 1 　　return (mx, mn2) map(count_seq, ('', '0', '1', '10', '111111', '110001010100', '11001010110100011001011011111111111111000000000010111000000')) →[(None, None), (None, None), (None, None), (None, None), (6, None), (3, 3), (14, 3)] map(count_seq, ('0011', '00110', '001100', '0011000')) →[(2, None), (2, None), (2, None), (3, 3)] 99 名前：片山博文MZ次期CEO ◆T6xkBnTXz7B0 mailto:sage [2014/09/28(日) 23:57:01.74 ID:uLb79luw] お題：穴ありbashをネットワークから探しだしてホストを列挙 100 名前：デフォルトの名無しさん mailto:sage [2014/09/29(月) 00:30:40.77 ID:0K8mksjW] ここにはハッカーはいないのか 101 名前：デフォルトの名無しさん mailto:sage [2014/09/29(月) 00:58:20.05 ID:LXjsJlBs] >>100 ハッカー様()の模範回答をご教授願うよw 102 名前：デフォルトの名無しさん mailto:sage [2014/09/29(月) 02:08:03.92 ID:v6qiSvKu] もうこの脆弱性を使って成長するボットネットが有るらしいけど… まぁUAをアレにしたブラウザなりクローラなり使えばいいだけ。 103 名前：デフォルトの名無しさん mailto:sage [2014/09/29(月) 10:54:40.10 ID:mrmYQHU+] >>89 Squeak Smalltalk | MXMN | MXMN := [:S | | runs MX MN | 　runs := (RunArray newFrom: S) runs copyWithout: 1. 　MX := runs ifEmpty: [false] ifNotEmpty: [runs max]. 　MN := (runs copyWithout: MX) ifEmpty: [false] ifNotEmpty: [:runs2 | runs2 max]. 　{MX. MN} ]. MXMN value: '110001010100'. "=> #(3 2) " MXMN value: '111111'. "=> #(6 false) " MXMN value: '10'. "=> #(false false) " 104 名前：山下雄介＠上級者 ◆1Bax/hBUwKIJ mailto:sage [2014/09/29(月) 18:40:13.84 ID:TuwBUZ1N] トーナメント表を出力しろ N=参加人数(0<=N<=26の範囲で、2で割り切れる整数) +-o-+ |xxx| oxxxo xx+--o--+xx xx|xxxxx|xx +-o-+x+-o-+ |xxx|x|xxx| oxxxoxoxxxo 105 名前：山下雄介＠上級者 ◆1Bax/hBUwKIJ mailto:sage [2014/09/29(月) 18:52:35.65 ID:TuwBUZ1N] こんなの13パターン予め作って出力しちゃえばいいんだから初心者でもマジで余裕でしょう

---

---

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

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