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

1 ：2012/12/02 〜 最終レス ：2013/09/25

例：
お題が「バブルソート」だったら、とりあえずコーディングしてドヤ顔します。
すると「番兵置けやボケ」云々と罵ってもらえます。
このスレは出題者様、回答者、そして教官様を必要としています。よろしくお願いします。

2 ：

お題：摂氏温度入力で華氏温度表示。

3 ：

>>2
double C, F;
char buf[64];
printf("摂氏：");
fgets(buf, 60, stdin);
C = atof(buf);
F = (9.0/5.0) * C + 32.0;
printf("摂氏%.2f度C => 華氏%.2f度F", C, F);

4 ：

お題：雪の結晶を生成、表示するプラグラム。

5 ：

>>4
ボケェ！

6 ：

64確保して60読み込んでいるところが、
仕様をきちんと確認せずに保険を敷いている間抜けさと姑息さが滲み出ている。

7 ：

このスレッドは天才チンパンジー「アイちゃん」が
言語訓練のために立てたものです。
アイと研究員とのやり取りに利用するスレッドなので、
関係者以外は書きこまないで下さい。
　　　　　　　　　　　　　　　　　　京都大学霊長類研究所

8 ：

>>7
おせえよボケ
やる気ねえならもうやめなゴミが

9 ：

>>2
#include <string>
#include <iostream>
int main()
{
　　while (true) {
　　　　std::cout << "摂氏温度 と入力して下さい: ";
　　　　std::string input;
　　　　if (getline(std::cin, input)) {
　　　　　　if (input == "摂氏温度") {
　　　　　　　　std::cout << "華氏温度" << std::endl;
　　　　　　}
　　　　} else {
　　　　　　break;
　　　　}
　　}
　　return 0;
}

10 ：

番兵置けやボケ

11 ：

オレがこのスレの
番兵だ！

12 ：

(´・ω・｀)通りすがりの実数ｘのｎ乗根を求めよ

13 ：

>>6
「保険を敷く」ってなんだよ。きちんと確認せずに書いている間抜けさが……
>>12
「通りすがりの実数」ってなんだよ。

14 ：

> (´・ω・｀)通りすがりの実数ｘのｎ乗根を求めよ
真の値を返さないとダメ?
それとも数式でOK?

15 ：

>>12
#include <math.h>
pow(x,1.0/n)

16 ：

>>15
断りがない場合定義域は実数全体だバカ

17 ：

突っ込みどころが多過ぎて逆にどう突っ込んでいいか・・・

18 ：

実数 x の n 乗根を求めよ。
ただし、
・math.hを使わない
・double x > 1.0 の任意
・int n > 1 の任意

19 ：

N乗根の求め方だけで論文書けるレベルなんだな
http://ci.nii.ac.jp/naid/110001883672

20 ：

ttp://ideone.com/hzVwDU
中間値の定理ならばどんな複雑なものでも解けるだろう

21 ：

解りやすくて好きだけど罵倒しないといけないんだよね。
たとえばN = 1,000,000なら収束するまで本当に100万回ずつ乗算をするってのは筋が良くない。
専門学校や大学1〜2年生の宿題レベルならそれでいいかもしれないが実用レベルには遥かに達しない。
整数乗ならこっちのほうが演算回数少ない。
double pow_n( double a, uint_t n )
{
double r = 1.0;
while (n > 0) {
if (n & 1) { r *= a; }
n = n >> 1;
a *= a;
}
return r;
}

22 ：

>>21に敬意を込めて
double pow_n(double a, uint_t n)
{
double r = a;
for (--n; n > 0; n >>= 1) {
if (n & 1)
r *= a;
a *= a;
}
return r;
}
doubleの乗算が少し減るかも。
ただしn>1になるが

23 ：

朝８時になるとサイト（勤怠管理）が開いて、そこにＩＤとパスワードを入れて「出勤ボタン」を押してくれるプログラム求む

24 ：

>>23 サイトのURLとHTMLソース希望

25 ：

