出されたお題をコーディングして罵られるスレ

出されたお題をコーディングして罵られるスレ at TECH

[前50を表示]
150:デフォルトの名無しさん
13/02/02 11:47:47.82
お題：自然数m、nが与えられたとき、mからnの区間にある平方数の個数を求めよ。
(1<m<n<100000000)

151:デフォルトの名無しさん
13/02/02 23:31:11.49
>>150
#include<stdio.h>
#include<math.h>
main(){
int m,n;
scanf("%d %d",&m,&n);
printf("%d\n",(int)sqrt(n)-(int)sqrt(m-1));
}

152:デフォルトの名無しさん
13/02/03 07:46:49.19
お題：正20面体の任意の4つの頂点の座標値が与えられたとき
この多面体のすべての頂点の座標値を出力せよ。
座標値の表現方法、出力順は自由。

153:デフォルトの名無しさん
13/02/04 19:09:02.47
お題：一辺の長さがLの正三角形に内接する円に内接する正三角形の面積を求めよ。

154:デフォルトの名無しさん
13/02/04 20:31:17.57
>>153
#include <stdio.h>
#include <math.h>

int main(void)
{
　double L, s, t, r;

　printf ("正三角形の１辺の長さ : ");
　scanf ("%lf", &L);

　/* 内接円の半径 r */
　s = (L*3)/2;　　　　　　　　　　　　　　// ヘロンの公式より
　t = sqrt( s*((s-L)*(s-L)*(s-L)) );　// 三角形の面積
　r = t/s;　　　　　　　　　　　　　　　　// 内接円の半径 r = 内接する三角形の中心から各頂点までの長さ

　/* 半径 r の円に内接する正三角形の面積 */
　s = (3 * r * (r/2) * sqrt(3))/2;

　/* 結果 */
　printf ("一辺が %f cm の正三角形に内接する"
　　"半径 %f cmの円に内接する"
　　"一辺が %f cmの正三角形の面積は : %f 平方cm", L, r, r, s);

　// 間違ってたら罵ってください
　return 0;
}

155:デフォルトの名無しさん
13/02/05 06:43:29.06
入力の単位分からないのに
結果の単位決まってんだな

156:デフォルトの名無しさん
13/02/05 23:23:25.63
お題：英大文字（A~Z）だけで構成される文字列を、2から始める素数列に対応づけ、暗号化後、復号化せよ。
復号化後の文字がただひとつに決まる（例：23と、2,3を区別）ように、暗号化時に適宜、空白1つを挿入すること。

157:デフォルトの名無しさん
13/02/10 08:57:11.24
お題：48個目のメルセンヌ素数 2^57885161-1 が見つかった。
この数の最後の10桁を求めよ。

158:デフォルトの名無しさん
13/02/10 12:12:11.80
>>157
n=57885161
a=1
n.times{|x|a*=2;a=a%10000000000}
p a-1

実行結果
1724285951
10.19s user 0.02s system 99% cpu 10.310 total

159:デフォルトの名無しさん
13/02/10 14:03:23.52
>>157
#include <stdio.h>

int main(){
long long int n = 1, i;
for (i = 0; i < 57885161; ++i) {
n *= 2;
n %= 10000000000;
}
printf("%lld¥n", n - 1 );
return 0;
}

// time ./a.out
// 1724285951
// ./a.out 0.50s user 0.00s system 98% cpu 0.510 total

160:デフォルトの名無しさん
13/02/10 14:10:26.42
print (2 ** 57885161 - 1) % 10

% python2 hoge.py
1

161:デフォルトの名無しさん
13/02/10 15:25:13.04
>>160
ボケがつまらん

162:デフォルトの名無しさん
13/02/10 16:59:46.76
>>157
dc
2 57885161 10 10 ^ | 1 - p
1724285951

163:デフォルトの名無しさん
13/02/10 18:00:17.75
dcは瞬く間に解が出るな

164:デフォルトの名無しさん
13/02/10 18:53:40.29
dcというのは、なんという名前のプログラミング言語でしょうか？

165:デフォルトの名無しさん
13/02/10 20:00:38.35
>>164
URLﾘﾝｸ(www.linuxcertif.com)

