プログラミングのお題スレ Part17
■ このスレッドは過去ログ倉庫に格納されています
>>544
規則的というのがよくわからんな
aceg
13579
314515926
あたりがいいのか悪いのかわからん 難しいことはどうでもいいんだよ
糞コテなんかＮＧに入れて無視しとけ お題
N×M個の頂点からなる格子状の無向グラフが与えられる。
グラフのエッジは隣同士の頂点を結んでいる。
このグラフの全域木を一つ出力せよ。
ただし、横線と縦線の数は同じでなければならない。
[入力]
N M (N, Mは3以上の奇数)
[出力]
頂点'o'、横線'-'、縦線'|'を使って全域木を描画せよ。(答えは複数あり得る)
[入力例]
3 7
[出力例]
o-o-o-o-o-o-o
|.|.|.|.|.|.|
o.o.o.o.o.o.o
|.....|...|..
o-o-o.o-o.o-o
※表示の都合上、スペースは'.'に置き換えています。 >>572 Ruby
n, m = gets.split.map{|s| s.to_i}
na = [ ['-']*(n+m), [' ']*(n*(m-1)-n-m) ].flatten.shuffle
ma = [ ['|']*(n+m), [' ']*(m*(n-1)-n-m) ].flatten.shuffle
n.times{|y|
puts [ na[y*(m-1)...(y+1)*(m-1)].map{|s|'o'+s}, 'o' ] * ''
puts ma[ y*m...(y+1)*m ].join(' ') if y != n-1
} お題: 入力文字列に機種依存文字が含まれているか判定するプログラム。 >>576 C
#include <stdio.h>
int check( unsigned char uc ){
return( uc == 0x40 || uc >= 0x5b && uc <= 0x5e || uc == 0x60 || uc >= 0x7b && uc <= 0x7e || uc >= 0x80 );
}
void main(){
char ch;
while( (ch = getchar()) != EOF )
check( ch ) && printf( "Check %02X '%c'\n", ch, ch );
} お題: XY平面上の謎のキャラクターPが原点に居てY軸(北)の方向を向いている。Pは何回か次のいずれかのアクションを行う。
アクション1. 90度左に自転する。
アクション2. 90度右に自転する。
アクション3. 一つ前に進む。
入力は、カンマ区切りのアクション番号の並びとする。Pは入力されたアクションを順番に実行する。
出力は、入力の各アクションを実行した後の位置と向き(東西南北)を順番に並べたものとする。
入力例1) 1, 3, 3, 2, 3
入力例2) 3, 2, 3, 1 >>579 Ruby
def moves( str )
x, y = 0, 0
r = 0
ta = [ [0,-1], [1,0], [0,1], [-1,0] ]
ts = %w{北 東 南 西}
str.split(/,\s*/).each{|ch|
case ch
when '1'; r = (r - 1) % 4
when '2'; r = (r + 1) % 4
when '3'
x += ta[r][0]
y += ta[r][1]
end
puts "%3d %3d %s" % [ x, y, ts[r] ]
}
end
moves( "1, 3, 3, 2, 3" )
moves( "3, 2, 3, 1" ) >>579 Ruby
def moves( str )
x, y = 0, 0
dx, dy = 0, -1
ts2 = %w{北 西 \ 東 南 }
str.split(/,\s*/).each{|ch|
case ch
when '1'; dx, dy = dy, -dx
when '2'; dx, dy = -dy, dx
when '3'
x += dx
y += dy
end
puts "%3d %3d %s" % [ x, y, ts2[dx + 2*dy + 2] ]
}
end
moves( "1, 3, 3, 2, 3" )
moves( "3, 2, 3, 1" ) >>579 Ruby
Vectorで書き直して歩数を追加
require 'matrix'
def moves( str )
xy = Vector[ 0, 0, 0 ]
v = Vector[ 0, -1, 1 ]
ts = %w{ 北 西 x 東 南 }
str.split(/,\s*/).each{|ch|
case ch
when '1'; v = Vector[ v[1],-v[0], 1]
when '2'; v = Vector[-v[1], v[0], 1]
when '3'; xy += v
end
puts "%3d %3d %3d歩 %s" % [ xy.to_a, ts[v.dot(Vector[1,2,0])+2] ].flatten
}
end IT掲示板群 ttp://x0000.net/forum.aspx?id=15
学術の巨大掲示板群 - アルファ・ラボ ttp://x0000.net
数学 物理学 化学 生物学 天文学 地理地学
IT 電子 工学 言語学 国語 方言 など
simulationライブラリで純粋な関数式プログラミングをする
ttp://x0000.net/topic.aspx?id=3631-0
UIライブラリ (C#, 2D) を作ったよ
ttp://x0000.net/topic.aspx?id=3688-0
連続と離散を統一した！
ttp://x0000.net/topic.aspx?id=3709-0
4Dエンジン（画像有り）
ttp://x0000.net/topic.aspx?id=3677-0
matrixのライブラリ
ttp://x0000.net/topic.aspx?id=3711-0
ある強力なFor関数
ttp://x0000.net/topic.aspx?id=3630-0
SQLライブラリ
ttp://x0000.net/topic.aspx?id=3675-0 お題: テキトーに木構造を描画せよ。
入力例)
動物→鳥類、哺乳類
鳥類→ペンギン、アヒル、スズメ
哺乳類→ニワトリ、リス >>586
digraph sample {
subgraph cluster1 {
label="cluster1";
{
動物->鳥類, 哺乳類;
鳥類->ペンギン, アヒル, スズメ;
哺乳類->ニワトリ, リス;
哺乳類, 魚類, 鳥類->アマビエ;
}
}
} お題: おらがロボ村では、5人の選手が参加するマラソン大会が実施される。マラソンコースは半径500mの円形で、各選手はコースを一周する。
マラソン大会の開始時刻では、5人の選手はスタートラインに並ぶ。各選手を20km/h～40km/hのランダムな速度でコースに沿って
ゴールに向かって動かし、スタートラインからの相対位置と順位を1分ごとに記録せよ。 >>600 C++ Windows
#include <Windows.h>
#include <iostream>
int main()
{
auto drives = GetLogicalDrives();
for (int i = 0; i < 32; ++i) {
if (drives & (1 << i)) {
char directory[] = "A:";
directory[0] += i;
ULARGE_INTEGER freeBytes;
if (GetDiskFreeSpaceExA(directory, nullptr, nullptr, &freeBytes) != 0) {
std::cout << directory << " " << freeBytes.QuadPart << std::endl;
}
}
}
} >>600
#!/bin/sh
echo '残りHDD容量' >>602
if (drives & (1 << i)) {
↑これなにやってるの？ すまん自己解決したわ
有効なドライブを判定してるのか 代々受け継がれた秘伝では
ビット演算にはいやらしいほど大量の括弧を付ける Cの条件文の後の式も
必ずカッコ{}でくくらないと
気持ち悪くなる体になってしまった お題: アリが20匹現れた。ハエ叩き棒でやっつけろ。ジョークプログラムなので、なるべく面白いのを頼む。 前出のお題の修正：
5以上の素数に対して、6の剰余は±1のいずれかになる。剰余を順次加算していくと
合計が0になる時の素数は
7, 13, 19, 37, 43, 79, 163, 223, 229
が表れる。次に表れる素数は何か。 >>613
C && sh
is_prime.exe のソース
https://pastebin.com/JSJU2GWt
これは is_prime.exe 5 600 で5以上600以下の素数を整形して表示する
また、 exe 7 => 7, exe 8 => のように引数1つの時はそれが素数である場合のみ返す
そんな exe を使えば題意の229の次は521だと分かる
~/bin/is_prime.exe 5 600 |perl -pe 's/\s+/\n/g'| head -200 | sed '/^$/d' | perl -ne 'chomp;m/\A(\d+)/;$total += $1; print "$_ ($total)\n" if ($total %6 == 0)'
7 (12)
13 (36)
19 (72)
37 (192)
43 (276)
79 (786)
163 (2742)
223 (4656)
229 (5112)
521 (23064)
569 (26364)
593 (28692) 出力コードを簡素化した。結果は同様
~/bin/is_prime.exe 5 600 |perl -pe 's/\s+/\n/g'| head -200 | sed '/^$/d' | perl -ne '$total += $_; print if ($total %6 == 0)'
7
13
19
37
43
79
163
223
229
521
569
593 >>614
済みませんが、
素数の時、6の剰余+1か-1のいずれかを使って
加算してください。 >>613
問題の意味がわからない。
> 5以上の素数に対して、6の剰余は±1のいずれかになる。
割り算の余りがマイナスになるというのはどういう事なのか？ 整数でいえば余り1,5の状態だな
>>616
No
mod 6 で閉じてて可換な四則計算順序を指定する意図が不可解 ああーそれとも剰余の合計rに対して
剰余が5 のときr--して剰余が1のときr++しろってことかな？
なら>>613は解無しじゃないのか >>619
(n - 1) mod n の計算結果は n - 1 になるが? 5 mod 6 = 5 になるだろ普通に計算すれば。
余りはどうやっても負の数にならんよな。余りなんだから。 >>624
いや -1 も n-1 も同値だっつーの >>625
それはどういうルールなのか？普通の数学や数値計算とルールが違うのであればその独自ルールを全て書いてくれ。
書いてくれればそれに合わせて考えるから。 >>627
普通の文脈で、数学において x = -1 mod n ⇔ x = n - 1 mod n なんですが、あなたはどの宇宙の数学を学んできたんですか >>628
じゃあどうやって計算したら結果を -1 にして出せるんだ？ >>630
いやだからそもそも剰余環境Z/nZにおいては -1 も n - 1 も同じ数字なんだっての
なんで理解できないの 算数もわからんガイジに群論で説明しても分かるわけないやろ >>630
n を自然数として、
6n + 5 の形である整数の集合…①
と
6n - 1 の形である整数の集合…②
があったとき、よくよく考えると ①と②は合致しませんか？
>>631
もっと簡単な言葉で説明できませんか？難しい言葉でしか説明できないのなら、それは本質がわかっていないということになりませんか？
>>632
馬鹿にあわせて説明できる人こそ真の天才だとおもいますが、そういう人はなかなかいないようですね 数学の話してんなら普通やろ
いつもの数学コンプレックスニキが自演してんやろな >>623
ありがとうございます。まだ確認できていませんが、
素数が6の剰余で＋１型とー１型が同じ割合で存在するなら合計の零点は
もっと頻繁にあると思っていました。 同値とかいう言い方してるから伝わないんやろ
そんなこともわからんのか 同値なんて中学校で習ったがここには小学生しかおらんのか？ ググれば10秒でわかることをいちいち聞いてくるアホ共
最終的には足し算の定義聞かれてペアノの公理説明することになりそうだなｗ >>613 こんな感じじゃないかなあ
C++
#include <iostream>
const int MAXENT = 1000000;
int prime_table[MAXENT] = {3};
int main()
{
int found = 0, s = 0, d = 4;
for(__int64 p = 5;;p += (d = 6 - d)) {
for(int i = 0;;i ++) {
int can = prime_table[i];
if( p < can * can || i >= found ) {
if( p < MAXENT ) { prime_table[found ++] = (int)p; }
if( (s += d - 3) == 0 ) { std::cout << p << std::endl; }
break;
}
if( p % can == 0 ) { break; }
} }
return 0;
} 「n-1と-1は同値」
これ本来の同値ってワードの使い方として合ってるの？
まあ感覚でわかるけどややこしくしてる要因だな >>646
「x = -1 mod n ⇔ x = n - 1 mod n 」ってわざわざ読み下してるんですがあなたの眼球にはピンポン玉でもつまっているのですか？ 数学オタは意地でもスマートな記述にこだわるから一般人には伝わりにくい
もっと日常語で説明して このスレ絶望的に算数できないやつが定期的に荒らすよな 数学得意なやつにとって当たり前で簡単なことは勝手に算数呼ばわりする奴も定期的に湧くよな ■ このスレッドは過去ログ倉庫に格納されています