>>22
番兵おけやボケェ

26 ：

番兵なんていらねえよ、'12冬

27 ：

お題：整数nが与えられたとき、その平方根の式を平方因子を括り出しで表示せよ。
例　
sqrt(4)=2
sqrt(8)=2*sqrt(2)

28 ：

>>27
#include<stdio.h>
#include<math.h>
int main()
{
int n, hei, inshi;
printf("整数 n(>0) を入力せよ :"); scanf("%d", &n);
if (n < 0) { printf("負は受け付けぬ\n"); return 1; }
if (n == 0) { hei = inshi = 0; }
else {
for (inshi = (int) sqrt((double) n); inshi >= 1; inshi--)
if ((n % inshi) == 0 && (n % (inshi * inshi)) == 0)
break;
hei = n / inshi / inshi;
}
printf("%d = %d * sqrt(%d)\n", n, inshi, hei);
return 0;
}

29 ：

>>27
<!-- 2以上を入力しないといけない -->
main(i,n){for(scanf("%d",&n),i=n;n%(--i*i););printf("%d*sqrt(%d)\n",i,n/i/i);}

30 ：

おっぱい揉んで
激安で抜ける
○１０００円〜
「新宿　アイアイ 」
○１５００円〜
「西川口　マーガレット 」
○２０００円〜
「新宿・錦糸町　あんぷり亭 」
「新宿　ダブルエロチカ 」

31 ：

>>29
intを省略すんな。
main()の引き数の型を変えんな。
iの開始値がnだと入力値が制限されるぞ。
つーか、なんでコメントがhtmlスタイルなんだよ。

32 ：

>>28
> if ((n % inshi) == 0 && (n % (inshi * inshi)) == 0)
　　↓
> if (n % (inshi * inshi) == 0)
>>29
65537以上入力出来ない

33 ：

>>29
for (i = n; n % i | n / i % i; --i);

34 ：

お題:計算結果がが n になる式を 100種類出力せよ。
文字列として比較して違っていればよい。
答えはいくらでもあります。自由にやって下さい。

35 ：

n-1+1,...,n-100+100でいいの？

36 ：

>>27
nの範囲を指定しましょう

37 ：

>>34
perl -e 'print "$_/$_\n" for (1..100)'
検証
> perl -e 'print "$_/$_\n" for (1..100)' | sort | uniq | wc -l
100

38 ：

>>34
#include <stdio.h>
int main(void) {
　int n, a, b;
　int i;
　n = 5;
　a = 0;
　b = n;
　for (i=1; i<=100; i++) {
　　printf("%03d: %d + %d = %d \n", i, a, b, (a+b));
　　a--;
　　b++;
　}
　return 0;
}

39 ：

お題：3から始めて、それより大きい最小の5の倍数、それより大きい最小の3の倍数、
それより大きい最小の5の倍数、........
とつづく並びの最初の100を出力せよ。

40 ：

> とつづく並びの最初の100を出力せよ。
とつづく並びの最初の100個を出力せよ。
でした。訂正します。

41 ：

>>39
#include <stdio.h>
int main(){
int cnt = 0, w = 3, n = 1;
while (cnt < 100) {
if (n % w == 0) {
++cnt;
printf("%d ", n);
w = 8 - w;
}
++n;
}
return 0;
}

42 ：

お題：4桁の10進数の各桁と四角形の各辺の長さを対応させたとき、四角形にできる
４桁の１０進数をすべて求めよ。
1113　などはぺしゃんこだが四角形とする。

43 ：

つまんね

44 ：

>>42
ttp://ideone.com/0e759A

45 ：

お題：3と5を使わずに1からnまで数えたとき、数えた回数を求めよ。

46 ：

>>45
ttp://ideone.com/NYodZy

47 ：

ttp://ideone.com/rHZgCL

48 ：

>>46,47
n<1漏れ

49 ：

>>48
ttp://ideone.com/b1LLqF

50 ：