166:デフォルトの名無しさん
13/02/11 07:24:09.83
>>157 Io言語
powerMod := method(a, b, m,
r := 1
for(i, 0, b log2 floor,
if(b at(i) == 1, r = r * a % m)
a = a * a % m
)
r
)

Io> powerMod(2,57885161,10**10)-1
==> 1724285951

167:デフォルトの名無しさん
13/02/11 19:45:02.57
>>157
Clojure
(prn (dec (.modPow (bigint 2) (bigint 57885161) (bigint 10000000000))))

168:デフォルトの名無しさん
13/02/11 23:10:36.72
お題：8桁の整数12345678に下のような操作を100回繰り返してできる整数を求めよ。
操作
左から1,2,3,4,5,6,7,8番目の数字をそれぞれ左から2,4,6,8,1,3,5,7番目に移す。
つまり、ABCDEFGHをEAFBGCHDにする.
(灘中学入試問題より)

169:デフォルトの名無しさん
13/02/11 23:35:12.74
printf("87654321");

170:デフォルトの名無しさん
13/02/12 18:44:34.31
>>168 J言語
a =: "."0": 12345678
b =: /:"."0": 24681357
, ":"0 b&{ ^: 100 a
48372615

171:デフォルトの名無しさん
13/02/13 02:12:33.47
>>169
ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

172:デフォルトの名無しさん
13/02/15 01:48:32.23
お題：将棋盤の左下隅からいちばん外側の升目を右回りに N 舛だけ移動したときの
位置 P を求めよ。左下隅、左上隅、右上隅、右下隅をそれぞれ 99、91、11、19 とする。
例　N = 15 のとき P = 21

173:デフォルトの名無しさん
13/02/15 08:25:35.83
暗算出来る算数の問題ばっかり

174:デフォルトの名無しさん
13/02/15 18:11:13.29
>>172 Io言語
f := method(N,
a := 20 - N % 32
g := method(p, (p abs - 3)max(1)min(9) )
g(a) * 10 + g(8 - a)
)

Io> f(15)
==> 21
Io> f(2013)
==> 69

175:デフォルトの名無しさん
13/02/16 00:43:00.03
>>172 J言語
f =: monad def '(32|y){(99-a),(91-10*a),(11+a),19+10*a=.i.8'
f 15
21

176:片山博文MZパンク ◆0lBZNi.Q7evd
13/02/20 17:01:36.84
お題：Webメーラーを作れ。

177:デフォルトの名無しさん
13/02/22 19:51:39.41
お題：標準入力からの入力をそのまま標準出力へ出力するプログラム。

178:デフォルトの名無しさん
13/02/22 19:57:23.28
#include<stdio.h>
int main() {
int ch;
while (EOF != (ch = getchar())) putchar(ch);
return 0;
}

179:デフォルトの名無しさん
13/02/22 22:01:31.45
>>177 Io言語
File standardInput contents print

180:デフォルトの名無しさん
13/02/23 10:43:04.30
>>177
J

stdout stdin ''

181:デフォルトの名無しさん
13/02/23 10:49:24.61
整数(1～10程度でよい)を入力させ、中心から始まる螺旋状の数列を表示せよ。
例にあるハイフンは調整のためであり、表示は無用とする。

入力例 1:
1
出力例 1:
---5---4---3
---6---1---2
---7---8---9

入力例 2:
2
出力例 2:
--17--16--15--14--13
--18---5---4---3--12
--19---6---1---2--11
--20---7---8---9--10
--21--22--23--24--25

182:デフォルトの名無しさん
13/02/23 16:32:26.69
>>181 J
spiral =: monad define
a=.1 1$1
n=.2
for. i.y do.
R=.|.n+i.{.$a
n=.n+#R
U=.|.n+i.1+#R
n=.n+#U
L=.n+i.#U
n=.n+#L
D=.n+i.1+#L
n=.n+#D
a=.D,~L,.U,a,.R
end.
a
)

spiral 1
5 4 3
6 1 2
7 8 9

183:デフォルトの名無しさん
13/02/23 18:37:02.42
>>177
Lua

io.write(io.read("*a"))

184:片山博文MZパンク ◆0lBZNi.Q7evd
13/02/25 00:29:36.63
お題：英文を入力すると、それに対応する発音記号の列を出力するプログラムを書け。

185:デフォルトの名無しさん
13/02/26 23:26:53.43
自己顕示欲を満たす為だけに

両片山氏

186:デフォルトの名無しさん
13/02/27 13:04:06.23
>>177
lex

%%

187:デフォルトの名無しさん
13/03/02 15:21:58.67
>>181
#include<stdio.h>
#define MAX(x,y)(x>y?x:y)
main(){
int n,x,y;
scanf("%d",&n);
for(y=~n++;++y<n;puts(""))
for(x=-n;++x<n;)printf("%4d",1+MAX(MAX(-MAX(-(4*x*x-x+y),-(4*x*x-3*x-y)),4*y*y+y-x),4*y*y+3*y+x));
}

188:片山博文MZパンク ◆0lBZNi.Q7evd
13/03/10 23:49:53.56
お題：Phusion PassengerをWindowsに移植せよ

189:片山博文MZパンク ◆0lBZNi.Q7evd
13/03/11 00:31:44.34
お題：テキストファイルwords.txtに改行区切りの正しい英単語のリストが記されている。
これを元に入力された英文のスペルチェックを行うプログラムを作れ。
スペルの間違った箇所を{{原文の単語::修正候補1||修正候補2||修正候補3}}のように出力し、その他は原文のまま出力すること。
修正候補は原文の単語のスペルに最も近い3個の単語とする。
英単語はアルファベットとハイフンとアポストロフィで構成されるものとする。
その他のピリオドや空白などの文字はそのまま出力するものとする。

190:デフォルトの名無しさん
13/03/11 00:45:48.30
> 原文の単語のスペルに最も近い

こんなあいまいな仕様でお題とかバカ過ぎ

191:片山博文MZパンク ◆0lBZNi.Q7evd
13/03/11 01:07:23.09
2単語間の距離を次のように定義する。
1)同じ単語なら距離はゼロ。
2)アルファベット1字違うなら距離は1増える。
3)アルファベット1字多いか足りないならなら距離は2増える。
4)ハイフンが1字多いか足りないなら距離は1増える。
5) 2)～4)の組み合わせなら考えられる組み合わせの最短距離をその単語の距離とする。
？？？これでいい？

