プログラミングのお題スレです。
【出題と回答例】
1 名前：デフォルトの名無しさん
お題：お題本文
2 名前：デフォルトの名無しさん
>>1 使用言語
回答本文
【ソースコードが長くなったら】 (オンラインでコードを実行できる)
https://ideone.com/
http://codepad.org/
http://compileonline.com/
http://rextester.com/runcode
https://runnable.com/
https://code.hackerearth.com/
http://melpon.org/wandbox
https://paiza.io/
宿題は宿題スレがあるのでそちらへ。
前スレ
プログラミングのお題スレ Part10
https://mevius.5ch.net/test/read.cgi/tech/1514772904/
プログラミングのお題スレ Part11
https://mevius.5ch.net/test/read.cgi/tech/1524570314/
探検
プログラミングのお題スレ Part12
レス数が900を超えています。1000を超えると表示できなくなるよ。
2018/09/28(金) 10:09:07.13ID:phwOkayR
841デフォルトの名無しさん
2018/12/22(土) 11:29:36.65ID:7UfbjIEE >>841
昔カルノー図がかける範囲（3入力？4入力くらいだったかな？）で簡約化ツールを作ったことがあります
当時は書き捨て上等、でやっていたのですが、今は困ってしまっています、当時のプログラム記述能力は当時は今後もずっと保存されるものと当時は考えていたのですが、それは完全な誤りでした…
昔カルノー図がかける範囲（3入力？4入力くらいだったかな？）で簡約化ツールを作ったことがあります
当時は書き捨て上等、でやっていたのですが、今は困ってしまっています、当時のプログラム記述能力は当時は今後もずっと保存されるものと当時は考えていたのですが、それは完全な誤りでした…
843デフォルトの名無しさん
2018/12/23(日) 16:48:28.85ID:V9Fp8lZV >>841
俺全然わかってない人なんだけど、
そのURLの一番下の、入力部分のNOTゲートを無視しない場合、
9個のNANDゲートで構成できるって書いてあるけど、
NOTゲートの部分を2個減らして7個で作るとかはあかんのん？
俺全然わかってない人なんだけど、
そのURLの一番下の、入力部分のNOTゲートを無視しない場合、
9個のNANDゲートで構成できるって書いてあるけど、
NOTゲートの部分を2個減らして7個で作るとかはあかんのん？
844デフォルトの名無しさん
2018/12/23(日) 16:56:13.54ID:jMuRFGAa 半導体製造のコストがある
NANDゲートは作り易い、というか造りが簡素で単純
NOTゲートも作り易い
なので厳密には製造コストも考えないといけない
NANDゲートは作り易い、というか造りが簡素で単純
NOTゲートも作り易い
なので厳密には製造コストも考えないといけない
845デフォルトの名無しさん
2018/12/23(日) 17:29:24.88ID:gPP7+XoH846デフォルトの名無しさん
2018/12/23(日) 18:34:59.46ID:m1FIlPHW847デフォルトの名無しさん
2018/12/23(日) 21:11:36.62ID:9AXglOVX >>846
それA=0, B=0, C=0の結果から間違ってるんだが
それA=0, B=0, C=0の結果から間違ってるんだが
848デフォルトの名無しさん
2018/12/23(日) 23:39:28.74ID:DR7zt9Cz >>847
うむ
最終形は
Z=~ABC+A~C+~B~C
ですね
２入力NAND回路は
Step 9, Solution 1
0 : -1, -1: 0, 0, 0, 0, 1, 1, 1, 1
1 : -1, -1: 0, 0, 1, 1, 0, 0, 1, 1
2 : -1, -1: 0, 1, 0, 1, 0, 1, 0, 1
3 : 0, 0: 1, 1, 1, 1, 0, 0, 0, 0
4 : 3, 1: 1, 1, 0, 0, 1, 1, 1, 1
5 : 4, 2: 1, 0, 1, 1, 1, 0, 1, 0
6 : 5, 2: 1, 1, 1, 0, 1, 1, 1, 1
7 : 5, 4: 0, 1, 1, 1, 0, 1, 0, 1
8 : 7, 6: 1, 0, 0, 1, 1, 0, 1, 0
ともう一つでした。
うむ
最終形は
Z=~ABC+A~C+~B~C
ですね
２入力NAND回路は
Step 9, Solution 1
0 : -1, -1: 0, 0, 0, 0, 1, 1, 1, 1
1 : -1, -1: 0, 0, 1, 1, 0, 0, 1, 1
2 : -1, -1: 0, 1, 0, 1, 0, 1, 0, 1
3 : 0, 0: 1, 1, 1, 1, 0, 0, 0, 0
4 : 3, 1: 1, 1, 0, 0, 1, 1, 1, 1
5 : 4, 2: 1, 0, 1, 1, 1, 0, 1, 0
6 : 5, 2: 1, 1, 1, 0, 1, 1, 1, 1
7 : 5, 4: 0, 1, 1, 1, 0, 1, 0, 1
8 : 7, 6: 1, 0, 0, 1, 1, 0, 1, 0
ともう一つでした。
849デフォルトの名無しさん
2018/12/24(月) 08:22:13.10ID:bL5ZoHRn850デフォルトの名無しさん
2018/12/24(月) 11:32:09.70ID:7aEQUcJ6851デフォルトの名無しさん
2018/12/24(月) 13:42:11.05ID:bL5ZoHRn852デフォルトの名無しさん
2018/12/26(水) 16:33:56.35ID:GYS6kcBm >>848
wxMaximaでお絵描きした。
/* [wxMaxima: input start ] */
load (graphs)$
gg() := draw_graph(
net,
show_weight=true,
vertex_size=3,
show_id=true,
show_vertices=[0,1,2,8],
show_vertex_type=filled_square,
head_length=0.2,
head_angle=5,
edge_color="dark-green",
text_color=blue
);
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
Solution[1]:[[[ 0, 3],2],[[ 3, 4],1],[[ 1, 4],1],
[[ 4, 5],1],[[ 2, 5],1],[[ 5, 6],1],[[ 2, 6],1],
[[ 5, 7],1],[[ 4, 7],1],[[ 7, 8],1],[[ 6, 8],1]]$
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
aa:1$ for g:aa thru 1 do (
net : create_graph(9,Solution[g],directed=true),
print("Solution",aa,Solution[g]),aa:aa+1,
gg());
/* [wxMaxima: input end ] */
wxMaximaでお絵描きした。
/* [wxMaxima: input start ] */
load (graphs)$
gg() := draw_graph(
net,
show_weight=true,
vertex_size=3,
show_id=true,
show_vertices=[0,1,2,8],
show_vertex_type=filled_square,
head_length=0.2,
head_angle=5,
edge_color="dark-green",
text_color=blue
);
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
Solution[1]:[[[ 0, 3],2],[[ 3, 4],1],[[ 1, 4],1],
[[ 4, 5],1],[[ 2, 5],1],[[ 5, 6],1],[[ 2, 6],1],
[[ 5, 7],1],[[ 4, 7],1],[[ 7, 8],1],[[ 6, 8],1]]$
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
aa:1$ for g:aa thru 1 do (
net : create_graph(9,Solution[g],directed=true),
print("Solution",aa,Solution[g]),aa:aa+1,
gg());
/* [wxMaxima: input end ] */
853デフォルトの名無しさん
2019/01/06(日) 20:37:20.68ID:uX30aAuK エモい歌うまバーチャルユーチューバー
https://script.google.com/macros/s/AKfycbxuAt1ejx43_zMRfK7Xplwgwn7cXDQAdZTJkDdLrVCLo8SIdhI/exec
今、見られている話題のVtuberを知りたいなら、ハルカス式Vtuberランキングを見ましょう
【ハルカス式Vtuberランキング】※毎週・毎月自動更新
https://script.google.com/macros/s/AKfycbzZO93mJcZ5M_dPmIZOzuVQNr4mcGwQQdiT7GiLld_1Uews7uE/exec
年末年始の一週間12/27～01/02までのハルカス式Vtuberランキング
https://docs.google.com/spreadsheets/d/1jdVQ2r5yTrAykMRF1nuX6_5DXpK0167D4JcVCQZTJdM/edit#gid=157464142
年末の一ヶ月12/1～12/31までのハルカス式Vtuberランキング
https://docs.google.com/spreadsheets/d/1Yc6HD_h4lfurme9b3T0ZXBf2-iBpFSmMGg-1bdgSe0E/edit#gid=1971024984
第４回バーチャルYouTuber人気投票募集中（全304名、2018年11月23日～）
あなたの好きなVtuberは？５問（配信内容、トーク、歌うま、ゲーム実況、キャラデザ）
https://script.google.com/macros/s/AKfycbwSwNBm8qYD4_kZN2uJLeqRIP8Mwpbo3YDTUEpaSMU02BDAR3jh/exec
・Googleフォームは標準仕様では不正投票が可能な為、改造して対策を行いました。
・2018/11/23時点でチャンネル登録数10,000人以上のuserlocalに登録されたVtuberを対象としています。
・一つのチャンネルでVtuberが複数人いる場合は、それぞれ分けています。
・このフォームに投票するにはグーグルアカウントでログインする必要はありません。
・並び順は前回の得票数の高い順と新人は登録者数の多い順に並んでいます。
・今回も1,000人の方が投票するまで継続します。
なお投票結果はスプレッドシートにリアルタイムで表示されるようにしました。
また【概要】と【詳細】でシートを分けております。
https://docs.google.com/spreadsheets/d/1udB81Vnia9CoIgPaan3a5XFeaCfcnBXkRoPTuxvRpAc/
ｇｒげｒげ
https://script.google.com/macros/s/AKfycbxuAt1ejx43_zMRfK7Xplwgwn7cXDQAdZTJkDdLrVCLo8SIdhI/exec
今、見られている話題のVtuberを知りたいなら、ハルカス式Vtuberランキングを見ましょう
【ハルカス式Vtuberランキング】※毎週・毎月自動更新
https://script.google.com/macros/s/AKfycbzZO93mJcZ5M_dPmIZOzuVQNr4mcGwQQdiT7GiLld_1Uews7uE/exec
年末年始の一週間12/27～01/02までのハルカス式Vtuberランキング
https://docs.google.com/spreadsheets/d/1jdVQ2r5yTrAykMRF1nuX6_5DXpK0167D4JcVCQZTJdM/edit#gid=157464142
年末の一ヶ月12/1～12/31までのハルカス式Vtuberランキング
https://docs.google.com/spreadsheets/d/1Yc6HD_h4lfurme9b3T0ZXBf2-iBpFSmMGg-1bdgSe0E/edit#gid=1971024984
第４回バーチャルYouTuber人気投票募集中（全304名、2018年11月23日～）
あなたの好きなVtuberは？５問（配信内容、トーク、歌うま、ゲーム実況、キャラデザ）
https://script.google.com/macros/s/AKfycbwSwNBm8qYD4_kZN2uJLeqRIP8Mwpbo3YDTUEpaSMU02BDAR3jh/exec
・Googleフォームは標準仕様では不正投票が可能な為、改造して対策を行いました。
・2018/11/23時点でチャンネル登録数10,000人以上のuserlocalに登録されたVtuberを対象としています。
・一つのチャンネルでVtuberが複数人いる場合は、それぞれ分けています。
・このフォームに投票するにはグーグルアカウントでログインする必要はありません。
・並び順は前回の得票数の高い順と新人は登録者数の多い順に並んでいます。
・今回も1,000人の方が投票するまで継続します。
なお投票結果はスプレッドシートにリアルタイムで表示されるようにしました。
また【概要】と【詳細】でシートを分けております。
https://docs.google.com/spreadsheets/d/1udB81Vnia9CoIgPaan3a5XFeaCfcnBXkRoPTuxvRpAc/
ｇｒげｒげ
854デフォルトの名無しさん
2019/01/18(金) 22:48:43.15ID:sD1souQd あげ
855デフォルトの名無しさん
2019/01/19(土) 05:22:33.88ID:M8Q3zGyy 過疎ってるので別スレのこれをお題にする。
なお、クラスではなく関数でもサブルーチンでも良い。
https://mevius.5ch.net/test/read.cgi/tech/1544839627/332
332 デフォルトの名無しさん (ﾜｯﾁｮｲ f11f-t+p0) sage 2019/01/18(金) 22:57:58.37 ID:1ZiD/8V00
文字列から数字をtmpWとtmpHに抜き出すクラスを作りたいのですがどうしたらいいですか？
演算子記号は+−もある、数字の桁数は不明で小数点もあり、数字が入るときは小文字一字始まり、引数はw or hで抜き出す戻り値を示す。
対象文字
①w900×ＨH
②WW×h1000
③WW×HH
④w900/h100
結果 引数がwなら左 hなら右
①tmpW=900 tmpH=＂＂
②tmpW=＂＂ tmpH=1000
③tmpW=＂＂ tmpH=＂＂
④tmpW=900 tmpH=1000
なお、クラスではなく関数でもサブルーチンでも良い。
https://mevius.5ch.net/test/read.cgi/tech/1544839627/332
332 デフォルトの名無しさん (ﾜｯﾁｮｲ f11f-t+p0) sage 2019/01/18(金) 22:57:58.37 ID:1ZiD/8V00
文字列から数字をtmpWとtmpHに抜き出すクラスを作りたいのですがどうしたらいいですか？
演算子記号は+−もある、数字の桁数は不明で小数点もあり、数字が入るときは小文字一字始まり、引数はw or hで抜き出す戻り値を示す。
対象文字
①w900×ＨH
②WW×h1000
③WW×HH
④w900/h100
結果 引数がwなら左 hなら右
①tmpW=900 tmpH=＂＂
②tmpW=＂＂ tmpH=1000
③tmpW=＂＂ tmpH=＂＂
④tmpW=900 tmpH=1000
856デフォルトの名無しさん
2019/01/19(土) 08:17:19.40ID:9NMu+pMT お題スレじゃなくて、あなたの宿題無料でやりますよになってる
857デフォルトの名無しさん
2019/01/19(土) 09:54:02.71ID:9IabhBF0 >>855 Ruby
f = -> str {str.scan(/([A-Z]{2}|[a-z])((?:\d+\.)?\d+)?/).each_with_object({}){|(m, num), h| h["tmp#{m[0].upcase}"] = !num ? ' ' : num.match?(/\./) ? num.to_f : num.to_i}}
%w[
w900×HH WW×h1000 WW×HH w900/h100 w3.14/h2.72
].each{|e| h = f[e]; puts "#{e} -> " + h.map{|v| '%s = %p' % v}.join(', ')}
# =>
w900×HH -> tmpW = 900, tmpH = " "
WW×h1000 -> tmpW = " ", tmpH = 1000
WW×HH -> tmpW = " ", tmpH = " "
w900/h100 -> tmpW = 900, tmpH = 100
w3.14/h2.72 -> tmpW = 3.14, tmpH = 2.72
f = -> str {str.scan(/([A-Z]{2}|[a-z])((?:\d+\.)?\d+)?/).each_with_object({}){|(m, num), h| h["tmp#{m[0].upcase}"] = !num ? ' ' : num.match?(/\./) ? num.to_f : num.to_i}}
%w[
w900×HH WW×h1000 WW×HH w900/h100 w3.14/h2.72
].each{|e| h = f[e]; puts "#{e} -> " + h.map{|v| '%s = %p' % v}.join(', ')}
# =>
w900×HH -> tmpW = 900, tmpH = " "
WW×h1000 -> tmpW = " ", tmpH = 1000
WW×HH -> tmpW = " ", tmpH = " "
w900/h100 -> tmpW = 900, tmpH = 100
w3.14/h2.72 -> tmpW = 3.14, tmpH = 2.72
858デフォルトの名無しさん
2019/01/19(土) 12:58:12.91ID:XYN5JTgF > ④tmpW=900 tmpH=1000
859デフォルトの名無しさん
2019/01/19(土) 15:20:58.20ID:M8Q3zGyy >>856
お題をやるかどうかは自由だし使う言語も自由なのでここは宿題向きスレではない。それに宿題用のスレは別にある。
お題をやるかどうかは自由だし使う言語も自由なのでここは宿題向きスレではない。それに宿題用のスレは別にある。
860デフォルトの名無しさん
2019/01/20(日) 17:00:10.01ID:XepLmY3z お題
チェス盤をかく
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
チェス盤をかく
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
861デフォルトの名無しさん
2019/01/20(日) 17:28:18.15ID:bv4HmLR/ for i in range(4):
print("□■□■□■□■")
print("■□■□■□■□")
print("□■□■□■□■")
print("■□■□■□■□")
862デフォルトの名無しさん
2019/01/20(日) 18:45:01.40ID:vla32kuj console.log(`
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
`);
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
`);
863デフォルトの名無しさん
2019/01/20(日) 19:21:05.18ID:QLQt0ffh >>860
85kg 170cmの俺がJavascriptで回答。
[85, 170]
.map(d => [...d.toString(2).padStart(8,0)]
.map(b => +b ? '□' : '■')
.join`` + '\n')
.join``
.repeat(4)
85kg 170cmの俺がJavascriptで回答。
[85, 170]
.map(d => [...d.toString(2).padStart(8,0)]
.map(b => +b ? '□' : '■')
.join`` + '\n')
.join``
.repeat(4)
864デフォルトの名無しさん
2019/01/20(日) 19:39:43.28ID:CUY2SNg1 >>860 Ruby
puts 72.times.map{|i| i % 9 / 8 * 10 + 15 / (i % 9 + 8) * (i & 1 ^ 9633)}.pack('U*')
# =>
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
puts 72.times.map{|i| i % 9 / 8 * 10 + 15 / (i % 9 + 8) * (i & 1 ^ 9633)}.pack('U*')
# =>
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
865デフォルトの名無しさん
2019/01/20(日) 19:45:27.08ID:z2xvgkTe866デフォルトの名無しさん
2019/01/20(日) 19:58:44.02ID:vla32kuj867デフォルトの名無しさん
2019/01/20(日) 22:22:45.08ID:n75q6Hj+ 解法や工夫は色々あっていい
868デフォルトの名無しさん
2019/01/20(日) 23:40:01.19ID:3oCDYmJz >>866
可読性も最強だしなｗ
可読性も最強だしなｗ
869デフォルトの名無しさん
2019/01/21(月) 00:16:11.01ID:evkqklOK 前々からつくろうとしていまだ決定版ができてないのがある。
コマンド fileA fileBで、重複行を除いて連結と、
A-Bで重複行を除くやつ。入力が数百Mだときつい。
コマンド fileA fileBで、重複行を除いて連結と、
A-Bで重複行を除くやつ。入力が数百Mだときつい。
870デフォルトの名無しさん
2019/01/21(月) 00:20:48.31ID:q5TMCwho きついのは口臭だけにしとけよ
871デフォルトの名無しさん
2019/01/21(月) 04:33:49.89ID:ZCrWhalc >>869
Linux とかでよく使われるシェル(bash とか)ならこんな感じだろうな。
( uniq fileA ; uniq fileB ) > fileC
シェルスクリプトにするならこんな内容のファイルを作ってそれの実行パーミッション立てておくだけ。
#!/bin/sh
uniq $1
uniq $2
ようするに uniq コマンド使ってるだけ。
Windows でも似たようなものはあるかも知れないが WSL 入れて Ubuntu とか動かしちゃった方が何も考えずに Linux 風にできるので楽かも知れない。
/mnt/c/ にCドライブマウントされてるからファイルのやり取りを考える必要もない。
改行が LF なのとデフォルトのエンコーディングが UTF-8 なのは考慮する必要があるが。
Linux とかでよく使われるシェル(bash とか)ならこんな感じだろうな。
( uniq fileA ; uniq fileB ) > fileC
シェルスクリプトにするならこんな内容のファイルを作ってそれの実行パーミッション立てておくだけ。
#!/bin/sh
uniq $1
uniq $2
ようするに uniq コマンド使ってるだけ。
Windows でも似たようなものはあるかも知れないが WSL 入れて Ubuntu とか動かしちゃった方が何も考えずに Linux 風にできるので楽かも知れない。
/mnt/c/ にCドライブマウントされてるからファイルのやり取りを考える必要もない。
改行が LF なのとデフォルトのエンコーディングが UTF-8 なのは考慮する必要があるが。
872デフォルトの名無しさん
2019/01/21(月) 07:09:30.84ID:evkqklOK そんな機能あったっけ、と確認したみたけど意図する動作しない、連続しない重複も対象
Linuxコマンド集 【 uniq 】 ソート済みのファイルから重複した行を削除する
ファイルで重複している行を削除する。ただし，ファイルはソートしてある必要がある
https://tech.nikkeibp.co.jp/it/article/COLUMN/20060227/230918/
連続していない離れた重複行も削除したければ、sortコマンドコマンドで予めソートする必要がある。その代わり順番は保存されない。
https://hydrocul.github.io/wiki/commands/uniq.html
Linuxコマンド集 【 uniq 】 ソート済みのファイルから重複した行を削除する
ファイルで重複している行を削除する。ただし，ファイルはソートしてある必要がある
https://tech.nikkeibp.co.jp/it/article/COLUMN/20060227/230918/
連続していない離れた重複行も削除したければ、sortコマンドコマンドで予めソートする必要がある。その代わり順番は保存されない。
https://hydrocul.github.io/wiki/commands/uniq.html
873デフォルトの名無しさん
2019/01/21(月) 08:10:55.04ID:rd0KMO5T 要するにAの末尾とBの先頭で一致するとこだけを削除したいってこと？
874デフォルトの名無しさん
2019/01/21(月) 08:19:59.40ID:evkqklOK ２つあって。
一つは連結した単一ファイルで、後方にある重複行を取り除く。
もう一つはBに存在する行を取り除いたAの重複行を取り除く。
それぞれuniq拡張(A+B) 、uniq拡張(A-B)のような。
一つは連結した単一ファイルで、後方にある重複行を取り除く。
もう一つはBに存在する行を取り除いたAの重複行を取り除く。
それぞれuniq拡張(A+B) 、uniq拡張(A-B)のような。
875デフォルトの名無しさん
2019/01/21(月) 09:47:36.96ID:evkqklOK スクリプトやめてC++でやってみたら
ロードと書き込みの速度とほぼ同程度でできるようだ。
ロードと書き込みの速度とほぼ同程度でできるようだ。
876デフォルトの名無しさん
2019/01/21(月) 11:56:42.83ID:ub5sAEWO877デフォルトの名無しさん
2019/01/21(月) 13:07:07.09ID:jV3tC4jb JってUnicode使えないの？
878デフォルトの名無しさん
2019/01/21(月) 13:14:23.06ID:ub5sAEWO 使えるんだけど私の方が勉強不足で。
879デフォルトの名無しさん
2019/01/21(月) 14:03:05.80ID:chW+Guj1880デフォルトの名無しさん
2019/01/21(月) 14:14:22.79ID:P73TaUU+881デフォルトの名無しさん
2019/01/21(月) 18:14:39.49ID:chW+Guj1 そういうコマンドを別途作るか、全部作っちゃうかかな。
882デフォルトの名無しさん
2019/01/21(月) 21:03:38.83ID:mEBdwP2z Ruby なら、ハッシュで重複行を排除できる。
ARGF は、a.txt b.txt (ARGV)を連結した、仮想ファイル
ruby script.rb a.txt b.txt
以下は、script.rb の内容
hash = { }
ARGF.each_line { |line| hash[ line ] = true } # true には、特に意味がない
puts hash.keys
-- a.txt
あ
a
あ
b
-- b.txt
x
あ
a
ん
-- 出力
あ
a
b
x
ん
ARGF は、a.txt b.txt (ARGV)を連結した、仮想ファイル
ruby script.rb a.txt b.txt
以下は、script.rb の内容
hash = { }
ARGF.each_line { |line| hash[ line ] = true } # true には、特に意味がない
puts hash.keys
-- a.txt
あ
a
あ
b
-- b.txt
x
あ
a
ん
-- 出力
あ
a
b
x
ん
883デフォルトの名無しさん
2019/01/21(月) 21:49:42.62ID:QH90tNLy 速度出るのできた。CRCと文字列長のハッシュしかみてなく重複らしいのはduplicate.txtへ。
標準出力
deldup.exe fileA fileB ・・・ はマージして重複削除
deldup.exe /D fileA fileB ・・・ はA -B -・・・の重複削除
https://ideone.com/ABJNAy
標準出力
deldup.exe fileA fileB ・・・ はマージして重複削除
deldup.exe /D fileA fileB ・・・ はA -B -・・・の重複削除
https://ideone.com/ABJNAy
884デフォルトの名無しさん
2019/01/21(月) 22:56:33.96ID:uToUSKRf885デフォルトの名無しさん
2019/01/21(月) 23:04:52.30ID:PFiT+1XJ >>225
Javaはunsignedの概念がない
Javaはunsignedの概念がない
886デフォルトの名無しさん
2019/01/22(火) 02:53:38.24ID:t1xtxA/a >>874
後方にある重複業削除なら awk で連想配列(要するにハッシュ)使ってこんな風にすればできるな。
awk '{if(!n[$0]){n[$0]=1;print}}' fileA fileB
ただし全行をメモリ上に置くことになるのでファイルがでかいとまともに動かない環境があるかも。
超大きいファイルの場合は行ごとに MD5 や SHA1 等のハッシュ値計算してそれだけ保管しておいて比較した方が良いかもね。
後方にある重複業削除なら awk で連想配列(要するにハッシュ)使ってこんな風にすればできるな。
awk '{if(!n[$0]){n[$0]=1;print}}' fileA fileB
ただし全行をメモリ上に置くことになるのでファイルがでかいとまともに動かない環境があるかも。
超大きいファイルの場合は行ごとに MD5 や SHA1 等のハッシュ値計算してそれだけ保管しておいて比較した方が良いかもね。
887デフォルトの名無しさん
2019/01/22(火) 10:22:28.48ID:f5q/almD888デフォルトの名無しさん
2019/01/22(火) 11:22:34.61ID:ez/DcBYq 普通に行ごとにソートして重複を除去すればいいだけやん
889デフォルトの名無しさん
2019/01/22(火) 12:39:35.18ID:bOf9tfZi >>860 javascript
[...function*(){for(var i=0;i<64;i++)yield (i&7)==7?'\n':'■□'[i&8?i%2:+!(i%2)]}()].join``
[...function*(){for(var i=0;i<64;i++)yield (i&7)==7?'\n':'■□'[i&8?i%2:+!(i%2)]}()].join``
890デフォルトの名無しさん
2019/01/22(火) 12:48:37.38ID:J1mDHp9Y >>888
順序変えなくないんだって。
順序変えなくないんだって。
891デフォルトの名無しさん
2019/01/22(火) 18:32:37.01ID:f5q/almD892デフォルトの名無しさん
2019/01/22(火) 18:48:04.82ID:bOf9tfZi >>876
J分からない人向け解説ｷﾎﾞﾝﾇ
J分からない人向け解説ｷﾎﾞﾝﾇ
893デフォルトの名無しさん
2019/01/22(火) 22:15:16.89ID:4TOwjU0o >>860 javascript
['□■', '■□'].map(s => s.repeat(4) + '\n').join``.repeat(4)
['□■', '■□'].map(s => s.repeat(4) + '\n').join``.repeat(4)
894デフォルトの名無しさん
2019/01/24(木) 21:04:14.42ID:HE3o+0uB >>860 Lua
print (((("_#"):rep(36)):gsub("(........).","%1\n")))
print (((("_#"):rep(36)):gsub("(........).","%1\n")))
895デフォルトの名無しさん
2019/01/24(木) 22:20:43.56ID:HLNzgCZV896デフォルトの名無しさん
2019/01/25(金) 20:09:30.47ID:s1700d1K お題
n個からr個選ぶ組み合わせの個数を求める
n個からr個選ぶ組み合わせの個数を求める
897デフォルトの名無しさん
2019/01/25(金) 22:06:56.43ID:7NAKvkXa 数学の問題が叩かれるのはここのアホどもには難しいからなんだ！
決してスレ違いだからじゃないんだ！
だから高校１年の教科書の定義引き写すだけの簡単な問題なら叩かれないんだ！
決してスレ違いだからじゃないんだ！
だから高校１年の教科書の定義引き写すだけの簡単な問題なら叩かれないんだ！
898デフォルトの名無しさん
2019/01/25(金) 22:30:26.19ID:oIz/D2lY 教科書捨てたから定義ググりました。
const p = (n, r) => (n < 2 || r < 1) ? 1 : n * p(n - 1, r - 1);
const c = (n, r) => p(n, r) / p(r);
c(1200, 100);
//=> 1.2734481790871909e+148
chromeでBigInt実装されてるのでせっかくだからと思ってpを
const p = (n, r) => (n < 2n || r < 1n) ? 1n : n * p(n - 1n, r - 1n);
に改良しようとしたらエラーでる…
なんでか分かる方いたら教えてください。
const p = (n, r) => (n < 2 || r < 1) ? 1 : n * p(n - 1, r - 1);
const c = (n, r) => p(n, r) / p(r);
c(1200, 100);
//=> 1.2734481790871909e+148
chromeでBigInt実装されてるのでせっかくだからと思ってpを
const p = (n, r) => (n < 2n || r < 1n) ? 1n : n * p(n - 1n, r - 1n);
に改良しようとしたらエラーでる…
なんでか分かる方いたら教えてください。
899デフォルトの名無しさん
2019/01/26(土) 03:39:53.55ID:mo79YSSI900デフォルトの名無しさん
2019/01/26(土) 03:52:04.18ID:NFcmjJe3 >>896
効率はともかく、関数プログラミングって本でこれ見た時は感動したな。(言語は数学とSMLを合わせた仮想言語だったが)
Haskell
c n 0 = 1
c n m |n == m = 1
c n m = c (n - 1) m + c (n - 1) (m - 1)
実行結果
5 `c` 3
>10
効率はともかく、関数プログラミングって本でこれ見た時は感動したな。(言語は数学とSMLを合わせた仮想言語だったが)
Haskell
c n 0 = 1
c n m |n == m = 1
c n m = c (n - 1) m + c (n - 1) (m - 1)
実行結果
5 `c` 3
>10
901デフォルトの名無しさん
2019/01/26(土) 04:12:24.35ID:NFcmjJe3 高校の教科書版
Haskell
c' n r = product [1..n] `div` (product [1..(n - r)] * product [1..r])
解説
n C r
= n P r / r!
= n! / ((n - r) ! * r!) (n P r = n ! / (n - r)!に分解)
Haskell
c' n r = product [1..n] `div` (product [1..(n - r)] * product [1..r])
解説
n C r
= n P r / r!
= n! / ((n - r) ! * r!) (n P r = n ! / (n - r)!に分解)
902デフォルトの名無しさん
2019/01/26(土) 04:32:41.56ID:Ve68vOks903デフォルトの名無しさん
2019/01/26(土) 05:11:41.67ID:iYrqGgfh >>896 C++
inline uint64_t gcd(uint64_t a, uint64_t b) {
uint64_t r;
while ((r = a % b) != 0) {
a = b; b = r;
}
return b;
}
uint64_t binomial(uint64_t n, uint64_t m) {
if (n < m)
return 0;
m = (m > n / 2) ? n - m : m;
uint64_t result = 1;
for (uint64_t i = 1; i <= m; i++, n--) {
uint64_t d = gcd(result, i);
result /= d;
result *= n / (i / d);
}
return result;
}
inline uint64_t gcd(uint64_t a, uint64_t b) {
uint64_t r;
while ((r = a % b) != 0) {
a = b; b = r;
}
return b;
}
uint64_t binomial(uint64_t n, uint64_t m) {
if (n < m)
return 0;
m = (m > n / 2) ? n - m : m;
uint64_t result = 1;
for (uint64_t i = 1; i <= m; i++, n--) {
uint64_t d = gcd(result, i);
result /= d;
result *= n / (i / d);
}
return result;
}
904デフォルトの名無しさん
2019/01/26(土) 10:34:54.19ID:ls0y1m5K >>896 Lua
function cc(n,r)
local a = 1
for i = 1, r do
a=a*(n-i+1)/i
end
return a
end
print(cc(20,10))
184756.0
function cc(n,r)
local a = 1
for i = 1, r do
a=a*(n-i+1)/i
end
return a
end
print(cc(20,10))
184756.0
905デフォルトの名無しさん
2019/01/26(土) 11:22:21.12ID:tq46h9Ux お題
複数の線分が平面上で重なりがあるかないかしらべる。
複数の線分が平面上で重なりがあるかないかしらべる。
906デフォルトの名無しさん
2019/01/26(土) 12:02:35.05ID:Owe/QLUY907デフォルトの名無しさん
2019/01/26(土) 13:54:20.56ID:+oP10x+/908デフォルトの名無しさん
2019/01/26(土) 14:10:31.09ID:t2YAFdPa 人狼AI と 人狼ゲーム
909デフォルトの名無しさん
2019/01/26(土) 14:39:24.25ID:YRte2Dpq >>860 Perl5
print ((qw{□■}x4, "\n", qw{■□}x4, "\n")x4);
実行結果
$ perl 12_860.pl
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
print ((qw{□■}x4, "\n", qw{■□}x4, "\n")x4);
実行結果
$ perl 12_860.pl
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
910デフォルトの名無しさん
2019/01/26(土) 15:04:32.49ID:vn81VQ6e >>860
Pharo Smalltalk
String cr join: ((1 to: 4) collect: [:i | {'□■' repeat: 4 . '■□' repeat: 4} ]) flattened
実行結果
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
Pharo Smalltalk
String cr join: ((1 to: 4) collect: [:i | {'□■' repeat: 4 . '■□' repeat: 4} ]) flattened
実行結果
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
911デフォルトの名無しさん
2019/01/26(土) 17:16:36.10ID:5cGQ6lSj お題: マークダウン記法の見出しをHTMLに変換しなさい
912デフォルトの名無しさん
2019/01/26(土) 18:50:28.91ID:OZN9QunV >>860
rfo-basic
For i=1 To 44
m$=m$+Chr$((9622+Mod(i,2))*(Mod(i,9)<>0)+10)
Next
Print m$
End
プロは奇をてらわない。
ｂａｉ 砂坊主
rfo-basic
For i=1 To 44
m$=m$+Chr$((9622+Mod(i,2))*(Mod(i,9)<>0)+10)
Next
Print m$
End
プロは奇をてらわない。
ｂａｉ 砂坊主
913デフォルトの名無しさん
2019/01/26(土) 21:39:22.15ID:Ve68vOks byでは？
914デフォルトの名無しさん
2019/01/26(土) 21:56:29.11ID:lXnCadeF レス古事記に構うなよ
915デフォルトの名無しさん
2019/01/27(日) 00:46:03.01ID:EZ97VlcS >>860
@Mathematica
セルオートマトン（ルール32）を使って、、
CellularAutomaton[32, {0, 1, 0, 1, 0, 1, 0, 1}, 8] //
ArrayPlot[#, Mesh -> True] &
@Mathematica
セルオートマトン（ルール32）を使って、、
CellularAutomaton[32, {0, 1, 0, 1, 0, 1, 0, 1}, 8] //
ArrayPlot[#, Mesh -> True] &
916デフォルトの名無しさん
2019/01/27(日) 01:01:04.00ID:u288xi28917デフォルトの名無しさん
2019/01/27(日) 04:52:31.63ID:rwuNPA7J >>860 C
for (int r = 0; r < 8; r++) {
for (int c = 0; c < 8; c++) {
printf((r + c) % 2 ? "■" : "□");
}
printf("\n");
}
for (int r = 0; r < 8; r++) {
for (int c = 0; c < 8; c++) {
printf((r + c) % 2 ? "■" : "□");
}
printf("\n");
}
918デフォルトの名無しさん
2019/01/27(日) 06:36:29.52ID:rwuNPA7J >>905 C
double abac = (bx - ax) * (cy - ay) - (by - ay) * (cx - ax);
double abad = (bx - ax) * (dy - ay) - (by - ay) * (dx - ax);
double cdca = (dx - cx) * (ay - cy) - (dy - cy) * (ax - cx);
double cdcb = (dx - cx) * (by - cy) - (dy - cy) * (bx - cx);
return (abac * abad < 0 && cdca * cdcb < 0);
double abac = (bx - ax) * (cy - ay) - (by - ay) * (cx - ax);
double abad = (bx - ax) * (dy - ay) - (by - ay) * (dx - ax);
double cdca = (dx - cx) * (ay - cy) - (dy - cy) * (ax - cx);
double cdcb = (dx - cx) * (by - cy) - (dy - cy) * (bx - cx);
return (abac * abad < 0 && cdca * cdcb < 0);
919デフォルトの名無しさん
2019/01/27(日) 06:44:59.11ID:mVMeZ4rl >>918
直線じゃなくて線分だぞ
直線じゃなくて線分だぞ
920デフォルトの名無しさん
2019/01/27(日) 06:46:02.03ID:z0hosMYm >>911 javascript(es2018 regexネームドグループのため)
const atxMatcher = line => line.trim().match(/^(?<directive>\S*)[ \t]+(?<contents>.*)/)
const atxRules = [{
name: 'HnTag',
regex: /^#{1,6}/,
process: (hnDirective, hnContents) => {
const hnEl = document.createElement('h'+ hnDirective.length)
hnEl.textContent = hnContents
return hnEl.outerHTML
}
}]
const makeHtml = line => {
const atxMatch = atxMatcher(line)
if (!atxMatch) return line
const {directive, contents} = atxMatch.groups
let tag
for (const rule of atxRules) {
const directiveMatch = directive.match(rule.regex)
if (directiveMatch) {
tag = rule.process(directiveMatch[0], contents)
break
}
}
return tag ? tag : line
}
`# aaa
##\tbbb
###### \t ccc
################ ddd
`.trim().split`\n`.map(makeHtml).join``
結果：
<h1>aaa</h1><h2>bbb</h2><h6>ccc</h6><h6>ddd</h6>
const atxMatcher = line => line.trim().match(/^(?<directive>\S*)[ \t]+(?<contents>.*)/)
const atxRules = [{
name: 'HnTag',
regex: /^#{1,6}/,
process: (hnDirective, hnContents) => {
const hnEl = document.createElement('h'+ hnDirective.length)
hnEl.textContent = hnContents
return hnEl.outerHTML
}
}]
const makeHtml = line => {
const atxMatch = atxMatcher(line)
if (!atxMatch) return line
const {directive, contents} = atxMatch.groups
let tag
for (const rule of atxRules) {
const directiveMatch = directive.match(rule.regex)
if (directiveMatch) {
tag = rule.process(directiveMatch[0], contents)
break
}
}
return tag ? tag : line
}
`# aaa
##\tbbb
###### \t ccc
################ ddd
`.trim().split`\n`.map(makeHtml).join``
結果：
<h1>aaa</h1><h2>bbb</h2><h6>ccc</h6><h6>ddd</h6>
921デフォルトの名無しさん
2019/01/27(日) 08:20:11.42ID:rwuNPA7J >>919
線分ですよ
線分ですよ
922デフォルトの名無しさん
2019/01/27(日) 11:17:31.03ID:/cT7Kgd3 >>918
> return (abac * abad < 0 && cdca * cdcb < 0);
return (abac * abad <= 0 && cdca * cdcb <= 0);
端点も含まんとあかんのとちゃう？
> return (abac * abad < 0 && cdca * cdcb < 0);
return (abac * abad <= 0 && cdca * cdcb <= 0);
端点も含まんとあかんのとちゃう？
923デフォルトの名無しさん
2019/01/27(日) 12:22:09.16ID:rwuNPA7J 重なりの定義によるかも
接しているのは重なりなしとしました
接しているのは重なりなしとしました
924デフォルトの名無しさん
2019/01/27(日) 12:42:45.94ID:rwuNPA7J と思ったけど=ありのが正解でした
925デフォルトの名無しさん
2019/01/27(日) 13:15:46.24ID:4tSdie01 お題
半径が整数の3つの円ある。
どの円も他の2つの円に外接している。
3つの円の中心点を結んでできる
三角形がピタゴラスの三角形に
なる場合の3つの円の半径を
100未満についてすべて求める。
例えば3つの円の半径が1,2,3の時
辺の長さが3,4,5のピタゴラスの
三角形ができる。
半径が整数の3つの円ある。
どの円も他の2つの円に外接している。
3つの円の中心点を結んでできる
三角形がピタゴラスの三角形に
なる場合の3つの円の半径を
100未満についてすべて求める。
例えば3つの円の半径が1,2,3の時
辺の長さが3,4,5のピタゴラスの
三角形ができる。
926デフォルトの名無しさん
2019/01/27(日) 13:54:53.07ID:wgzaqL4l927デフォルトの名無しさん
2019/01/27(日) 14:02:09.42ID:/cT7Kgd3928デフォルトの名無しさん
2019/01/27(日) 14:08:22.33ID:u288xi28929デフォルトの名無しさん
2019/01/27(日) 14:21:11.01ID:/cT7Kgd3 >>927
しまった…半径100未満なのに100まで調べてるｗ
> r(20, 30, 100) = p(50, 120, 130)
が余分やｗｗ
>>925 Java 修正しました
https://ideone.com/BkN6Ls
しまった…半径100未満なのに100まで調べてるｗ
> r(20, 30, 100) = p(50, 120, 130)
が余分やｗｗ
>>925 Java 修正しました
https://ideone.com/BkN6Ls
930デフォルトの名無しさん
2019/01/27(日) 17:44:27.67ID:rwuNPA7J >>922
=の追加で要件をクリアしたと思ってましたが、対象が線分から直線に変わってました
端点については、以下のコードの呼び出しが4つ必要になります
int abap = (b.x - a.x) * (p.y - a.y) - (b.y - a.y) * (p.x - a.x);
if (abap == 0 &&
(p.x >= min(a.x, b.x) && p.x <= max(a.x, b.x)) &&
(p.y >= min(a.y, b.y) && p.y <= max(a.y, b.y))) {
return 1;
}
return 0;
=の追加で要件をクリアしたと思ってましたが、対象が線分から直線に変わってました
端点については、以下のコードの呼び出しが4つ必要になります
int abap = (b.x - a.x) * (p.y - a.y) - (b.y - a.y) * (p.x - a.x);
if (abap == 0 &&
(p.x >= min(a.x, b.x) && p.x <= max(a.x, b.x)) &&
(p.y >= min(a.y, b.y) && p.y <= max(a.y, b.y))) {
return 1;
}
return 0;
931デフォルトの名無しさん
2019/01/27(日) 18:36:00.36ID:rE8NR22a >>925 Ruby 2.5.0
def kotae(max)
(1..max).each_with_object([]) do |ra, ary|
x, y = max - ra, 2 * ra**2
1.step(Integer.sqrt(x), 2) do |n|
next if x * n**2 < y
rx = ra + n**2
m, r = (ra + rx).divmod(n)
ry = ra * m / n
next if m.even? || r != 0 || m.gcd(n) != 1
pcpy = [ra, rx, ry].sort
ary.push(*(1..max / pcpy[2]).map{|i| pcpy.map{|e| e * i}})
end
end
end
pys = kotae(100 - 1)
p pys.size # => 82
p pys # => [[1, 2, 3],
[2, 3, 10],
[2, 4, 6],
# 中略 #
[33, 66, 99],
[35, 84, 85],
[36, 84, 90]]
def kotae(max)
(1..max).each_with_object([]) do |ra, ary|
x, y = max - ra, 2 * ra**2
1.step(Integer.sqrt(x), 2) do |n|
next if x * n**2 < y
rx = ra + n**2
m, r = (ra + rx).divmod(n)
ry = ra * m / n
next if m.even? || r != 0 || m.gcd(n) != 1
pcpy = [ra, rx, ry].sort
ary.push(*(1..max / pcpy[2]).map{|i| pcpy.map{|e| e * i}})
end
end
end
pys = kotae(100 - 1)
p pys.size # => 82
p pys # => [[1, 2, 3],
[2, 3, 10],
[2, 4, 6],
# 中略 #
[33, 66, 99],
[35, 84, 85],
[36, 84, 90]]
932デフォルトの名無しさん
2019/01/27(日) 18:48:49.63ID:z0hosMYm933デフォルトの名無しさん
2019/01/27(日) 21:02:27.16ID:u288xi28 >>905
python3
ax+by=c (d<x<e)
px+qy=r (s<x<t)
とする
import numpy as np
co = np.array([[a,b],[p,q]])
in = np.array([c,r])
ans = np.linalg.solve(co,in)
print(d<ans[0]<e and s<ans[0]<t)
本当は直線が平行なときも調べないといけないが略
python3
ax+by=c (d<x<e)
px+qy=r (s<x<t)
とする
import numpy as np
co = np.array([[a,b],[p,q]])
in = np.array([c,r])
ans = np.linalg.solve(co,in)
print(d<ans[0]<e and s<ans[0]<t)
本当は直線が平行なときも調べないといけないが略
934デフォルトの名無しさん
2019/01/28(月) 02:42:20.01ID:Ht+H3Zdt こちらで検証したパターンです
line ab = {{0, 0}, {100, 0}};
line cd1 = {{0, 0}, {100, 0}}; // 重なりあり
line cd2 = {{1, 0}, {100, 0}}; // 重なりあり
line cd3 = {{0, 0}, {99, 0}}; // 重なりあり
line cd4 = {{-1, 0}, {100, 0}}; // 重なりあり
line cd5 = {{0, 0}, {101, 0}}; // 重なりあり
line cd6 = {{-1, 0}, {99, 0}}; // 重なりあり
line cd7 = {{1, 0}, {101, 0}}; // 重なりあり
line cd8 = {{-100, 0}, {0, 0}}; // 重なりあり
line cd9 = {{100, 0}, {200, 0}}; // 重なりあり
line cd10 = {{-100, 0}, {-1, 0}}; // 重なりなし
line cd11 = {{101, 0}, {200, 0}}; // 重なりなし
line cd12 = {{0, -100}, {0, -1}}; // 重なりなし
line cd13 = {{0, -100}, {0, 0}}; // 重なりあり
line cd14 = {{0, -100}, {0, 1}}; // 重なりあり
line ab = {{0, 0}, {100, 0}};
line cd1 = {{0, 0}, {100, 0}}; // 重なりあり
line cd2 = {{1, 0}, {100, 0}}; // 重なりあり
line cd3 = {{0, 0}, {99, 0}}; // 重なりあり
line cd4 = {{-1, 0}, {100, 0}}; // 重なりあり
line cd5 = {{0, 0}, {101, 0}}; // 重なりあり
line cd6 = {{-1, 0}, {99, 0}}; // 重なりあり
line cd7 = {{1, 0}, {101, 0}}; // 重なりあり
line cd8 = {{-100, 0}, {0, 0}}; // 重なりあり
line cd9 = {{100, 0}, {200, 0}}; // 重なりあり
line cd10 = {{-100, 0}, {-1, 0}}; // 重なりなし
line cd11 = {{101, 0}, {200, 0}}; // 重なりなし
line cd12 = {{0, -100}, {0, -1}}; // 重なりなし
line cd13 = {{0, -100}, {0, 0}}; // 重なりあり
line cd14 = {{0, -100}, {0, 1}}; // 重なりあり
935デフォルトの名無しさん
2019/01/28(月) 19:06:17.59ID:ZiBPaW1B936デフォルトの名無しさん
2019/01/28(月) 20:30:57.09ID:BBM43iQf >>896
>>901の改良版。
product [(n - (r - 1))..n]はそのままn P rにもなる。
p n r = product [(n - (r - 1))..n]
Haskell
c'' n r = product [(n - (r - 1))..n] `div` product [1..r]
Python
def fact(n):
a = 1
i = 1
while i <= n:
a *= i
i += 1
return a
def p(n,r):
a = 1
i = n - (r - 1)
while i <= n:
a *= i
i += 1
return a
def c(n,r):
return (p(n,r) // fact(r))
>>901の改良版。
product [(n - (r - 1))..n]はそのままn P rにもなる。
p n r = product [(n - (r - 1))..n]
Haskell
c'' n r = product [(n - (r - 1))..n] `div` product [1..r]
Python
def fact(n):
a = 1
i = 1
while i <= n:
a *= i
i += 1
return a
def p(n,r):
a = 1
i = n - (r - 1)
while i <= n:
a *= i
i += 1
return a
def c(n,r):
return (p(n,r) // fact(r))
937デフォルトの名無しさん
2019/01/30(水) 16:02:43.18ID:WqNbA033 お題
古のスタートレックゲームを作る
古のスタートレックゲームを作る
938デフォルトの名無しさん
2019/01/30(水) 16:19:17.11ID:gOIe9eSU >>937
そのゲームがどんなものだったのか詳細が書いてある所はある？
昔々 Apple ][ でテキストのやつを人がやってる所は見たことあるのだが細かいルールがどんなんだったか忘れた。
確かワープして移動してってクリンゴンが撃ってくるとかクリンゴンに向けて撃つだとかそんなのを繰り返すんだよな？
そのゲームがどんなものだったのか詳細が書いてある所はある？
昔々 Apple ][ でテキストのやつを人がやってる所は見たことあるのだが細かいルールがどんなんだったか忘れた。
確かワープして移動してってクリンゴンが撃ってくるとかクリンゴンに向けて撃つだとかそんなのを繰り返すんだよな？
939デフォルトの名無しさん
2019/01/30(水) 19:13:41.13ID:32wJF+eS940デフォルトの名無しさん
2019/01/30(水) 21:23:13.66ID:zHXVmep5レス数が900を超えています。1000を超えると表示できなくなるよ。
ニュース
- 中国側が首相答弁の撤回要求、日本側拒否★4 [夜のけいちゃん★]
- 中国側が首相答弁の撤回要求、日本側拒否★3 [夜のけいちゃん★]
- 中国の局長は「両手をポケット」で対峙 宣伝戦で国民に示す ★4 [蚤の市★]
- 被爆者は「怒りが腹の底から湧いてくる」高市首相“非核三原則見直し報道”に被爆地で懸念や憤りの声《長崎》 [１ゲットロボ★]
- 解体ごみ約2.3トンを山に不法投棄か トルコ国籍解体工を逮捕 埼玉 [どどん★]
- 債券・円・株「トリプル安」に…長期金利1.755%まで上昇、円は対ユーロで史上最安値 ★2 [蚤の市★]
- ネトウヨたち「「「戦争に反対する奴はスパイ！」」」 こんな状況でスパイ防止法が成立させられようとしてるとかマジでヤバすぎるだろ… [314039747]
- 【悲報】高市「稼がなきゃだめよ！稼ぐのよ！あとはよろしく」農水大臣「...(これが総理の農林水産業への思い気持ち)」 [517459952]
- みっちゃん「南鳥島にレイアース資源が眠っているのは皆さんご存知のはずです。そのレイアースを中国が狙ってます」高市 [931948549]
- 精神する時の🏡
- ネトウヨ「中国のものは何もいらない！」 中国人「だったら漢字を使わないでください」 [314039747]
- 【速報】春節の飛行機も欠航ラッシュ 高市早苗終了か [695089791]