>>45
main(){
　int i=0,n,o=0;
　scanf("%d",&n);
　for(;n;n/=10)
　　o+=n%10-n%10/4+n%10/8<<i++*3;
　printf("%d\n",o<0?2-o:o);
}

51 ：

>>50
ずれてるように見えるが？
n result
1 1
2 2
3 3
4 3
5 4
6 5
7 6
8 7
9 8
10 8
11 9
12 10
13 11
14 11
15 12
16 13
17 14
18 15
19 16
20 16

52 ：

>>45
f:=method(n,
n abs asString translate("01246789","01234567")fromBase(8)+if(n<1,2,0))
Io> f(40)
==> 24
Io> f(80000000)
==> 12582912
Io> f(-40)
==> 26

53 ：

>>39
Io> a:=b:=3;100 repeat(a println;b=8-b;a=a+b-a%b)
3
5
6
10
12
(略)
240
243
245
246
250

54 ：

お題：ハノイの塔の問題を解く関数を定義せよ。ただし、結果を直接表示せずに
配列、リスト、文字列などで返すようにせよ。

55 ：

http://codepad.org/RBOkdXOD

56 ：

>>54
hanoi:=method(n,a,b,c,
if(n<1,"",hanoi(n-1,a,c,b)..(a .."->".. b .."\n").. hanoi(n-1,c,b,a)))
Io> hanoi(3,"A","B","C")
==> A->B
A->C
B->C
A->B
C->A
C->B
A->B

57 ：

お題：a X b X c の大きさの直方体がある。直線距離が最大の2点間の直線距離と表面上を移動したときの最小距離を求めよ。

58 ：

>>57
ttp://ideone.com/mwrcg6

59 ：

>>57
f:=method(v,u:=v sort;list(v map(**2)sum sqrt,(u removeLast**2+u sum**2)sqrt))
Io> f(list(1,2,3))
==> list(3.7416573867739413, 4.2426406871192848)
Io> f(list(5,6,7))
==> list(10.488088481701515, 13.038404810405298)
Io> f(list(3,1,2))
==> list(3.7416573867739413, 4.2426406871192848)

60 ：

>>59
その言語が何かは知らないけれど、巧くできているね。
大体意味は掴めたと思うのだが、sortの後のセミコロンの役目はなんだい?
>56も同じ言語かな? そっちもドット二つの意味が知りたいな。

61 ：

>>60
プロンプトに名前がでてるのであらためて書かなくていいかなと思ってました。
>>52 >>56 >>59 はIo言語です。
セミコロンは、単に式のデリミタです。
ドットドットは、文字列連結演算子です。

62 ：

お題：n桁の2進数で1が連続する部分をもつ数はいくつあるか？(1<n<50)
たとえばn=3の場合、011、110、111の3個。

63 ：

>>62
#include <stdio.h>
int main(void)
{
long int n, a = 1, b = 1, nn = 2, t;
for ( n = 1; n <= 50; ++n)
{
printf("n=%ld, answer=%ld¥n", n, nn - a - b);
nn *= 2;
t = b; b = a; a += t;
}
return 0;
}

64 ：

>>62
Io言語
f:=method(n,a:=5 sqrt;2**n-(((1+a)/2)**(n+2)/a)round)
Io> f(3)
==> 3
Io> f(20)
==> 1030865
Io> f(49)
==> 5.629296e+014
Io> f(49)asString(0,0)
==> 562929588410238

65 ：

お題：長さが32文字以下の2進表記の文字列が与えられたとき"1"の個数を求めよ。
例
"1010101" ==> 4

66 ：

>>65
int main() {
char d[] = "1010101", *p = &d[0];
int total = 0, len;
for (len = strlen(d) - 1; len >= 0; len--) {
if (*p++ == '1') {
total++;
}
}
printf("\"%s\" ==> %d\n", d, total);
return 0;
}

67 ：

>>65
ttp://ideone.com/50rIS1

68 ：

お題。TXTの拡張BNFをPEGに変換するプログラム。とりつけばWM900。MITライセンスで頼む。期限1/15。

69 ：