192:片山博文MZパンク ◆0lBZNi.Q7evd
13/03/11 01:23:19.30
あっ、アポストロフィを忘れてた。

2単語間の距離は適当に定義すること。これでいいや

193:デフォルトの名無しさん
13/03/11 01:44:42.56
>>190
もしかしてSEいないとプログラミングできないタイプ？

194:デフォルトの名無しさん
13/03/11 01:48:08.20
アホ SE がいると混乱するので、どっかいってて下さいな

195:片山博文MZパンク ◆0lBZNi.Q7evd
13/03/11 02:34:02.39
>>184
単語ごとに辞書を引いて発音記号を調べて出力するだけじゃん。出題者のばーか

196:デフォルトの名無しさん
13/03/11 07:06:28.14
クソスレ乙w

197:デフォルトの名無しさん
13/03/11 20:58:43.33
大喜利スレなんだから簡単なお題でもいいと思うわけ。

198:片山博文MZパンク ◆0lBZNi.Q7evd
13/03/16 23:26:30.95
お題：与えられた文字列の先頭と終端にある空白文字の並びを取り除く関数を作れ。

199:片山博文MZパンク ◆0lBZNi.Q7evd
13/03/16 23:46:37.41
お題：ある整数が半角数字の文字列で入力された時、それを漢数字表記に変換するプログラムを作れ。

200:片山博文MZパンク ◆0lBZNi.Q7evd
13/03/16 23:48:36.98
お題：逆に漢数字を半角数字に変換するプログラム。

201:デフォルトの名無しさん
13/03/17 11:16:52.48
お題：長辺の長さがA、短辺の長さがBの長方形の紙がある。対角の頂点を重ねて折る。
その折り目の長さを求めよ。

202:デフォルトの名無しさん
13/03/17 12:38:46.20
>>201
#include<stdio.h>
#include<math.h>
main(){
double a,b;
scanf("%lf%lf",&a,&b);
printf("%f",sqrt(b*b+b*b*b*b/a/a));
}

