プログラミングのお題スレ Part12
レス数が900を超えています。1000を超えると表示できなくなるよ。
集合論的なのをリスト使うのと配列使うのだったら違いもあるだろうけど、
そういう問題出ないね。
A∪B := {x | x ∈ A ∨ x ∈ B}
はHaskellだと仮にx が{1,2,3,4,5,6,7,8,9,10}の要素で、Aが{3,4,5,6}、Bが{5,6,7,8}なら
setX = [1..10]
setA = [3..6]
setB = [5..8]
[x | x <- setX, x `elem` setA || x `elem` setB]
(Haskellは変数名の初めに大文字使えない)
これがCで配列縛りだとreallocでも使いながらなんじゃろか。。。 >>816
＞純粋に数学だけで解けて解法の式を作ったら、あとはコードにベタ書きしてただ解を出力するだけ、
それは甘い、大甘だと私の経験は私の心に語ってくれています >>817
そういう問題はある種の順序関係を仮定してインプリメントしたいところです >>817 Smalltalk
| X A B |
X := 1 to: 10.
A := 3 to: 6.
B := 5 to: 8.
X select: [:x | (A includes: x) or: [B includes: x]]
https://ideone.com/XSlcVz >>817 Squeak/Pharo Smalltalk
| X A B |
X := 1 to: 10.
A := 3 to: 6.
B := 5 to: 8.
X intersection: (A union: B) "=> #(3 4 5 6 7 8) " >>817 Ruby
x, a, b = [*1..10], [*3..6], [*5..8]
p x & (a | b)
# => [3, 4, 5, 6, 7, 8] お題：標準入力から読み取った行を出力せよ
ただし42を読んだ場合は出力せずに終了する
https://ideone.com/vdWddB >>824
ruby -pe'~/^42$/&&exit' >>824 Common Lisp
https://ideone.com/QQzEQh
read-lineの第三引数にnil以外を使ったの初めてだ >>824 PowerShell
while (($var = (Read-Host)) -ne 42) { $var } [お題] 来年と素数
今年も残りわずか、来年は2019年で平成31年。
1)"2019"の省略形の"19"について。
素数の和で19を作る、すべての素数配列を列挙せよ(できれば辞書順で)。
同じ素数を何個使ってもよいが、同じ素数同士は区別しない。
・例えば対象が"11"だと以下の6つ
{2, 2, 2, 2, 3}
{2, 2, 2, 5}
{2, 2, 7}
{2, 3, 3, 3}
{3, 3, 5}
{11}
以下 2)3)4)は種類計のみ答える(明細は多いので略)。
2)来年の初まりは平成31年で、"31"について。
素数の和で31を作る、その種類はいくつか。条件は1)と同様。
3)素数の和で2019を作る、その種類はいくつか。条件は1)と同様。
4)2019と31を続けた数 201931(=2019*100+31)について。
素数の和で201931を作る、その種類はいくつか。
但し、使用していい素数は31以下の素数かつ、
同じ素数は最大2019個までしか使えない。同じ素数は区別しない。
※ 3)4)は64bit整数を超えるので、下10桁だけの回答も可。 >>832
2)の31からして自分のと違う。
自分のでは111だった。
javaのやついじって、112個の明細を出してみたら、[2,2,27] があった。
27は素数じゃないよね。いじり方が悪い？ >>830 Ruby 1)は省略
require 'prime'
def fuge(n, cand = Prime.to_a(n), h = {}, succ = 0)
c0 = cand[0]
return h[[n, c0]] if h[[n, c0]]
return 0 if n == 0 || !c0 || n < c0
return 1 if n == c0
x = succ == 2019 ? 0 : fuge(n - c0, cand, h, succ + 1)
h[[n, c0]] = fuge(n, cand[1..-1], h) + x
end
p fuge(19) # => 23
p fuge(31) # => 111
p fuge(2019) # => 576202207044176168646563
p fuge(201931, Prime.to_a(31)) # => 4021686887140718864271667825968903 >>833
まじだ・・・修正した
犯人は118行目だ！orz >>832 836
当方の回答と一致しました。
>>835
4) 201931 だけ異なる(自分のがあっているとは限らないが……)。
※再帰の動きがよくわからない >>830 python https://ideone.com/OFR7bn
間が空いたので、出題者コメント
1)問題文説明用に書いてみて、問題にもできると思った。
2)3)は"オイラー 31 DP"でググってください。
違いはコインの額面が素数に変わったくらいと、おおきさ。
なかには一つ一つ数えて、本問の2)しか溶けない回答があるので見分けて。
4)については、ソース上三種類書いて考察しています。
("201931"という変な数値は、3重ループ解を落とすのが目的だった) お題：
真理値表から２入力NANDで最小ゲート数回路を作れ。実用上最も重要な問題群 遅延時間とかファンアウトとかは考慮不要ってことでいいのかな >>841
昔カルノー図がかける範囲（3入力？4入力くらいだったかな？）で簡約化ツールを作ったことがあります
当時は書き捨て上等、でやっていたのですが、今は困ってしまっています、当時のプログラム記述能力は当時は今後もずっと保存されるものと当時は考えていたのですが、それは完全な誤りでした… >>841
俺全然わかってない人なんだけど、
そのURLの一番下の、入力部分のNOTゲートを無視しない場合、
9個のNANDゲートで構成できるって書いてあるけど、
NOTゲートの部分を2個減らして7個で作るとかはあかんのん？ 半導体製造のコストがある
NANDゲートは作り易い、というか造りが簡素で単純
NOTゲートも作り易い
なので厳密には製造コストも考えないといけない >>843
ホントだ、AとCのNOTを一つずつ減らせるね
というかこれが最小になる保証もないよね >>841
カルノー図からの簡略結果が最終形ではない。
最終形は
Z=~ABC+A~C+~BC >>846
それA=0, B=0, C=0の結果から間違ってるんだが >>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
ともう一つでした。 >>848
> Z=~ABC+A~C+~B~C
それA=0, B=1, C=0の結果が違うぞ >>849
~ABC → C=0なので0
A~C → A=0なので0
~B~C → B=1なので0
結果0であってるんじゃないのん？ >>850
すまん、合ってるわ
ちょっとボケてたな >>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 ] */ エモい歌うまバーチャルユーチューバー
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://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 お題スレじゃなくて、あなたの宿題無料でやりますよになってる >>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 >>856
お題をやるかどうかは自由だし使う言語も自由なのでここは宿題向きスレではない。それに宿題用のスレは別にある。 お題
チェス盤をかく
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□ for i in range(4):
print("□■□■□■□■")
print("■□■□■□■□") console.log(`
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
`); >>860
85kg 170cmの俺がJavascriptで回答。
[85, 170]
.map(d => [...d.toString(2).padStart(8,0)]
.map(b => +b ? '□' : '■')
.join`` + '\n')
.join``
.repeat(4) >>860 Ruby
puts 72.times.map{|i| i % 9 / 8 * 10 + 15 / (i % 9 + 8) * (i & 1 ^ 9633)}.pack('U*')
# =>
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□ >>863
>>864
お前ら天才だな
普段何やってんの >>865
ヒマ人どもの公開オナニーに騙されるな。
ベンチ取ってみれば分かるけど
>>863より>>862のほうが処理速度も速く、CPU、メモリ消費も勝ってる。 前々からつくろうとしていまだ決定版ができてないのがある。
コマンド fileA fileBで、重複行を除いて連結と、
A-Bで重複行を除くやつ。入力が数百Mだときつい。 >>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コマンド集 【 uniq 】 ソート済みのファイルから重複した行を削除する
ファイルで重複している行を削除する。ただし，ファイルはソートしてある必要がある
https://tech.nikkeibp.co.jp/it/article/COLUMN/20060227/230918/
連続していない離れた重複行も削除したければ、sortコマンドコマンドで予めソートする必要がある。その代わり順番は保存されない。
https://hydrocul.github.io/wiki/commands/uniq.html 要するにAの末尾とBの先頭で一致するとこだけを削除したいってこと？ ２つあって。
一つは連結した単一ファイルで、後方にある重複行を取り除く。
もう一つはBに存在する行を取り除いたAの重複行を取り除く。
それぞれuniq拡張(A+B) 、uniq拡張(A-B)のような。 スクリプトやめてC++でやってみたら
ロードと書き込みの速度とほぼ同程度でできるようだ。 >>860 J
}:("1) 8 9 $ '_#'
_#_#_#_#
#_#_#_#_
_#_#_#_#
#_#_#_#_
_#_#_#_#
#_#_#_#_
_#_#_#_#
#_#_#_#_ >>874
A-Bの部分は
grep -x -v -f B A
でできるけど順序を保存したuniqはコマンドだけではできないのかな そういうコマンドを別途作るか、全部作っちゃうかかな。 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
ん 速度出るのできた。CRCと文字列長のハッシュしかみてなく重複らしいのはduplicate.txtへ。
標準出力
deldup.exe fileA fileB ・・・ はマージして重複削除
deldup.exe /D fileA fileB ・・・ はA -B -・・・の重複削除
https://ideone.com/ABJNAy >>225
Javaはunsignedの概念がない >>874
後方にある重複業削除なら awk で連想配列(要するにハッシュ)使ってこんな風にすればできるな。
awk '{if(!n[$0]){n[$0]=1;print}}' fileA fileB
ただし全行をメモリ上に置くことになるのでファイルがでかいとまともに動かない環境があるかも。
超大きいファイルの場合は行ごとに MD5 や SHA1 等のハッシュ値計算してそれだけ保管しておいて比較した方が良いかもね。 >>860 Lua
for i=1,72 do
if i%9==0 then
print("")
else
io.write(({"■","□"})[i%2+1])
end
end 普通に行ごとにソートして重複を除去すればいいだけやん >>860 javascript
[...function*(){for(var i=0;i<64;i++)yield (i&7)==7?'\n':'■□'[i&8?i%2:+!(i%2)]}()].join`` >>860 Ruby
puts (["□■"*4,"■□"*4]*4) >>860 javascript
['□■', '■□'].map(s => s.repeat(4) + '\n').join``.repeat(4) >>860 Lua
print (((("_#"):rep(36)):gsub("(........).","%1\n"))) >>860 javascript
Array(72).fill().map((v, i)=>i%9?'■□'[i%2]:'\n').join``
>>889はボード横幅が7になってる間違いでしたごめんなさい。 数学の問題が叩かれるのはここのアホどもには難しいからなんだ！
決してスレ違いだからじゃないんだ！
だから高校１年の教科書の定義引き写すだけの簡単な問題なら叩かれないんだ！ 教科書捨てたから定義ググりました。
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);
に改良しようとしたらエラーでる…
なんでか分かる方いたら教えてください。 >>896 Ruby
c = -> (n, k, m = []) {
m[n] = [1] unless m[n]
k = n - k if n < k * 2
return m[n][k] if m[n][k]
m[n][k] = c[n - 1, k - 1, m] + c[n - 1, k, m]
}
p c[5, 2] # => 10
p c[100, 50] # => 100891344545564193334812497256
>>898
undefined - 1n でエラーが起きているので
const c = (n, r) => p(n, r) / p(r, r); >>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 高校の教科書版
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)!に分解) >>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;
} >>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 お題
複数の線分が平面上で重なりがあるかないかしらべる。 >>860
@Mathematica
Table[If[EvenQ[i + j], 0, 1], {i, 8}, {j, 8}] //
ArrayPlot[#, Mesh -> True] & >>905
適当に連立方程式とくだけじゃなかったです？
数学出来ないんですけど。 >>860 Perl5
print ((qw{□■}x4, "\n", qw{■□}x4, "\n")x4);
実行結果
$ perl 12_860.pl
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□ >>860
Pharo Smalltalk
String cr join: ((1 to: 4) collect: [:i | {'□■' repeat: 4 . '■□' repeat: 4} ]) flattened
実行結果
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□ お題: マークダウン記法の見出しをHTMLに変換しなさい >>860
rfo-basic
For i=1 To 44
m$=m$+Chr$((9622+Mod(i,2))*(Mod(i,9)<>0)+10)
Next
Print m$
End
プロは奇をてらわない。
ｂａｉ 砂坊主 >>860
@Mathematica
セルオートマトン（ルール32）を使って、、
CellularAutomaton[32, {0, 1, 0, 1, 0, 1, 0, 1}, 8] //
ArrayPlot[#, Mesh -> True] & >>860
python3
[print("".join("■" if (x+y) % 2 else "□" for y in range(8))) for x in range(8)] レス数が900を超えています。1000を超えると表示できなくなるよ。
