プログラミングのお題スレ Part22 (863ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞
ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡
485(20): 01/22(水)21:35 ID:JtEnwxKE(1) AAS
お題
文字列と長さを入力として受け取り
デカルト積のリストを出力してください
入力：ABC 1
出力：[A, B, C]
入力：ABC 2
出力：[AA, AB, AC, BA, BB, BC, CA, CB, CC]
省2
486(1): 01/22(水)22:43 ID:EHGf/TPZ(1/2) AAS
>>485
Rust
fn odai(文字列: &str, 長さ: usize) -> Vec<String> {
use itertools::Itertools;
(0..長さ)
.map(|_| 文字列.chars())
.multi_cartesian_product()
省8
487: 01/22(水)23:18 ID:dYX3B7ea(1) AAS
>>485 ruby
外部ﾘﾝｸ:ideone.com
f = ->(s, n) {:product.to_proc.(*[s.chars]*n).map(&:join)}
488: 01/22(水)23:57 ID:EHGf/TPZ(2/2) AAS
>>485
Rust 今回は積ライブラリを使わない自力版
fn odai(文字列: &str, 長さ: usize) -> Vec<String> {
let chars = 文字列.chars().collect::<Vec<_>>();
let mut state = vec![0; 長さ];
let mut output = Vec::new();
'Loop: loop {
省14
489: 01/23(木)18:33 ID:hcg9tgUx(1) AAS
AA省
490: 01/23(木)20:05 ID:naue5Hlh(1) AAS
>>485 ocaml
外部ﾘﾝｸ:ideone.com
>>485 octave
外部ﾘﾝｸ:ideone.com
491: 9 01/24(金)01:44 ID:p08ruAfw(1) AAS
>>485 Perl5
for $n (1..3) {
@cp = @s = qw(A B C);
while(--$n) { @cp = map{ $p = $_; map{ "$p$_" } @s } @cp }
print "@cp\n";
}
※見易くするためインデントは全角スペースに置換してあります
省5
493(1): 01/24(金)20:04 ID:kDOvSp0D(1) AAS
>>485 dart
外部ﾘﾝｸ:ideone.com
>>485 rust
外部ﾘﾝｸ:ideone.com
496: 01/25(土)21:23 ID:KM9w0vp0(1) AAS
>>485 c
外部ﾘﾝｸ:ideone.com
・バッファに取る版
>>485 c
外部ﾘﾝｸ:ideone.com
・バッファに取らない版
・表示するだけ
497: 01/26(日)14:07 ID:nBBaggrk(1) AAS
>>485
Java
外部ﾘﾝｸ:paiza.io
498: 493 01/26(日)15:22 ID:dl7YvN1C(1) AAS
>>485 dart
外部ﾘﾝｸ:ideone.com
・若干の簡略化
>>485 rust
外部ﾘﾝｸ:ideone.com
・若干の簡略化？
499: 01/27(月)00:00 ID:/Jqezixy(1) AAS
>>485 java
外部ﾘﾝｸ:ideone.com
505: 01/27(月)21:30 ID:l9HsQRRu(1) AAS
>>485 lisp
外部ﾘﾝｸ:ideone.com
>>500 lisp
外部ﾘﾝｸ:ideone.com
550: 警備員[Lv.19] 02/09(日)03:18 ID:Y8d2noVo(1/2) AAS
>>485
Kotlin
外部ﾘﾝｸ:paiza.io
553: 02/09(日)21:29 ID:do9MXosP(1/3) AAS
>>485
R
外部ﾘﾝｸ:ideone.com
557: 02/10(月)21:24 ID:KgR1Tipz(1) AAS
>>485
C# (IEnumerableとして列挙)
外部ﾘﾝｸ:ideone.com
835(1): 09/08(月)23:02 ID:4SI/cFAg(1/2) AAS
>>485 scheme (chicken 4.13)
外部ﾘﾝｸ:ideone.com
>>500 scheme (chicken 4.13)
外部ﾘﾝｸ:ideone.com
836(1): 835 09/08(月)23:33 ID:4SI/cFAg(2/2) AAS
>>485 scheme (chicken 4.13)
外部ﾘﾝｸ:ideone.com
・(product . lists)
・(product xs . rest) が >>835
839(1): 836 09/10(水)22:49 ID:NV1RL9MH(1) AAS
>>485 scheme (chicken 4.13)
外部ﾘﾝｸ:ideone.com
・デカルト積の解釈を（勝手に）変更
840(1): 839 09/10(水)23:35 ID:6JfM8ZLf(1) AAS
>>485 scheme (chicken 4.13)
外部ﾘﾝｸ:ideone.com
・(cons y x)して最後にreverseする
・(list x y)して最後にflattenするのが >>839
841: 840 09/11(木)23:05 ID:WPUXbxYH(1) AAS
>>485 scheme (chicken 4.13)
外部ﾘﾝｸ:ideone.com
・reverse回数減らした版
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.037s