203:デフォルトの名無しさん
13/03/17 19:35:06.70
>>201 Io
f:=method(a,b,(a*a+b*b)sqrt*b/a)

Io> f(4,3)
==> 3.75

204:デフォルトの名無しさん
13/03/18 06:57:14.46
>>198 J
ltrim =: monad def'((''@''=y)i.0)}.y'
rtrim =: ltrim &. |.
trim =: rtrim @ ltrim

'[',(trim '@@@a bc@@'),']'
[a bc]
'[',(ltrim '@@@a bc@@'),']'
[a bc@@]
'[',(rtrim '@@@a bc@@'),']'
[@@@a bc]
実際には空白文字のところを @ にしています。

205:デフォルトの名無しさん
13/03/18 07:29:07.38
>>198 Io
trim:=method(s,
i:=0
j:=s size-1
while(s at(i)==32,i=i+1)
while(s at(j)==32,j=j-1)
s slice(i,j+1)
)

Io> writeln("[",trim("@@a bc@@"),"]")
[a bc]

206:デフォルトの名無しさん
13/03/18 18:16:50.56
>>198 Lua
trim=function(s)return s:match("^%s*(.-)%s*$")end

> print("["..trim("@@@a bc@@@").."]")
[a bc]

207:デフォルトの名無しさん
13/03/19 06:53:43.43
お題：緯度と経度を与えると北方向への角度を返す関数を作成せよ。（画面上方を０度とする）

208:デフォルトの名無しさん
13/03/19 07:28:02.80
画面上方て

209:デフォルトの名無しさん
13/03/19 07:38:01.50
PCディスプレイに、方位・傾きセンサーが必要だな。

210:207
13/03/19 08:03:26.96
コンパス的な関数を想定して、平面座標上での角度・方角という意味で書きたかったのですが・・・
お題になってませんね。日本語むづかしい。

211:デフォルトの名無しさん
13/03/19 12:25:58.90
お題：長方形の紙がある。右の辺を左の辺にぴったり重ねて折る。折ったままの状態で
もう一度、右の辺を左の辺に重ねて折る。これを広げると左から谷折り、谷折り、山折
りの折り目がつく。N 回、紙を折ったときの折り目をめよ。山折りを A 、谷折りを V
で表す。
例
N=2 のとき VVA
N=3 のとき VVAVVAA

212:デフォルトの名無しさん
13/03/19 12:38:10.25
ドラゴンカーブってやつですかね？

213:デフォルトの名無しさん
13/03/19 12:55:03.26
>>212
折り目を90度にするとそうなります。

214:デフォルトの名無しさん
13/03/19 21:38:11.71
>>211 J
f =: monado def ' ''VA''{~(,[:0&,-.@|.)^:(y)0'

f 4
VVAVVAAVVVAAVAAVVVAVVAAAVVAAVAA
f 5
VVAVVAAVVVAAVAAVVVAVVAAAVVAAVAAVVVAVVAAVVVAAVAAAVVAVVAAAVVAAVAA

