[過去ﾛｸﾞ] プログラミングのお題スレ Part20 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
674: 2022/08/14(日)01:54 ID:v+rcxIed(1) AAS
>>673
ソートされてないじゃん
675: 96 2022/08/14(日)01:59 ID:jl8HjsTF(2/2) AAS
>>666 Perl5、>>673 は sort するの忘れてた…orz
use List::Util 'shuffle';
@a = 1..37;
$" = ', ';
print "@{[sort{$a <=> $b} ((shuffle @a)[0..6])]}\n" for 1..5;
実行結果
$ perl 20_666_shuffle1-37x5.pl
5, 9, 22, 28, 30, 32, 36
1, 2, 7, 21, 23, 26, 36
6, 14, 15, 16, 19, 26, 28
省2
676: 2022/08/14(日)12:35 ID:JoIEy2rI(1/2) AAS
>>666 ocaml
外部ﾘﾝｸ:ideone.com
let seq b e =
let rec aux acc n =
if n < b then acc else aux (n :: acc) (pred n)
in aux [] e
let (<<) f g x = f (g x)
let take n =
let rec aux acc n = function [] -> acc | x :: xs ->
if n <= 0 then acc else aux (x :: acc) (pred n) xs
省8
677: 2022/08/14(日)18:02 ID:JoIEy2rI(2/2) AAS
>>666 c
外部ﾘﾝｸ:ideone.com
678(3): 2022/08/14(日)21:45 ID:b/j10zkL(1) AAS
(1) aとbからなる文字列があるときその中で部分文字列bbaが最初に完成する文字数を求める
ab -> 0
aaa -> 0
bba -> 3
bbba -> 4
babbab -> 5
bbabbaa -> 3
(2) ちょうど50文字のaとbからなる全ての並びの文字列の内
50文字目(最後)にbbaが完成するのは何通りあるか？
長さ3文字で3文字目に完成するのはbbaのひとつだけ
省1
679(2): 2022/08/14(日)22:24 ID:gf0q/4T2(1/3) AAS
>>678 Ruby
(1)
%w[ab aaa bba bbba babbab bbabbaa].each do |s|
i = s =~ /bba\K/
puts '%s -> %d' % [s, i ? i + 3 : 0]
end
# =>
ab -> 0
aaa -> 0
bba -> 3
省6
680(5): 2022/08/14(日)22:30 ID:z6QFcjeU(1) AAS
行列の掛け算を実装せよ
二次正方行列 A=((1 -2) (2 3)), B = ((-2 1)(3 -1)) について
AB, BA を求めよ
可能であれば二次正方行列以外の行列についても対応せよ
実装の細かい点については出題者は指定しないので良きに計らって結構。
＜お願い＞
行列の積において結合則成立の証明を教えてください
681: 2022/08/14(日)22:43 ID:0XTzAkvO(1) AAS
>>678 c
外部ﾘﾝｸ:ideone.com
・(1)(2)ともに自信なし（たぶんお題の意味わかってない）
682(1): 2022/08/14(日)22:49 ID:gf0q/4T2(2/3) AAS
>>680 Ruby Matrixクラス不使用
def product(a, b)
[
[a[0][0] * b[0][0] + a[0][1] * b[1][0], a[0][0] * b[0][1] + a[0][1] * b[1][1]],
[a[1][0] * b[0][0] + a[1][1] * b[1][0], a[1][0] * b[0][1] + a[1][1] * b[1][1]],
]
end
p product([[1, -2], [2, 3]], [[-2, 1], [3, -1]])
# => [[-8, 3], [5, -1]]
# 夏休みの宿題は自分でやりましょう
683(1): 2022/08/14(日)22:51 ID:7JC7m3TJ(1) AAS
>>682
＞二次正方行列以外の行列についても対応せよ
684: 2022/08/14(日)23:05 ID:gf0q/4T2(3/3) AAS
>>680 >>683
def product(a, b)
m = a.first.size
c = Array.new(a.size){[]}
a.size.times do |i|
b.first.size.times do |j|
c[j][i] = m.times.map{|k| a[k][i] * b[j][k]}.sum
end
end
c
省5
685: 2022/08/14(日)23:09 ID:ct8M+Uij(1) AAS
NxMのデータをどう定義するか だけの問題だな
毎回悩む 下は後悔してるタイプ
(defparameter *position-IO*
(loop
for input in '(7 8 9
4 5 6
1 2 3)
for pos below 9
collect (cons input pos)))
686(1): 2022/08/15(月)00:42 ID:PTEGgn5Q(1) AAS
>>679
どういう頭してたらその法則性に気づくん？？？
687: 2022/08/15(月)01:31 ID:b/MTJSvV(1) AAS
>>678
Kotlin script
(1)
listOf("ab","aaa","bba","bbba","babbab","bbabbaa").forEach { print("$it ->"); it.indexOf("bba").let { if (it >= 0) println(it + 3) else println(0) } }
実行時の出力
ab ->0
aaa ->0
bba ->3
bbba ->4
babbab ->5
省5
688(1): 2022/08/15(月)01:56 ID:RG8mAl+Q(1) AAS
(2)
出題の仕方が間違ってた
最後に唯一のbbaが現れるパターンと書くべきだった
自分の中ではこのことしか考えてなかったから
>>679さんは汲んでくれたようで、早さにも驚いたけど
689: 2022/08/15(月)09:19 ID:jWRkxbjN(1) AAS
なるほど, 再帰的に構成すればいいのか
aから始まる時: a + x[n-1]
baから始まる時: ba + x[n-2]
bbから始まる時: bb...bba
690: 2022/08/15(月)09:43 ID:90U51paY(1) AAS
>>686
そういう漸化式は普通に受験で良くでてくる
691(1): 2022/08/15(月)17:00 ID:ioAOBwsA(1) AAS
>>680
外部ﾘﾝｸ:ideone.com
外部ﾘﾝｸ:ja.wikibooks.org
692: 2022/08/15(月)17:16 ID:RVV7PTHo(1/2) AAS
>>691 c
外部ﾘﾝｸ:ideone.com
・二次元でintのみ
693(1): 2022/08/15(月)17:19 ID:RVV7PTHo(2/2) AAS
>>680
外部ﾘﾝｸ:ideone.com
・二次元でintのみ
上下前次1-新書関写板覧索設栞歴
あと 309 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.125s*