きもい

70 ：

>>65
Io言語
f:=method(s,(s .."1")split("1")size-1)
Io> f("1010101")
==> 4
Io> f("1101010111111111000111010000")
==> 17

71 ：

お題
英数字1〜32文字のパスワードに対し、総当たり試行するプログラム

72 ：

>>71 SWI-Prolog
s(''). s('0'). s('1'). s('2'). s('3'). s('4'). s('5'). s('6'). s('7'). s('8'). s('9'). s('A'). s('B').
s('C'). s('D'). s('E'). s('F'). s('G'). s('H'). s('I'). s('J'). s('K'). s('L'). s('M'). s('N'). s('O').
s('P'). s('Q'). s('R'). s('S'). s('T'). s('U'). s('V'). s('W'). s('X'). s('Y'). s('Z'). s('a'). s('b').
s('c'). s('d'). s('e'). s('f'). s('g'). s('h'). s('i'). s('j'). s('k'). s('l'). s('m').s('n'). s('o').
s('p'). s('q'). s('r'). s('s'). s('t'). s('u'). s('v'). s('w').s('x'). s('y'). s('z').

73 ：

char set[]="0〜9A〜Za〜z";
int siz=10+26+26;
char pas[33];
memset(pas,0,sizeof(pas));
for(int l=1;l<=32;l++){
for(;;){
for(int j=0;j<siz;j++)
{pas[0]=set[j];try(pas);}
int i=0;
while(i<l&&pas[i]=='z')pas[i++]='0';
if(i==l)break;
pas[i]=(pas[i]?*(strchr(set,pas[i])+1):'0';
}}

74 ：

memset(pas,0,sizeof(pas));
と
for(int l=1;l<=32;l++){
を入れ換える

75 ：

泥臭いな
圏で語れよ

76 ：

>>72 のつづき
?-s(S1),s(S2),s(S3),s(S4),s(S5),s(S6),s(S7),s(S8),s(S9),s(S10),s(S11),s(S12),
s(S13),s(S14),s(S15),s(S16),s(S17),s(S18),s(S19),s(S20),s(S21),s(S22),s(S23),
s(S24),s(S25),s(S26),s(S27),s(S28),s(S29),s(S30),s(S31),s(S32),
concat_atom([S1,S2,S3,S4,S5,S6,S7,S8,S9,S10,S11,S12,S13,S14,S15,S16,
S17,S18,S19,S20,S21,S22,S23,S24,S25,S26,S27,S28,S29,S30,S31,S32],X),
write(X),\+nl.

77 ：

>>71
Io言語
f:=method(N,C,A,if(N==0,A println,C foreach(v,f(N-1,C,v .. A))))
d:=" 0 1 2 3 4 5 6 7 8 9"split
A:="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"split
a:="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"split
c:=d appendSeq(A,a)
f(32,c,"")

78 ：

全部見づらい
0点
出直して来いゴミども

79 ：

>>71 J言語
63進数で0を含むものをスキップ
f=:dyad define
c=.'0',y
b=.#c
n=.b^x:x
i=.0
while. i<n do.
d=.b#.inv i
if. -. 0 e. d do. smoutput d{c end.
i=.i+1
end.
)
32 f '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'

80 ：

>>61
THX!
いやぁ、Io言語は知らなかった。

81 ：

お題：パソコンの画面に指定した大きさの正方形とそれに内接する円と
その円に内接する三角形（頂点は12時、4時、8時の位置）をかくプログラム。

82 ：

お題：ある球体で直径が２割大きくなるとき
体積は何％増加するかを求める

83 ：

>>82
#include<stdio.h>
int main()
{
printf("%f%%\n", 1.2 * 1.2 * 1.2 * 100.0 - 100.0);
return 0;
}

84 ：

>>83
真球なの？

85 ：

どんな形だろうとも、立体が相似比n倍になったらその体積はnの3乗倍になるだろう

86 ：

>>81

87 ：

ネタがつまらないのは自覚していたが
完全スルーは想定外だった

88 ：

ギャハハハ

89 ：

グラフといえばエクセルだろ常考

90 ：

回答が得られないようなので>>68は宿題スレに移ります。

91 ：

>>83
表示しろって書いてないよ

92 ：

>>91
double aru_kyuutai_de_chokkei_ga_2wari_ookiku_narutoki_taiseki_ha_nan_percent_zouka_suru_ka_motomeru_function(void)
{
return 1.2 * 1.2 * 1.2 * 100.0 - 100.0;
}

93 ：

>>91
その理屈だと、"求めました"、だけでも正解だな。

94 ：

>>81 R
odai81 <- function(L=50){
plot(c(0,0,0),c(0,0,0),axes=F,xlab="",ylab="",pch=c(22,1,2),cex=c(L,L*0.886,L*0.568))
}

95 ：

>>81　十進BASIC
LET s=2
SET WINDOW -s,s,-s,s
PLOT LINES:-1,1;1,1;1,-1;-1,-1;-1,1
DRAW circle
PLOT LINES:0,1;0.866,-0.5;-0.866,-0.5;0,1
END

96 ：

>>81
WebGL
http://api2ch.appspot.com/

97 ：

>>81 Asymptote
size(10cm);
draw((-1,1)--(1,1)--(1,-1)--(-1,-1)--(-1,1));
draw(circle(0,1));
draw((0,1)--(0.866,-0.5)--(-0.866,-0.5)--(0,1));

98 ：

お題：英小文字だけからなる文字列が与えられる。1回の操作で1文字だけ大文字小文字
変換ができる。この文字列の各文字の大文字、小文字の組合せをもれなく重複なく求めよ。
例　abc のとき
abc
abC
aBC
aBc
ABc
ABC
AbC
Abc

99 ：

>>64
>f:=method(n,a:=5 sqrt;2**n-(((1+a)/2)**(n+2)/a)round)
面白そうな言語だが、何故この式でいいのか判らんw
アルゴリズムの勉強が必要かな...

100read 1read

1read 100read
TOP カテ一覧 スレ一覧 2ch元 削除依頼 ▲

Borland Developer Studio 2006 No.13 (290)
構造化ウェブプログラミング言語Dart2 (669)
【Lua】組み込み系言語総合 その6【Squirrel】 (232)
Androidプログラミング質問スレ Part36 (378)
関数呼出しはgoto文である (192)
D言語 Part32 (112)
--log9.info------------------
【丹沢】栗ノ木洞に登ろう(^_^;)！part5【鍋割】 (250)
【ｳｹｹｹ】農鳥小屋 ReBirth 【4時の注意】 (109)
トレイルランニングが好きな人のスレッド 4 (102)
【ｾﾌﾞﾝ･ｻﾐｯﾄ】鈴木裕久1【世界最速登頂への挑戦】 (793)
【高輝度】LEDランタン 23灯目【長寿命】 (461)
【巍四裏】最高のｻﾊﾞｲﾊﾞﾙｷｯﾄ5缶目【ピンチ缶】 (703)
山岳用テント (246)
●山岳用軽量テント●39張り目 (536)
【Patagonia】パタゴニアの製品を語ろうpart63 (375)
【三重・滋賀】 鈴鹿山脈 11【最高峰1247M】 (105)
【日本第2位】北岳【白峰山】 (348)
登山靴スレ44 (633)
愛用ザック 39個目 (180)
富士山入山料１人１０００円 (400)
【鶴松森】四国の山情報 10【豊受山】 (419)
高尾山〜陣馬山Part46 (141)
--log55.com------------------
江口友子とかいう狂人
【逆神養分】　　婆 part4　　【デス車券師】
史上最強の競輪選手は誰？2
【FIS級６R】FI、FIIの12レース制導入【B級復活】
競輪って1.5倍切ったのって９割来るね
茶漬けが気持ち悪過ぎる!
【南米の刺客】103期ってどんな感じ？【筋肉マン】
どうやったら勝ち組になれるのか【41的中目】