215:デフォルトの名無しさん
13/03/19 21:49:22.61
>>201 J
f =: %~*[:%:+&*:

4 f 3
3.75

216:デフォルトの名無しさん
13/03/19 22:04:39.11
>>211 Io
f:=method(n,
a:=list
for(i,1,n,
a=list(a,
-1,
a clone reverse map(* -1)
)flatten
)map(v,if(v<0,"V","A"))join("")
)

217:デフォルトの名無しさん
13/03/20 09:14:56.98
>>211
main(){
int i=0,n;
for(scanf("%d",&n);++i<1<<n;)
putchar("V A"[i/(i&-i)&2]);
}

n=4 VVAVVAAVVVAAVAA
n=5 VVAVVAAVVVAAVAAVVVAVVAAAVVAAVAA
n=6 VVAVVAAVVVAAVAAVVVAVVAAAVVAAVAAVVVAVVAAVVVAAVAAAVVAVVAAAVVAAVAA

218:デフォルトの名無しさん
13/03/20 09:24:28.15
　　　　_, ._
　　（　・ω・）んも～
　　○=｛=｝〇,
　　|:::::::::＼, ', ´
､､､､し､､､((（.＠）VVAVVAAVVVAAVAAVVVAVVAAAVVAAVAAVVVAVVAAVVVAAVAAAVVAVVAAAVVAAVAA

219:片山博文MZパンク ◆0lBZNi.Q7evd
13/03/20 23:51:06.00
お題：レーヴェンシュタイン距離を求める

220:デフォルトの名無しさん
13/03/21 22:25:15.88
おもしろそうなスレ発見
初心者でもいいっすか？罵ってください！

221:デフォルトの名無しさん
13/03/22 01:42:43.70
>>220 どうぞどうぞ

222:デフォルトの名無しさん
13/03/22 07:33:23.78
>>220
お題にしたがってコーディングしたら、罵ってやる

223:デフォルトの名無しさん
13/03/22 18:41:17.42
お題：正方形のタイルをA 行 B 列に並べたときにあらわれる長方形の個数を求めよ。
例
A = 2、B = 2 のとき 9 個
A = 3、B = 4 のとき 60 個

224:デフォルトの名無しさん
13/03/22 19:48:37.13
>>223
URLﾘﾝｸ(projecteuler.net)　?

225:デフォルトの名無しさん
13/03/22 23:25:48.19
>>219 Io
f:=method(a,b,as:=a size;bs:=b size
if(as<1,return bs)
if(bs<1,return as)
t:=List clone setSize(as)map(List clone setSize(bs)map(0))
t atPut(0,t at(0)map(i,v,i))map(i,v,v atPut(0,i))
for(i,1,as-1,
for(j,1,bs-1,
t at(i)atPut(j,
list(t at(i-1)at(j)+1,
t at(i)at(j-1)+1,
t at(i-1)at(j-1)+if(a at(i)==b at(j),0,1)
)min
)
)
)
t last last
)

Io> f("abc","xayzbc")
==> 3

226:デフォルトの名無しさん
13/03/24 00:32:51.40
>>223
((a + 1) * a / 2) * ((b + 1) * b / 2)

227:デフォルトの名無しさん
13/03/24 07:09:47.14
タイルの模様は

228:デフォルトの名無しさん
13/03/24 07:33:08.84
>>227
無地です

229:デフォルトの名無しさん
13/03/24 10:31:50.45
お題：平面座標上の点　Ａ（x1, y1）から B(x2, y2) まで直線を引いたとき、点Ａを基準とした直線ABの角度を求めよ。
＊座標系の行列は行がY、列がXとする。
＊角度の始まりは、点ＡのY軸の行数０（y == 0）を０°する。
例：
A(10, 10), B(10,　8) => 0°
A(10, 10), B(12,　8) => 45°
A(10, 10), B(12, 10) => 90°
A(10, 10), B(12, 12) => 135°
A(10, 10), B(10, 12) => 180°
...
A(10, 10), B(　8,　8) => 315°

230:デフォルトの名無しさん
13/03/24 10:55:22.37
>>223 Io
f := method(a,b,(a+1)combinations(2) * (b+1)combinations(2))

Io> f(2,2)
==> 9
Io> f(20,20)
==> 44100

231:デフォルトの名無しさん
13/03/24 14:11:28.35
>>229 Io
f : =method(x1,y1,x2,y2,
180-((x2-x1)atan2(y2-y1)*180/3.141592)round
)

Io> f(10,10,8,8)
==> 315

232:デフォルトの名無しさん
13/03/25 20:09:01.51
お題：自然数 N が与えられたとき、各桁を一桁の数字として繰り返し足していき合計が
N になるかどうか判定する関数。
例
N=25、2+5+2+5+2+5+2+5=28 > 25 --> 偽
N=12、1+2+1+2+1+2+1+2=12 --> 真

233:片山博文MZパンク ◆0lBZNi.Q7evd
13/03/26 22:36:44.78
>>232 C++
bool f(int N) {
char s[64]; int sum, i;
sprintf(s, "%d", N);
for(sum = 0; sum < N; ) {
for(i = 0; s[i] != '\0'; i++)sum += s[i] - '0';
}return sum == N;}

234:デフォルトの名無しさん
13/03/26 22:59:30.71
bool func(int a){
int b=0;
for(int i=a; i>0; i/=10) b+=i%10;
return a%b==0;
}

235:デフォルトの名無しさん
13/03/30 23:49:07.35
お題：できる限り速くフーリエ変換を行う関数を作れ。

236:デフォルトの名無しさん
13/03/30 23:54:32.42
つまり早くレスした人の勝ち

237:片山博文MZパンク ◆0lBZNi.Q7evd
13/04/01 23:13:26.06
お題：平面幾何学の問題を解く人工知能を作れ

貴様らにできるかな？ｗ

238:片山博文MZパンク ◆0lBZNi.Q7evd
13/04/02 00:50:39.01
お題：'('と')'でできた文字列が与えられると、対応しているカッコの対の個数を返す関数。
例。"())" → 2
"(())" → 4
")(()()" → 5

239:片山博文MZパンク ◆0lBZNi.Q7evd
13/04/02 01:14:41.42
お題：行列Aのサイズ(縦と横)と行列Aの各成分がCSV形式のテキストファイルで与えられている。Aの逆行列を掃き出し方で求めよ。

240:デフォルトの名無しさん
13/04/02 04:15:37.84
>>233
ウンコード

241:デフォルトの名無しさん
13/04/02 05:02:14.35
>>239
各成分はともかく、サイズのフォーマットはどうなってんの
一行目だけ2列でそこに縦横みたいな？

242:片山博文MZパンク ◆0lBZNi.Q7evd
13/04/02 12:26:13.09
>>241
縦のサイズ,横のサイズ\n
(1,1)成分,(1,2)成分,...\n
(2,1)成分,(2,2)成分,...\n
...
みたいな感じで頼む

243:デフォルトの名無しさん
13/04/02 12:37:14.56
>>242
ナニソノ微妙なフォーマット…単に列挙しただけのCSVじゃダメなのかYO

244:デフォルトの名無しさん
13/04/02 17:14:31.93
>>242
正方行列ではないの？

245:デフォルトの名無しさん
13/04/02 18:10:58.86
お題：二足歩行する猿が一匹いる。猿が今考えている内容を標準出力せよ。

246:232
13/04/05 05:10:26.49
>>234
例がまずかったでしょうか？
N=13、1+3+1+3+1+3+1=13
なども真のつもりです。

247:デフォルトの名無しさん
13/04/05 18:03:31.68
お題：a * b * c の直方体がある。 a + b = c とする。この直方体の一つの頂点と
これに隣接する三つの頂点からなる四面体の表面積を求めよ。

248:デフォルトの名無しさん
13/04/05 22:03:03.35
>>246
足す順序は上位桁から？
それとも入れ替えてもいいの？

249:デフォルトの名無しさん
13/04/05 22:45:49.74
>>248
> 足す順序は上位桁から？
はい。

> それとも入れ替えてもいいの？
入れ替えはなしです。

250:デフォルトの名無しさん
13/04/05 23:22:58.96
>>247
=(a+b)^2
っぽい

251:デフォルトの名無しさん
13/04/06 22:03:31.63
>>247 Io
heron:=method(a,b,c,((a+b+c)*(b+c-a)*(a-b+c)*(a+b-c))sqrt/4)
f:=method(a,b,c,
heron((a*a+b*b)sqrt,(b*b+c*c)sqrt,(c*c+a*a)sqrt)+(a*b+b*c+c*a)/2
)

Io> f(1,2,3)
==> 9
Io> f(2,3,5)
==> 25
Io> f(3,5,8)
==> 64
Io> f(15,20,35)
==> 1225

252:デフォルトの名無しさん
13/04/08 00:01:45.01
お題：０より大きく1より小さい循環小数を分数に変換せよ。
循環小数は循環する部分を丸括弧でくくった表記とする。
例
0.08(3) -> 1/12
0.(142857) -> 1/7
0.2(36) -> 13/55

253:デフォルトの名無しさん
13/04/08 06:58:18.64
>>252
ｽﾚﾘﾝｸ(tech板:655番)
丸括弧じゃなくて [ ] だけれども