[過去ﾛｸﾞ] プログラミングのお題スレ Part17 (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

270(9): 2020/04/23(木)23:53 ID:lusTU/GG(1) AAS
お題: 配列と列数が与えられるので配列を行列に再構築して返せ
例:
in < [1, 2, 3, 4], 2
out > [[1, 2], [3, 4]]

---

271(1): 2020/04/24(金)00:06 ID:B1fvRJ4E(1) AAS
>>270　Perl5

$s = [1, 2, 3, 4];
$ncol = 2;
push @b, [splice @$s, 0, $ncol] while @$s;
use Data::Dump 'dump';
print dump(\@b,)."\n";

実行結果
~ $ perl 17_270.pl
[[1, 2], [3, 4]]

---

272: 2020/04/24(金)00:32 ID:9Lyz0QqN(1) AAS
>>270 Ruby

p [*eval(str.sub(/],/,"].each_slice"))] # => [[1, 2], [3, 4]]

---

273: 2020/04/24(金)01:48 ID:m2hQekEP(1) AAS
>>270 D
void main() @safe {
import std.stdio : writeln;
import std.range : chunks;
[1, 2, 3, 4].chunks(2).writeln;
}

---

274: 2020/04/24(金)02:15 ID:XDANT2WI(1) AAS
>>270 matlab

reshape([1,2,3,4],[],2)

---

276: 2020/04/24(金)06:56 ID:oaHyD4Kv(1) AAS
>>270 J
f =: 4 : 0
(-x) , \ y
)

　　2 f 1 2 3 4
1 2
3 4

---

280: 2020/04/24(金)15:36 ID:fZ+Jqbcm(1) AAS
>>270
Kotlin
外部ﾘﾝｸ:paiza.io

こういうことをするための chunked() という拡張関数がライブラリに最初からあるので自分ではほとんど何も考えてない。

---

452: 2020/05/05(火)12:20 ID:hsugdvwn(1) AAS
>>270
R
外部ﾘﾝｸ:ideone.com

---

456: 2020/05/06(水)10:23 ID:crwQV4oz(1) AAS
>>270 ocaml
外部ﾘﾝｸ:ideone.com

---

457: 2020/05/06(水)11:19 ID:2pJLNopY(1) AAS
>>270 Dart

import 'dart:io';

void main() {
　　final var str = stdin.readLineSync();
　　const var reg = RegExp(r'\d+');
　　final List<int> args = reg.allMatches(str).map((m)=>int.parse(m.group(0))).toList();
　　final column = args.removeLast();
　　final result = [];
　　for(var i = 0; i <= args.length ~/ column; i += column) {
　　　　result.add(args.sublist(i, i + column));
省7

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.040s