- 1 名前：デフォルトの名無しさん mailto:sage [2012/12/02(日) 05:24:18.74 ]
- 例：
お題が「バブルソート」だったら、とりあえずコーディングしてドヤ顔します。
すると「番兵置けやボケ」云々と罵ってもらえます。
このスレは出題者様、回答者、そして教官様を必要としています。よろしくお願いします。
- 91 名前：デフォルトの名無しさん mailto:sage [2013/01/11(金) 22:44:30.71 ]
- >>83
表示しろって書いてないよ
- 92 名前：デフォルトの名無しさん mailto:sage [2013/01/11(金) 22:50:38.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 名前：デフォルトの名無しさん mailto:sage [2013/01/13(日) 15:51:00.53 ]
- >>91
その理屈だと、"求めました"、だけでも正解だな。
- 94 名前：デフォルトの名無しさん mailto:sage [2013/01/13(日) 23:08:49.57 ]
- >>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 名前：デフォルトの名無しさん mailto:sage [2013/01/14(月) 07:39:35.59 ]
- >>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 名前：デフォルトの名無しさん mailto:sage [2013/01/14(月) 13:56:15.80 ]
- >>81
WebGL
api2ch.appspot.com/
- 97 名前：デフォルトの名無しさん mailto:sage [2013/01/14(月) 22:48:46.16 ]
- >>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 名前：デフォルトの名無しさん mailto:sage [2013/01/15(火) 22:04:53.33 ]
- お題：英小文字だけからなる文字列が与えられる。1回の操作で1文字だけ大文字小文字
変換ができる。この文字列の各文字の大文字、小文字の組合せをもれなく重複なく求めよ。
例 abc のとき
abc
abC
aBC
aBc
ABc
ABC
AbC
Abc
- 99 名前：デフォルトの名無しさん mailto:sage [2013/01/16(水) 00:00:41.77 ]
- >>64
>f:=method(n,a:=5 sqrt;2**n-(((1+a)/2)**(n+2)/a)round)
面白そうな言語だが、何故この式でいいのか判らんw
アルゴリズムの勉強が必要かな...
- 100 名前：デフォルトの名無しさん mailto:sage [2013/01/16(水) 06:56:24.27 ]
- >>98
ttp://ideone.com/6lTnlf
- 101 名前：片山博文MZパンク ◆0lBZNi.Q7evd mailto:sage [2013/01/16(水) 16:01:11.70 ]
- >>98 codepad.org/Sk44wFEJ
- 102 名前：デフォルトの名無しさん mailto:sage [2013/01/16(水) 20:01:29.00 ]
- >>99
やっていることは maxima でかくと
f(n):=2^n-fib(n+2);
- 103 名前：デフォルトの名無しさん mailto:sage [2013/01/16(水) 21:08:37.17 ]
- >>98 Io言語
f:=method(s,n:=s size;a:=s asMutable
for(i,0,2**n-1,g:=i^i/2
for(j,0,n-1,a atPut(j,s at(j)-g at(j)*32))
a println))
Io> f("new")
new
New
NEw
nEw
nEW
NEW
NeW
neW
- 104 名前：デフォルトの名無しさん mailto:sage [2013/01/17(木) 21:23:35.92 ]
- >>98 Maxima
f(s):=(n:slength(s),print(s),
g(x):=if x>0 then (g(x-1),s:sinvertcase(s,x,x+1),print(s),g(x-1)),
g(n));
(%i42) f("xyz");
xyz
Xyz
XYz
xYz
xYZ
XYZ
XyZ
xyZ
- 105 名前：片山博文MZパンク ◆0lBZNi.Q7evd [2013/01/17(木) 21:57:47.46 ]
- 皆優秀だな。俺よりコード短い。
お題：緯度と経度のペアを二つ入力すると直線距離を返すプログラムを書け。
- 106 名前：デフォルトの名無しさん mailto:sage [2013/01/17(木) 22:04:11.77 ]
- >>105
・球面沿いの最短距離
・2店間の最短距離(地面貫通)
の２つありますね。
- 107 名前：片山博文MZパンク ◆0lBZNi.Q7evd mailto:sage [2013/01/17(木) 22:10:32.91 ]
- じゃあ、球面沿いでお願いします。
- 108 名前：デフォルトの名無しさん mailto:sage [2013/01/17(木) 22:55:18.87 ]
- >>105
プログラミングやってるなら知ってて当然のGrayCodeへの写像知ってるか知らないかの差
- 109 名前：デフォルトの名無しさん mailto:sage [2013/01/18(金) 01:24:06.15 ]
- >>105
ttp://ideone.com/ViPo6D
-- Google map 距離測定ツール ----
東京駅
35.681377 139.766086
アルゼンチンのブエノスアイレス
-34.603722 -58.381595
距離
18383.6 km
-- 当PG ------------------------
地点 1→2の
・球面上の最短距離 = 18321.922334km
・最短距離(地下トンネル) = 12606.789592km
-- 誤差 ------------------------
-0.3355%
- 110 名前：デフォルトの名無しさん mailto:sage [2013/01/18(金) 06:55:19.03 ]
- 山は貫通しますか？
- 111 名前：デフォルトの名無しさん mailto:sage [2013/01/18(金) 07:20:11.94 ]
- >>105 Maxima
f(x1,y1,x2,y2):=(r:%pi/180,
6378.137*acos(sin(y1*r)*sin(y2*r)+cos(y1*r)*cos(y2*r)*cos(x2*r-x1*r)));
(%i60) float(f(139.766086,35.681377,-58.381595,-34.603722));
(%o60) 18383.55983532794
- 112 名前：109 mailto:sage [2013/01/18(金) 07:35:58.01 ]
- >>111ああ、半径6378.137kmですね。
ちゃんと調べれば良かった…。
直しました。
ttp://ideone.com/B5TaAq
- 113 名前：デフォルトの名無しさん mailto:sage [2013/01/18(金) 07:39:27.27 ]
- >>110
さだまさしさんの防人の詩の一節ですか?
教えて〜ください。
- 114 名前：デフォルトの名無しさん mailto:sage [2013/01/18(金) 18:22:58.41 ]
- 誰が地球だと言ったんだ?
- 115 名前：デフォルトの名無しさん mailto:sage [2013/01/18(金) 19:10:22.15 ]
- 消坊って、そういうの嬉しそうに言うよね。
誰が同じ星の上だと言ったんだ？、くらい無意味だな。
- 116 名前：デフォルトの名無しさん mailto:sage [2013/01/18(金) 23:03:03.69 ]
- 直線がいつの間にか曲がってる
- 117 名前：デフォルトの名無しさん mailto:sage [2013/01/19(土) 00:07:01.24 ]
- 誰か、強い重力を放ってるのが居るな。
- 118 名前：デフォルトの名無しさん [2013/01/19(土) 01:39:55.28 ]
- >>115 スレタイ
コーディングと見たら、ともかく罵るのが紳士。
- 119 名前：デフォルトの名無しさん mailto:sage [2013/01/19(土) 02:04:14.86 ]
- お題：1から100の自然数を順序を問わすべて出力する再現性のある方法を10通り挙げよ。
- 120 名前：デフォルトの名無しさん mailto:sage [2013/01/19(土) 02:08:57.17 ]
- >>119 訂正
お題：1から100の自然数を順序を問わずすべて出力する再現性のある方法を10通り挙げよ。
- 121 名前：デフォルトの名無しさん mailto:sage [2013/01/19(土) 06:12:37.59 ]
- お風呂に肩まで浸かって百まで数える
- 122 名前：デフォルトの名無しさん mailto:sage [2013/01/19(土) 09:47:30.29 ]
- 1,2,,,100
2,3,,,100,1
- 123 名前：デフォルトの名無しさん mailto:sage [2013/01/19(土) 12:04:33.35 ]
- (1..100).each { println it }
- 124 名前：片山博文MZボット ◆0lBZNi.Q7evd mailto:sage [2013/01/19(土) 13:03:48.55 ]
- >>120 #include <stdio.h>
int main(void) {
int i, j;
for(j = 0; j < 10; j++) {
for(i = 1; i <= 100; i++) printf("%d ", (i + j) % 100 + 1);
printf("\n");
}
return 0; }
- 125 名前：デフォルトの名無しさん mailto:sage [2013/01/19(土) 21:54:27.61 ]
- >>122-124
全部0点
- 126 名前：片山博文MZパンク ◆0lBZNi.Q7evd mailto:sage [2013/01/19(土) 22:40:04.08 ]
- >>125 問題文が言葉足らず。
- 127 名前：デフォルトの名無しさん mailto:sage [2013/01/19(土) 23:11:10.80 ]
- 1〜100の自然数を適当に取り出す組み合わせは
100の階乗、つまり 9.33262154439e+157 通りあるワケだが、
取り出される数に再現性のある方法を 10通り挙げよ。
という意味だろう。
例えば
int data[100] = { 1, 2, … 99, 100 };
として、
方法 1. for(i=0; i<100; i++) printf("%d ", data[i]);
方法 2. for(i=a=0; i<100; i++) { printf("%d ", data[a % 100]); a += 3; }
方法 3. for(i=a=0; i<100; i++) { printf("%d ", data[a % 100]); a += 7; }
…
方法 10. …
みたいな
- 128 名前：デフォルトの名無しさん mailto:sage [2013/01/21(月) 22:00:08.14 ]
- お題：与えられた自然数Nの3進数表示が、これを逆に並べ替えた数字の列と一致するかどうか調べ真偽値を返す関数。(2013年センター試験より)
- 129 名前：デフォルトの名無しさん mailto:sage [2013/01/21(月) 23:22:13.66 ]
- >>128
n=10
p (w=n.to_s(3))==w.reverse
- 130 名前：デフォルトの名無しさん mailto:sage [2013/01/21(月) 23:34:56.83 ]
- #include <stdio.h>
bool func(int n)
{
char s[100];
int i, j;
for (i = 0; n; ++i)
{
s[i] = '0' + n % 3;
n /= 3;
}
for (--i, j = 0; j < i; ++j)
{
if (s[i] != s[j])return 0;
--i;
}
return 1;
}
int main()
{
printf("%d¥n", func(10));
return 0;
}
- 131 名前：デフォルトの名無しさん mailto:sage [2013/01/23(水) 06:40:37.29 ]
- お題：array[26]={0,1, ... 25} のような構造の配列が百個ある。これらの配列は、次の規則に従い回転する。
・配列０は、一回の入力で各要素内のデータがひとつずれる（例：a[0] == 0 => a[0] == 1、a[1] == 1 => a[1] == 2）。
・配列１は、配列０が一回転するとき、各要素内のデータがひとつずれる（例：a[0] == 25 => a[0] == 0 のとき、 b[0] == 0 => b[0] == 1）。
・配列２から配列９９までも同様に、ひとつ前の配列が一回転するとき、各要素内のデータはひとつずれる。
入力された数値は、これらの配列要素0番目の値をキーとし、排他的論理和で変換されていく（例：value ^= a[0]、value ^= b[0] .... value ^= N[0]）
変換に用いる配列の順番は配列０〜９９の順とし、各配列は入力数値を変換後に回転するものとする。
また、入力される数値の範囲は０〜２５５までとする。
上記の関数を作成し、数値 123 を千回入力したときの変換結果を求めよ。
- 132 名前：131 mailto:sage [2013/01/23(水) 07:14:17.08 ]
- >>131 訂正
上記の関数を作成し、数値 123 を配列９９が一回転するまで入力したときの変換結果を求めよ。
- 133 名前：片山博文MZパンク ◆0lBZNi.Q7evd [2013/01/24(木) 00:34:06.50 ]
- >>130-131 #include<stdio.h>
int i,j,n,aa[100][26];
int rot(int *a){for(int i=0;i<26;i++){a[i]=(a[i]+1)%26;}return !a[0];}
int f(int n){for(i=0;i<100&&rot(aa[i]);i++);
for(j=0;j<100;j++)n^=aa[j][0];return n;}
int main(void){
for(i=0;i<100;i++)for(j=0;j<26;j++)aa[i][j]=j;
printf("入力せよ:");scanf("%d",&n);
do{n=f(n)}while(i<100);
printf("結果:%d\n",n);
return 0;} 携帯から
- 134 名前：片山博文MZパンク ◆0lBZNi.Q7evd [2013/01/24(木) 00:49:10.84 ]
- お題：英単語を改行で区切っただけの辞書ファイルからランダムにクロスワードパズル(の解答データ)
を作成するプログラムを作れ。ただしサイズは25マス×25マス以下に制限する。
- 135 名前：片山博文MZパンク ◆0lBZNi.Q7evd [2013/01/24(木) 01:23:48.51 ]
- >>134の続き
英単語は全て大文字とし、ハイフンやアポストロフィは含まないものとする。
同じ単語は２つ以上現れないものとする。
解答データは25×25文字のテキストとする。英字が入らないマスは'#'で表すものとする。
- 136 名前：デフォルトの名無しさん mailto:sage [2013/01/25(金) 01:19:20.38 ]
- >>131
codepad.org/IAw1LyuD
- 137 名前：136 mailto:sage [2013/01/25(金) 05:14:59.44 ]
- 間違ってた orz
>> 131
codepad.org/Ut6SVwft
- 138 名前：デフォルトの名無しさん mailto:sage [2013/01/25(金) 09:13:01.14 ]
- >>131,132
#include <stdio.h>
int main(){
int n = 123;
for (int i = 0; i < 10; ++i)n ^= i;
printf("%d¥n", n);
return 0;
}
実行結果：122
- 139 名前：デフォルトの名無しさん mailto:sage [2013/01/26(土) 01:52:02.07 ]
- >>131とか誰か分かりやすく書き換えてくれよ
何度読んでも意味がわからない
みんなよく分かるね
- 140 名前：デフォルトの名無しさん mailto:sage [2013/01/26(土) 02:25:29.69 ]
- >>139
車の距離計に置き換えたらわかりやすいんじゃないかな。
>>131を乗用車の 7桁距離計に例えて書き換えると、、、
> お題：array[10]={0,1, ... ,8,9} のような構造の配列が 7個ある。これらの配列は、次の規則に従い回転する。
> ・配列０(100m表示)は、一回の入力で各要素内のデータがひとつずれる
> ・配列１(1km表示)は、配列０が一回転するとき、各要素内のデータがひとつずれる
> ・配列２(10km表示)から配列９９までも同様に、ひとつ前の配列が一回転するとき、各要素内のデータはひとつずれる。
> ある入力された数値(value)は、これら 7個の配列要素0番目の値(運転手に見えている数値)をキーとし、
> 排他的論理和で変換されていく（例：value ^= a[0]、value ^= b[0] .... value ^= f[0]、value ^= g[0]）
> 変換に用いる配列の順番は配列０〜６の順とし、各配列は入力数値を変換後に回転するものとする。
> また、入力される数値(value)の範囲は０〜２５５までとする。
> 上記の関数を作成し、数値 123 を千回入力したときの変換結果を求めよ。
ただ、
> 変換に用いる配列の順番は配列０〜６の順とし、各配列は入力数値を変換後に回転するものとする。
が微妙。言葉通りだとすると、変換後は全ての配列が１つ回転するのかな？
それは、速度計で言うと 123456.7km の次は 234567.8kmという事を意味するけどそれで良いのか？
「配列０がひとつ回転する」の 123456.8kmではないのか？
- 141 名前：140 mailto:sage [2013/01/26(土) 02:27:59.50 ]
- >>140
× > それは、速度計で言うと 123456.7km の次は
○ > それは、距離計で言うと 123456.7km の次は
- 142 名前：デフォルトの名無しさん mailto:sage [2013/01/26(土) 02:32:23.65 ]
- 「数取器」の方が分かりやすいか。
１度ボタンを押す＝１入力
- 143 名前：デフォルトの名無しさん mailto:sage [2013/01/26(土) 08:49:05.25 ]
- 何となく分かった
- 144 名前：デフォルトの名無しさん mailto:sage [2013/01/26(土) 16:21:09.40 ]
- 頭悪いんだな
- 145 名前：デフォルトの名無しさん mailto:sage [2013/01/26(土) 18:05:55.94 ]
- >>45や>>119などにも言えるが、問題としての体をなしていないようなものに対して
漫然と回答してしまう方が頭が悪い
- 146 名前：デフォルトの名無しさん mailto:sage [2013/01/26(土) 18:38:05.09 ]
- クイズスレなんだからそこまで厳格でなくてもいいんだよ
- 147 名前：デフォルトの名無しさん mailto:sage [2013/01/26(土) 18:42:42.00 ]
- クイズだから厳格でなくてもいいってどういう理屈だよｗ
- 148 名前：デフォルトの名無しさん mailto:sage [2013/01/26(土) 19:15:02.86 ]
- （めんどくせー）
- 149 名前：片山博文MZパンク ◆0lBZNi.Q7evd mailto:sage [2013/01/27(日) 07:15:00.13 ]
- 難しすぎた？ ヒント要る？
- 150 名前：デフォルトの名無しさん mailto:sage [2013/02/02(土) 11:47:47.82 ]
- お題：自然数m、nが与えられたとき、mからnの区間にある平方数の個数を求めよ。
(1<m<n<100000000)
- 151 名前：デフォルトの名無しさん mailto:sage [2013/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 名前：デフォルトの名無しさん mailto:sage [2013/02/03(日) 07:46:49.19 ]
- お題：正20面体の任意の4つの頂点の座標値が与えられたとき
この多面体のすべての頂点の座標値を出力せよ。
座標値の表現方法、出力順は自由。
- 153 名前：デフォルトの名無しさん mailto:sage [2013/02/04(月) 19:09:02.47 ]
- お題：一辺の長さがLの正三角形に内接する円に内接する正三角形の面積を求めよ。
- 154 名前：デフォルトの名無しさん mailto:sage [2013/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 名前：デフォルトの名無しさん mailto:sage [2013/02/05(火) 06:43:29.06 ]
- 入力の単位分からないのに
結果の単位決まってんだな
- 156 名前：デフォルトの名無しさん mailto:sage [2013/02/05(火) 23:23:25.63 ]
- お題：英大文字（A~Z）だけで構成される文字列を、2から始める素数列に対応づけ、暗号化後、復号化せよ。
復号化後の文字がただひとつに決まる（例：23と、2,3を区別）ように、暗号化時に適宜、空白1つを挿入すること。
- 157 名前：デフォルトの名無しさん mailto:sage [2013/02/10(日) 08:57:11.24 ]
- お題：48個目のメルセンヌ素数 2^57885161-1 が見つかった。
この数の最後の10桁を求めよ。
- 158 名前：デフォルトの名無しさん mailto:sage [2013/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 名前：デフォルトの名無しさん mailto:sage [2013/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 名前：デフォルトの名無しさん mailto:sage [2013/02/10(日) 14:10:26.42 ]
- print (2 ** 57885161 - 1) % 10
% python2 hoge.py
1
- 161 名前：デフォルトの名無しさん mailto:sage [2013/02/10(日) 15:25:13.04 ]
- >>160
ボケがつまらん
- 162 名前：デフォルトの名無しさん mailto:sage [2013/02/10(日) 16:59:46.76 ]
- >>157
dc
2 57885161 10 10 ^ | 1 - p
1724285951
- 163 名前：デフォルトの名無しさん mailto:sage [2013/02/10(日) 18:00:17.75 ]
- dcは瞬く間に解が出るな
- 164 名前：デフォルトの名無しさん mailto:sage [2013/02/10(日) 18:53:40.29 ]
- dcというのは、なんという名前のプログラミング言語でしょうか？
- 165 名前：デフォルトの名無しさん mailto:sage [2013/02/10(日) 20:00:38.35 ]
- >>164
www.linuxcertif.com/man/1/dc/ja/
- 166 名前：デフォルトの名無しさん mailto:sage [2013/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 名前：デフォルトの名無しさん mailto:sage [2013/02/11(月) 19:45:02.57 ]
- >>157
Clojure
(prn (dec (.modPow (bigint 2) (bigint 57885161) (bigint 10000000000))))
- 168 名前：デフォルトの名無しさん mailto:sage [2013/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 名前：デフォルトの名無しさん mailto:sage [2013/02/11(月) 23:35:12.74 ]
- printf("87654321");
- 170 名前：デフォルトの名無しさん mailto:sage [2013/02/12(火) 18:44:34.31 ]
- >>168 J言語
a =: "."0": 12345678
b =: /:"."0": 24681357
, ":"0 b&{ ^: 100 a
48372615
- 171 名前：デフォルトの名無しさん mailto:sage [2013/02/13(水) 02:12:33.47 ]
- >>169
ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
- 172 名前：デフォルトの名無しさん mailto:sage [2013/02/15(金) 01:48:32.23 ]
- お題：将棋盤の左下隅からいちばん外側の升目を右回りに N 舛だけ移動したときの
位置 P を求めよ。左下隅、左上隅、右上隅、右下隅をそれぞれ 99、91、11、19 とする。
例 N = 15 のとき P = 21
- 173 名前：デフォルトの名無しさん mailto:sage [2013/02/15(金) 08:25:35.83 ]
- 暗算出来る算数の問題ばっかり
- 174 名前：デフォルトの名無しさん mailto:sage [2013/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 名前：デフォルトの名無しさん mailto:sage [2013/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 [2013/02/20(水) 17:01:36.84 ]
- お題：Webメーラーを作れ。
- 177 名前：デフォルトの名無しさん [2013/02/22(金) 19:51:39.41 ]
- お題：標準入力からの入力をそのまま標準出力へ出力するプログラム。
- 178 名前：デフォルトの名無しさん mailto:sage [2013/02/22(金) 19:57:23.28 ]
- #include<stdio.h>
int main() {
int ch;
while (EOF != (ch = getchar())) putchar(ch);
return 0;
}
- 179 名前：デフォルトの名無しさん mailto:sage [2013/02/22(金) 22:01:31.45 ]
- >>177 Io言語
File standardInput contents print
- 180 名前：デフォルトの名無しさん mailto:sage [2013/02/23(土) 10:43:04.30 ]
- >>177
J
stdout stdin ''
- 181 名前：デフォルトの名無しさん mailto:sage [2013/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 名前：デフォルトの名無しさん mailto:sage [2013/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 名前：デフォルトの名無しさん mailto:sage [2013/02/23(土) 18:37:02.42 ]
- >>177
Lua
io.write(io.read("*a"))
- 184 名前：片山博文MZパンク ◆0lBZNi.Q7evd [2013/02/25(月) 00:29:36.63 ]
- お題：英文を入力すると、それに対応する発音記号の列を出力するプログラムを書け。
- 185 名前：デフォルトの名無しさん mailto:sage [2013/02/26(火) 23:26:53.43 ]
- 自己顕示欲を満たす為だけに
両片山氏
- 186 名前：デフォルトの名無しさん mailto:sage [2013/02/27(水) 13:04:06.23 ]
- >>177
lex
%%
- 187 名前：デフォルトの名無しさん mailto:sage [2013/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 [2013/03/10(日) 23:49:53.56 ]
- お題：Phusion PassengerをWindowsに移植せよ
- 189 名前：片山博文MZパンク ◆0lBZNi.Q7evd [2013/03/11(月) 00:31:44.34 ]
- お題：テキストファイルwords.txtに改行区切りの正しい英単語のリストが記されている。
これを元に入力された英文のスペルチェックを行うプログラムを作れ。
スペルの間違った箇所を{{原文の単語::修正候補1||修正候補2||修正候補3}}のように出力し、その他は原文のまま出力すること。
修正候補は原文の単語のスペルに最も近い3個の単語とする。
英単語はアルファベットとハイフンとアポストロフィで構成されるものとする。
その他のピリオドや空白などの文字はそのまま出力するものとする。
- 190 名前：デフォルトの名無しさん mailto:sage [2013/03/11(月) 00:45:48.30 ]
- > 原文の単語のスペルに最も近い
こんなあいまいな仕様でお題とかバカ過ぎ
- 191 名前：片山博文MZパンク ◆0lBZNi.Q7evd mailto:sage [2013/03/11(月) 01:07:23.09 ]
- 2単語間の距離を次のように定義する。
1)同じ単語なら距離はゼロ。
2)アルファベット1字違うなら距離は1増える。
3)アルファベット1字多いか足りないならなら距離は2増える。
4)ハイフンが1字多いか足りないなら距離は1増える。
5) 2)〜4)の組み合わせなら考えられる組み合わせの最短距離をその単語の距離とする。
？？？これでいい？
- 192 名前：片山博文MZパンク ◆0lBZNi.Q7evd [2013/03/11(月) 01:23:19.30 ]
- あっ、アポストロフィを忘れてた。
2単語間の距離は適当に定義すること。これでいいや
- 193 名前：デフォルトの名無しさん mailto:sage [2013/03/11(月) 01:44:42.56 ]
- >>190
もしかしてSEいないとプログラミングできないタイプ？
- 194 名前：デフォルトの名無しさん mailto:sage [2013/03/11(月) 01:48:08.20 ]
- アホ SE がいると混乱するので、どっかいってて下さいな
- 195 名前：片山博文MZパンク ◆0lBZNi.Q7evd mailto:sage [2013/03/11(月) 02:34:02.39 ]
- >>184
単語ごとに辞書を引いて発音記号を調べて出力するだけじゃん。出題者のばーか
- 196 名前：デフォルトの名無しさん [2013/03/11(月) 07:06:28.14 ]
- クソスレ乙w
- 197 名前：デフォルトの名無しさん mailto:sage [2013/03/11(月) 20:58:43.33 ]
- 大喜利スレなんだから簡単なお題でもいいと思うわけ。
- 198 名前：片山博文MZパンク ◆0lBZNi.Q7evd [2013/03/16(土) 23:26:30.95 ]
- お題：与えられた文字列の先頭と終端にある空白文字の並びを取り除く関数を作れ。
- 199 名前：片山博文MZパンク ◆0lBZNi.Q7evd [2013/03/16(土) 23:46:37.41 ]
- お題：ある整数が半角数字の文字列で入力された時、それを漢数字表記に変換するプログラムを作れ。
- 200 名前：片山博文MZパンク ◆0lBZNi.Q7evd [2013/03/16(土) 23:48:36.98 ]
- お題：逆に漢数字を半角数字に変換するプログラム。
- 201 名前：デフォルトの名無しさん mailto:sage [2013/03/17(日) 11:16:52.48 ]
- お題：長辺の長さがA、短辺の長さがBの長方形の紙がある。対角の頂点を重ねて折る。
その折り目の長さを求めよ。
- 202 名前：デフォルトの名無しさん mailto:sage [2013/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 名前：デフォルトの名無しさん mailto:sage [2013/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 名前：デフォルトの名無しさん mailto:sage [2013/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 名前：デフォルトの名無しさん mailto:sage [2013/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 名前：デフォルトの名無しさん mailto:sage [2013/03/18(月) 18:16:50.56 ]
- >>198 Lua
trim=function(s)return s:match("^%s*(.-)%s*$")end
> print("["..trim("@@@a bc@@@").."]")
[a bc]
- 207 名前：デフォルトの名無しさん mailto:sage [2013/03/19(火) 06:53:43.43 ]
- お題：緯度と経度を与えると北方向への角度を返す関数を作成せよ。（画面上方を０度とする）
- 208 名前：デフォルトの名無しさん mailto:sage [2013/03/19(火) 07:28:02.80 ]
- 画面上方て
- 209 名前：デフォルトの名無しさん mailto:sage [2013/03/19(火) 07:38:01.50 ]
- PCディスプレイに、方位・傾きセンサーが必要だな。
- 210 名前：207 mailto:sage [2013/03/19(火) 08:03:26.96 ]
- コンパス的な関数を想定して、平面座標上での角度・方角という意味で書きたかったのですが・・・
お題になってませんね。日本語むづかしい。
- 211 名前：デフォルトの名無しさん mailto:sage [2013/03/19(火) 12:25:58.90 ]
- お題：長方形の紙がある。右の辺を左の辺にぴったり重ねて折る。折ったままの状態で
もう一度、右の辺を左の辺に重ねて折る。これを広げると左から谷折り、谷折り、山折
りの折り目がつく。N 回、紙を折ったときの折り目をめよ。山折りを A 、谷折りを V
で表す。
例
N=2 のとき VVA
N=3 のとき VVAVVAA
- 212 名前：デフォルトの名無しさん mailto:sage [2013/03/19(火) 12:38:10.25 ]
- ドラゴンカーブってやつですかね？
- 213 名前：デフォルトの名無しさん mailto:sage [2013/03/19(火) 12:55:03.26 ]
- >>212
折り目を90度にするとそうなります。
- 214 名前：デフォルトの名無しさん mailto:sage [2013/03/19(火) 21:38:11.71 ]
- >>211 J
f =: monado def ' ''VA''{~(,[:0&,-.@|.)^:(y)0'
f 4
VVAVVAAVVVAAVAAVVVAVVAAAVVAAVAA
f 5
VVAVVAAVVVAAVAAVVVAVVAAAVVAAVAAVVVAVVAAVVVAAVAAAVVAVVAAAVVAAVAA
- 215 名前：デフォルトの名無しさん mailto:sage [2013/03/19(火) 21:49:22.61 ]
- >>201 J
f =: %~*[:%:+&*:
4 f 3
3.75
- 216 名前：デフォルトの名無しさん mailto:sage [2013/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 名前：デフォルトの名無しさん mailto:sage [2013/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 名前：デフォルトの名無しさん mailto:sage [2013/03/20(水) 09:24:28.15 ]
- _, ._
（ ・ω・）んも〜
○=｛=｝〇,
|:::::::::＼, ', ´
､､､､し ､､､((（.＠）VVAVVAAVVVAAVAAVVVAVVAAAVVAAVAAVVVAVVAAVVVAAVAAAVVAVVAAAVVAAVAA
- 219 名前：片山博文MZパンク ◆0lBZNi.Q7evd mailto:sage [2013/03/20(水) 23:51:06.00 ]
- お題：レーヴェンシュタイン距離を求める
- 220 名前：デフォルトの名無しさん mailto:sage [2013/03/21(木) 22:25:15.88 ]
- おもしろそうなスレ発見
初心者でもいいっすか？罵ってください！
- 221 名前：デフォルトの名無しさん [2013/03/22(金) 01:42:43.70 ]
- >>220 どうぞどうぞ
- 222 名前：デフォルトの名無しさん mailto:sage [2013/03/22(金) 07:33:23.78 ]
- >>220
お題にしたがってコーディングしたら、罵ってやる
- 223 名前：デフォルトの名無しさん mailto:sage [2013/03/22(金) 18:41:17.42 ]
- お題：正方形のタイルをA 行 B 列に並べたときにあらわれる長方形の個数を求めよ。
例
A = 2、B = 2 のとき 9 個
A = 3、B = 4 のとき 60 個
- 224 名前：デフォルトの名無しさん mailto:sage [2013/03/22(金) 19:48:37.13 ]
- >>223
projecteuler.net/ ?
- 225 名前：デフォルトの名無しさん mailto:sage [2013/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 名前：デフォルトの名無しさん mailto:sage [2013/03/24(日) 00:32:51.40 ]
- >>223
((a + 1) * a / 2) * ((b + 1) * b / 2)
- 227 名前：デフォルトの名無しさん mailto:sage [2013/03/24(日) 07:09:47.14 ]
- タイルの模様は
- 228 名前：デフォルトの名無しさん mailto:sage [2013/03/24(日) 07:33:08.84 ]
- >>227
無地です
- 229 名前：デフォルトの名無しさん mailto:sage [2013/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 名前：デフォルトの名無しさん mailto:sage [2013/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 名前：デフォルトの名無しさん mailto:sage [2013/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 名前：デフォルトの名無しさん mailto:sage [2013/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 [2013/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 名前：デフォルトの名無しさん mailto:sage [2013/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 名前：デフォルトの名無しさん mailto:sage [2013/03/30(土) 23:49:07.35 ]
- お題：できる限り速くフーリエ変換を行う関数を作れ。
- 236 名前：デフォルトの名無しさん mailto:sage [2013/03/30(土) 23:54:32.42 ]
- つまり早くレスした人の勝ち
- 237 名前：片山博文MZパンク ◆0lBZNi.Q7evd mailto:sage [2013/04/01(月) 23:13:26.06 ]
- お題：平面幾何学の問題を解く人工知能を作れ
貴様らにできるかな？ｗ
- 238 名前：片山博文MZパンク ◆0lBZNi.Q7evd mailto:sage [2013/04/02(火) 00:50:39.01 ]
- お題：'('と')'でできた文字列が与えられると、対応しているカッコの対の個数を返す関数。
例。"())" → 2
"(())" → 4
")(()()" → 5
- 239 名前：片山博文MZパンク ◆0lBZNi.Q7evd mailto:sage [2013/04/02(火) 01:14:41.42 ]
- お題：行列Aのサイズ(縦と横)と行列Aの各成分がCSV形式のテキストファイルで与えられている。Aの逆行列を掃き出し方で求めよ。
- 240 名前：デフォルトの名無しさん mailto:sage [2013/04/02(火) 04:15:37.84 ]
- >>233
ウンコード
- 241 名前：デフォルトの名無しさん mailto:sage [2013/04/02(火) 05:02:14.35 ]
- >>239
各成分はともかく、サイズのフォーマットはどうなってんの
一行目だけ2列でそこに縦横みたいな？
- 242 名前：片山博文MZパンク ◆0lBZNi.Q7evd mailto:sage [2013/04/02(火) 12:26:13.09 ]
- >>241
縦のサイズ,横のサイズ\n
(1,1)成分,(1,2)成分,...\n
(2,1)成分,(2,2)成分,...\n
...
みたいな感じで頼む
- 243 名前：デフォルトの名無しさん mailto:sage [2013/04/02(火) 12:37:14.56 ]
- >>242
ナニソノ微妙なフォーマット…単に列挙しただけのCSVじゃダメなのかYO
- 244 名前：デフォルトの名無しさん mailto:sage [2013/04/02(火) 17:14:31.93 ]
- >>242
正方行列ではないの？
- 245 名前：デフォルトの名無しさん mailto:sage [2013/04/02(火) 18:10:58.86 ]
- お題：二足歩行する猿が一匹いる。猿が今考えている内容を標準出力せよ。
- 246 名前：232 mailto:sage [2013/04/05(金) 05:10:26.49 ]
- >>234
例がまずかったでしょうか？
N=13、1+3+1+3+1+3+1=13
なども真のつもりです。
- 247 名前：デフォルトの名無しさん mailto:sage [2013/04/05(金) 18:03:31.68 ]
- お題：a * b * c の直方体がある。 a + b = c とする。この直方体の一つの頂点と
これに隣接する三つの頂点からなる四面体の表面積を求めよ。
- 248 名前：デフォルトの名無しさん mailto:sage [2013/04/05(金) 22:03:03.35 ]
- >>246
足す順序は上位桁から？
それとも入れ替えてもいいの？
- 249 名前：デフォルトの名無しさん [2013/04/05(金) 22:45:49.74 ]
- >>248
> 足す順序は上位桁から？
はい。
> それとも入れ替えてもいいの？
入れ替えはなしです。
- 250 名前：デフォルトの名無しさん mailto:sage [2013/04/05(金) 23:22:58.96 ]
- >>247
=(a+b)^2
っぽい
- 251 名前：デフォルトの名無しさん mailto:sage [2013/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 名前：デフォルトの名無しさん mailto:sage [2013/04/08(月) 00:01:45.01 ]
- お題：０より大きく1より小さい循環小数を分数に変換せよ。
循環小数は循環する部分を丸括弧でくくった表記とする。
例
0.08(3) -> 1/12
0.(142857) -> 1/7
0.2(36) -> 13/55
- 253 名前：デフォルトの名無しさん mailto:sage [2013/04/08(月) 06:58:18.64 ]
- >>252
toro.2ch.net/test/read.cgi/tech/1313183984/655
丸括弧じゃなくて [ ] だけれども
|
 |
