プログラミングのお題スレ Part13

**デフォルトの名無しさん** · 2019/02/03(日) 11:21:53.20

プログラミングのお題スレです。

【出題と回答例】
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/

宿題は宿題スレがあるのでそちらへ。

※前スレ
https://mevius.2ch.net/test/read.cgi/tech/1538096947/

**デフォルトの名無しさん** · 2019/03/06(水) 12:57:33.38

わかっても今のところ解く気は起きない

**デフォルトの名無しさん** · 2019/03/06(水) 12:58:29.33

>>522
あなた、前に書き込んでた中卒の人？

**デフォルトの名無しさん** · 2019/03/06(水) 13:01:54.00

>>199と>>441が理解できなかったってやつと同一人物なのは分かる

**デフォルトの名無しさん** · 2019/03/06(水) 13:08:31.07

>>524
>どうして4個固定なのか？　

テトリスってゲームがあってそれに出てくるブロックが>>519

>>515
>全てのテトリスのブロック

https://ja.wikipedia.org/wiki/%E3%83%86%E3%83%88%E3%83%AA%E3%82%B9
テトリス
>4つの正方形を組み合わせて作られた、片面型テトロミノ状のブロックピース
>（以下の7種、本作ではこれらを「テトリミノ」（Tetrimino）と呼ぶ）
>がフィールド上方からランダムに1種類ずつ落下してくる。

**デフォルトの名無しさん** · 2019/03/06(水) 13:09:30.85

>>441は分からんかった
問題を考えさせてほしい
問題文を考えさせるんじゃなく

**デフォルトの名無しさん** · 2019/03/06(水) 13:50:33.24

>>530 片面テトリミノの基本は4個だけどこれを使う前提なら、３ｘ５とか4の倍数の面積にならない図形は解けないよね。
聞いてるのは３ｘ５はどうするのと言う話。

**デフォルトの名無しさん** · 2019/03/06(水) 14:02:02.94

>>532
「解けない」でいいんだろ

**デフォルトの名無しさん** · 2019/03/06(水) 16:31:44.46

>>532
この問題は君の思ってる小学校の算数とは違うんだよ

**デフォルトの名無しさん** · 2019/03/06(水) 18:11:04.36

問題の難しさと、問題の曖昧さは関係ないけどな。
難しい問題の条件が曖昧だと鼻から解く気になれない。

**デフォルトの名無しさん** · 2019/03/06(水) 18:18:58.86

考えればわかることまでいちいち書かないのは常識
それを曖昧とは言わない

**デフォルトの名無しさん** · 2019/03/06(水) 19:39:35.98

数学者は常識人

**デフォルトの名無しさん** · 2019/03/06(水) 19:40:44.95

当たり前のことでもいちいち全部書くのがこの業界の常識だが

**デフォルトの名無しさん** · 2019/03/06(水) 19:57:47.15

仕様書をやりとりしてみれば如何に他人に解らせることが難しいか理解できると思うけどな。多分出題者は余り経験していないんだろう。

仕様をいい加減で進めても後で痛い目を見るのは自分。
(最初は完全でないのは当然、打ち合わせで抜けを詰めていけば良い話)

**デフォルトの名無しさん** · 2019/03/06(水) 20:41:28.07

>>538
テトリスがなにかなんて自分でググって調べればいいことだろ
そんなことまで面倒みれない

**デフォルトの名無しさん** · 2019/03/06(水) 20:51:34.66

お題の面白さに共感しなければ趣味だから解かない。

**デフォルトの名無しさん** · 2019/03/06(水) 21:21:50.81

そういや安かったのでPS4用のテトリスを何気なく買って連日やってたら慣れてきちゃってレベル15の40ライン消しが楽にできるようになってしまったなあ。
今さらテトリスうまくなってどうすんだ俺w

**デフォルトの名無しさん** · 2019/03/07(木) 03:21:20.86

>>494
Kotlin
https://paiza.io/projects/w5ywqyfGfQpwllH68rmt5A

入力はカラム名の行が最初にあり、次の行からはデータが続き「# カラム名」の行で終わり、
そこで指定したカラム名の列の合計値が出力される。

エラーはデータが数値として解釈できない文字列、項目数がカラム名の数と一致しない行、
同一カラム名があった場合に出る。一度エラーになると # の行まで読み飛ばされる。

**デフォルトの名無しさん** · 2019/03/07(木) 17:22:14.11

お題
R言語にandmaginsとうう関数がある。
m行n列の行列を渡すと行ごとの合計と列ごとの合計を追加して
(m+1)行(n+1)列の行列を返す。
同様の関数をつくる。

1 2 3
4 5 6
が
1 2 3 6
4 5 6 15
5 7 9 21
となる

**デフォルトの名無しさん** · 2019/03/07(木) 19:35:31.07

>>544
C++
https://ideone.com/XhFw95

**デフォルトの名無しさん** · 2019/03/07(木) 23:35:37.41

>>544 Squeak/Pharo Smalltalk

| fn |
fn := [:arr | arr, {arr sum} collect: [:row | row, {row sum}]].
fn value: #(
(1 2 3)
(4 5 6)
).

"=> #(
(1 2 3 6)
(4 5 6 15)
(5 7 9 21)
) "

**デフォルトの名無しさん** · 2019/03/08(金) 00:35:43.62

大文字小文字だけが異なる、ファイル名を見つける

入力
aB.txt
Ab.txt
xx
cd
cD
CD

出力
aB.txt : Ab.txt
cd : cD : CD

**デフォルトの名無しさん** · 2019/03/08(金) 04:41:32.92

#!/bin/sh
infile="aB.txt Ab.txt xx cd cD CD"
for f in ${infile}; do
echo $f $(echo $f | tr [:lower:] [:upper:])
done | awk '
{ save[$2] = save[$2] " : " $1 }
END {
for (i in save) print save[i]
}' | sed 's/^ : //' | sort | awk 'NF > 1 {print}'

**デフォルトの名無しさん** · 2019/03/08(金) 09:23:36.88

**デフォルトの名無しさん** · 2019/03/08(金) 09:47:13.60

>>547
それはWindowsとかでは試せないのでは？ディレクトリが違うならできるだろうけど。
(まあWindowsでもWSLでUbuntuとか動かせばできるが)

**547** · 2019/03/08(金) 11:48:57.26

同一フォルダ内での、大文字小文字だけが異なるファイル名は、Windows では作れないけど、
Linux では作れてしまうので、それをチェックする目的です

Linuxでも、こういうファイル名は作らない方がよい

**デフォルトの名無しさん** · 2019/03/08(金) 16:35:28.24

>>551
死ね

**デフォルトの名無しさん** · 2019/03/08(金) 17:12:36.80

時々死ねと言うやついるけど同じやつなのか？いい加減で大人になれ。

**デフォルトの名無しさん** · 2019/03/08(金) 18:19:49.57

イ㌔

**デフォルトの名無しさん** · 2019/03/08(金) 18:42:00.27

お題：　１＝２を証明しろ
証明出来ないは無しで

**デフォルトの名無しさん** · 2019/03/08(金) 18:49:56.10

>>555 それは言語によるんじゃないの？論理的にはあり得ない。
一般的には、0がFalse でそれ以外がTrueと言うだけでは？

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/03/08(金) 18:58:42.07

整数のオーバーフロー使えば楽に証明できるけど、それはもはや基礎数学の整数じゃないし。

**デフォルトの名無しさん** · 2019/03/08(金) 19:14:26.55

>>544 octave
https://ideone.com/JoTcaP

**デフォルトの名無しさん** · 2019/03/08(金) 19:17:05.52

お題：
N人の人物がある部屋に出入りしています。
i番目の人は時刻a[i]に入室し、時刻b[i]に退室します。(1 <= a[i] < b[i])

すべての人は入退室時に以下の通り行動します。
・入室時に、照明がOFFならば照明をONにする。
・退室時に、室内に自分以外に誰もいなければ照明をOFFにする。

最初は照明がOFFになっていて室内には誰もいません。
複数の人物が同時に入退室することはないものとします。

照明がONになっている時間の合計を求めなさい。

a={1,3,5}
b={2,4,6}
=> 3

a={1,2}
b={5,6}
=> 5

a={100,1,2}
b={105,3,4}
=> 8

**デフォルトの名無しさん** · 2019/03/08(金) 20:42:26.76

>>364
brainf*ck
>++++++++++<+[,.>.<]

**デフォルトの名無しさん** · 2019/03/08(金) 20:42:27.70

★ぁりが㌧ヾ(｡･ω･｡)ﾉぁりが㌧★

**デフォルトの名無しさん** · 2019/03/08(金) 20:54:42.10

>>559 ruby
https://ideone.com/yo3mvc

**デフォルトの名無しさん** · 2019/03/08(金) 21:22:26.01

>>559 Common Lisp
https://ideone.com/2hHoAC

**デフォルトの名無しさん** · 2019/03/08(金) 21:55:03.73

>>547 ruby
https://ideone.com/faTKf5

**デフォルトの名無しさん** · 2019/03/09(土) 08:53:56.42

>>410 J
f =: 3 : 0
　> , { ;/(,. toupper) y
)

**562** · 2019/03/09(土) 09:29:27.51

>>559 ruby
すこーしすっきり
f = ->a, b {a.zip(b).map {|c| (c.first...c.last).to_a}.inject(:|).size}
↓
f = ->a, b {a.zip(b).map {|c, d| [*c...d]}.inject(:|).size}

**547** · 2019/03/09(土) 10:58:09.02

>>564
たった2行とは、素晴らしい！
JavaScript(JS)とか、関数型プログラミングだね

f(&:upcase), f(&:chomp)
関数型でも、こういうように呼ぶ関数名が明確にわかる点では、Ruby はJS をしのぐ！

漏れが以下で作ったけど、手続き型の処理で、10行以上も掛かったw
情けない

Ruby 初心者スレッド Part 65
https://mevius.5ch.net/test/read.cgi/tech/1545421414/234

**デフォルトの名無しさん** · 2019/03/09(土) 12:51:20.88

クソみてーな恣意的な記号使いはperl譲りだな

**デフォルトの名無しさん** · 2019/03/09(土) 13:17:28.26

アンダースコア_はprologの時点であるんじゃね
それに記号なら恣意的だろ

**デフォルトの名無しさん** · 2019/03/09(土) 19:25:50.03

>>544
Haskell

main = mapM_ print $ newxss ++ [zipWith (+) (newxss!!0) (newxss!!1)]

xss = [[1,2,3],[4,5,6]]

newxss = map (\xs -> xs ++ [sum xs]) xss

**デフォルトの名無しさん** · 2019/03/09(土) 19:49:27.50

お題：文字列と数値nが与えられるのでn番目の文字とそれ以外の文字を上下にスライドさせて表示する

入力
abc 2

出力
*b*
a*c

**デフォルトの名無しさん** · 2019/03/09(土) 19:57:53.65

お題か出力のどっちかが間違っている
日本語勉強した方がいい

**デフォルトの名無しさん** · 2019/03/09(土) 19:58:57.39

>>544,570

任意の数の行列だったか。。。
修正

main = mapM_ print $ newxss ++ [lastxs]

xss = [[1,2,3],[4,5,6],[7,8,9]]

newxss = map (\xs -> xs ++ [sum xs]) xss

lastxs = map sum $ retsu newxss

retsu ([]:xs) = []
retsu xss = map head xss:retsu (map tail xss)

**デフォルトの名無しさん** · 2019/03/09(土) 20:10:49.99

>>557
オーバーフローは数学ですらないだろ。こっちは数学。

宇宙を支えていたのは、驚異のたし算だった
私がこのたし算を知ったのは20歳のころでした。その衝撃は、私の運命を変えるまでの威力を持っていました。
私の大学は2年生で所属学科を決めるシステムになっており、私はアインシュタインに憧れて物理学科に進もうとしていました。
その私が出会ったのがラマヌジャン（1887-1920）です。彼が描いた2つの絵を見た瞬間、私の中で何かが変わりました。
http://jbpress.ismedia.jp/mwimgs/4/b/400/img_4b7f33022b840f792a0324a10b89a24d369437.jpg
http://jbpress.ismedia.jp/articles/-/46939

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/03/09(土) 20:18:26.71

>>574
応用数学ではオーバーフローも数学の一種。

**デフォルトの名無しさん** · 2019/03/09(土) 20:25:11.72

>>364

Haskell

main = mapM_ (\c -> putStrLn $ c:[]) "hello"

**デフォルトの名無しさん** · 2019/03/09(土) 20:38:18.94

>>544
kotlin
https://paiza.io/projects/cL6xIQA--yDFZ1pjndvzAw

Double型でやったら出力に小数点以下が付加されたが値として間違ってるわけではないのでそのままにする。

**デフォルトの名無しさん** · 2019/03/10(日) 01:41:18.58

>>544 Python

import numpy as np
# 何行何列でも良い
ar =[
[1,2,3,4],
[4,5,6,7],
[7,8,9,10]
]

#縦に足して行を追加
r=np.vstack((ar,np.sum(ar,axis=0)))

#横に足して列を追加
ans=np.hstack((r,np.sum(r,axis=1).reshape((-1,1))))
print('ans=\n',ans)
'''
ans=
[[ 1 2 3 4 10]
[ 4 5 6 7 22]
[ 7 8 9 10 34]
[12 15 18 21 66]]
'''

**デフォルトの名無しさん** · 2019/03/10(日) 03:08:27.84

>>571 ruby
s = "abc"
n = 2
t = "*" * s.length
t[n - 1] = s[n - 1]
u = s.clone
u[n - 1] = "*"
puts(t, u)

**デフォルトの名無しさん** · 2019/03/10(日) 11:57:40.70

>>571 J
f =: 4 : 0
|: ((,. -.) (<:x) = i. # y ) {"1 '*' ,. y
)

2 f 'abc'
*b*
a*c

**デフォルトの名無しさん** · 2019/03/10(日) 13:31:21.17

>>571

Haskell

main = do
putStrLn $ seclet "abc" (==) 2
putStrLn $ seclet "abc" (/=) 2

seclet lst func num = seclet' lst func 1 num
where
seclet' [] _ _ _ = []
seclet' (x:xs) f n a | f n a = x: seclet' xs f (n + 1) a
seclet' (_:xs) f n a = '*': seclet' xs f (n + 1) a

**デフォルトの名無しさん** · 2019/03/10(日) 13:56:33.99

>>571
>>581

引数の順序入れ替えてmapM_ 使って、main部分を一行にまとめた。

main = mapM_ (putStrLn.seclet "abc" 2) [(==),(/=)]

seclet lst num func = seclet' lst 1 num func
where
seclet' [] _ _ _ = []
seclet' (x:xs) n a f | f n a = x: seclet' xs (n + 1) a f
seclet' (_:xs) n a f = '*': seclet' xs (n + 1) a f

**デフォルトの名無しさん** · 2019/03/10(日) 17:19:36.82

>>571　Perl5

($s, $n)= qw{abc 2};
@s = split'',$s;
@t = qw{*} x @s;
$n--;
($s[$n], $t[$n]) = ($t[$n], $s[$n]);
print @t, "\n", @s, "\n";

実行結果
~ $ perl 13_571.pl
*b*
a*c

**デフォルトの名無しさん** · 2019/03/10(日) 17:47:53.28

>>544 Perl5

@a = ([1, 2, 3,],
　　　　[4, 5, 6]);
use List::Util sum;
push @$_, sum(@$_) for @a;
for $i (0..$#{$a[0]}) {
　push @b, sum(map{$a[$_][$i]} 0..$#a)
}
print "@$_\n" for @a;
print "@b\n";

実行結果
~ $ perl 13_544.pl
1 2 3 6
4 5 6 15
5 7 9 21

**デフォルトの名無しさん** · 2019/03/10(日) 20:48:09.83

>>571 octave
https://ideone.com/fEaJMh

**デフォルトの名無しさん** · 2019/03/10(日) 21:12:33.92

ここっておっさんが多いイメージ

**デフォルトの名無しさん** · 2019/03/10(日) 21:16:39.36

>>559
Java
https://paiza.io/projects/uoq0pfsAO5vRexzfWg1Mdw?language=java

**デフォルトの名無しさん** · 2019/03/10(日) 21:20:18.73

>>571 ruby
https://ideone.com/6NM2Z2

>>567
String#lines　←これの存在知らなかった
勉強になりました

**デフォルトの名無しさん** · 2019/03/10(日) 21:46:22.59

>>547
Java
https://paiza.io/projects/2ff8V2wS29AjINHLm-bgYw?language=java

**デフォルトの名無しさん** · 2019/03/10(日) 21:59:51.08

>>571
@Mathematica

https://ideone.com/gDkzl4

**567** · 2019/03/10(日) 22:01:14.30

>>588
余談だが、Ruby のString#lines の所を見たら、chomp: true で改行も削除できる！
Rubyは、色々と便利なものを作っている

p ary = <<"EOT".lines( chomp: true ) # 配列
a
b
EOT

#=> ["a", "b"]

**デフォルトの名無しさん** · 2019/03/10(日) 22:14:16.51

>>571 Common Lisp
https://ideone.com/cnTKML

**デフォルトの名無しさん** · 2019/03/10(日) 22:19:23.44

>>579
Java
https://paiza.io/projects/eCieLwJTqtEDvaYM4uknOA?language=java

**デフォルトの名無しさん** · 2019/03/10(日) 22:19:48.10

ごめん間違えた
>>571です

**デフォルトの名無しさん** · 2019/03/10(日) 23:51:29.55

>>571 Node.js
https://ideone.com/l4XmDp

**デフォルトの名無しさん** · 2019/03/11(月) 00:57:47.40

>>571 Squeak/Pharo Smalltalk。nを複数指定可で

| fn |
fn := [:str :ns |
| ans |
ans := (String new: str size withAll: $*), String cr, str.
ns do: [:n | ans swap: n with: n + str size + 1].
ans
].

fn value: 'abc' value: #(2). "=>
'*b*
a*c' "

fn value: 'abcdef' value: #(2 3 5). "=>
'*bc*e*
a**d*f' "

**デフォルトの名無しさん** · 2019/03/11(月) 01:39:23.53

>>547
Kotlin
https://paiza.io/projects/fxNs_pgfP7MwmXYp2xQ1YA

**デフォルトの名無しさん** · 2019/03/11(月) 02:41:21.51

>>559
Kotlin
https://paiza.io/projects/rbSY9Q6oTve1ILy1AIIj_g

**デフォルトの名無しさん** · 2019/03/11(月) 07:59:46.54

>>547 Perl5
https://ideone.com/Mbj5Hz

push @{$h{lc $_}}, $_ for <STDIN>;
print "@{$_}" for grep{@$_ > 1} values %h;

**デフォルトの名無しさん** · 2019/03/11(月) 09:18:51.69

>>571 Python

def split3(s,p=1) :
　r0= s[:p]+'*'+s[p+1:]
　r1= '*'*p + s[p] + '*'*(len(s)-(p+1))
　return r0+'\n'+r1

print(split3('abcd',2))
print(split3('abc',0))

'''結果
ab*d
**c*
*bc
a**
'''

**デフォルトの名無しさん** · 2019/03/11(月) 10:48:42.57

お題：　下の例のような入力から例の出力のアスキーアートを出力する。それ以外は自由
例：
入力：　>>>>>vvvvv<<<<^^^^
出力：
>>>>>
^****v
^****v
^****v
^****v
<<<<v

**デフォルトの名無しさん** · 2019/03/11(月) 11:00:20.46

これって一歩目はなんでもいいよね

**デフォルトの名無しさん** · 2019/03/11(月) 11:35:10.21

>>571 Io
f := method(s,n,
"*" repeated(s size)atPut(n - 1, s at(n - 1)) println
s asMutable atPut(n - 1, 42)println
)
f("abc",2)
実行結果
*b*
a*c

**デフォルトの名無しさん** · 2019/03/11(月) 11:45:13.16

>>601
それ3番目と4番目は必ず1番目と2番目の長さ-1になってるの？

**デフォルトの名無しさん** · 2019/03/11(月) 11:48:56.08

>>602
>>604
そういうめんどくさい質問がこないように、
それ以外は自由と付け加えてある

**デフォルトの名無しさん** · 2019/03/11(月) 13:45:52.04

>>605
仕様をきっちり決めないと解釈の違いから沢山の違った回答が出てくる可能性があるのだが、それで良いと。

**デフォルトの名無しさん** · 2019/03/11(月) 15:42:22.28

>>604
そもそも4方向にいくらかずつ進んで四角形で終わりという形とは限らないのでは？
ランダムに方向や距離を生成して既に通った道も上書きするような入力を許容すると考えたっていいはず。

**デフォルトの名無しさん** · 2019/03/11(月) 16:07:33.07

>>605 何でこれ以外の形は許さんと言えないんだ？
自由にどうぞなんて問題じゃ無いだろ。

**デフォルトの名無しさん** · 2019/03/11(月) 16:18:14.19

>>606,608
こいつらホント掃き溜めのゴミだな

**デフォルトの名無しさん** · 2019/03/11(月) 16:19:55.06

>>571
Kotlin
https://paiza.io/projects/fOvQDvJ6VoTchgVL3pYJpw

**デフォルトの名無しさん** · 2019/03/11(月) 16:25:40.59

>>607
なるほど。しかしそれならばその事を書いておいて欲しかったな。

>>609
何を作れば良いのかよくわからないから質問しているだけなのだが。それが君にとって何か不都合なのか？

**デフォルトの名無しさん** · 2019/03/11(月) 16:58:12.79

>>601
出力おかしくねぇ？最初と最後の行は5列だけど
間の行ぜんぶ6列になってるぞ？

出力：
>>>>>
^****v
^****v
^****v
^****v
<<<<v

こうじゃね？
>>>>>
^***v
^***v
^***v
^***v
<<<<v

**デフォルトの名無しさん** · 2019/03/11(月) 17:14:58.23

ま、いいや。よくわかんない問題は放っておこう。

**デフォルトの名無しさん** · 2019/03/11(月) 19:21:39.70

>>601 javascript
長くなっちった
https://ideone.com/vzncKq

入力： <<<<^^^^>>>>>vv<<<<<<<<<<<vvv>>>^^^^^^^>>>>>>>>>>vvvvvv
出力：
***^>>>>>>>>>>
***^*********v
***^**^>>>>>*v
***^**^****v*v
<<<^<<<<<<<v*v
v**^**^******v
v**^**<<<<***v
v>>>**********

**デフォルトの名無しさん** · 2019/03/11(月) 19:36:33.05

お題
m×nマスのチェス盤を考える。
1つのナイトが最も左上のマスにあり、そこから任意の回数動かすことができる。
ナイトが訪れることのできるマスの個数を求めよ。

m=1, n=1
=> 1

m=3, n=3
=> 8 (真ん中のマスを訪れることができない)

m=4, n=4
=> 16

**デフォルトの名無しさん** · 2019/03/11(月) 19:36:35.88

>>614 説明がないと何をどうやってるのかわけわからん。
先ずは入力と出力をどう解釈して作ったのか？
形にも一貫性があるとは思えないけど。

しかしこんなのがどんどん出てきたら、煩わしいだけ。

**デフォルトの名無しさん** · 2019/03/11(月) 20:02:17.74

いや、その通りに歩くんだろ

**デフォルトの名無しさん** · 2019/03/11(月) 20:07:58.88

出題通り以外の回答はやめてほしいな。
それ以外の回答をする場合は、解説文も日本語で書いてくれよ。

不慣れなプログラムもあることだろうし、長いプログラムなんて見る気にもならないし、プログラムを見ればわかるというのは無し。

**デフォルトの名無しさん** · 2019/03/11(月) 21:26:59.93

>>618
ソースの中身まではちゃんと確認してないけど、ちゃんと出題通りにできてると思う。
出題の"入力例"通りではないが、複雑な入力パターンに対して正しく動いてそうと思える実行例だと思うぞ。

**デフォルトの名無しさん** · 2019/03/11(月) 21:31:45.37

>>601 Common Lisp, >>614の移植
https://ideone.com/B76Dki

**デフォルトの名無しさん** · 2019/03/11(月) 22:12:51.52

>>>v<^^>>
の場合
*^>>
>^>
*<v

**デフォルトの名無しさん** · 2019/03/11(月) 22:40:32.65

>>571 octave 複数列指定可能版
https://ideone.com/UqKcNb

h = @(m, n) cell2mat(arrayfun(@(c, i) {['*'; c] [c; '*']}(1 + (i == n)), m, 1:numel(m)));
↓
h = @(m, n) cell2mat(arrayfun(@(c, i) {['*'; c] [c; '*']}(1 + any(i == n)), m, 1:numel(m)));

**デフォルトの名無しさん** · 2019/03/11(月) 23:02:42.18

以下の整形式の.ini ファイルから、すべての値を取得して、
「セクション名 : キー名 : 値」で表示する

[sec1]
key1=val1

[sec2]
key2=val2

**デフォルトの名無しさん** · 2019/03/11(月) 23:51:36.77

>>623 C++
https://ideone.com/V4sf81

**デフォルトの名無しさん** · 2019/03/12(火) 00:26:56.22

>>623 Perl5

while (<DATA>) {
　$s = $1 if /\[(\w+)\]/;
　print "$s:$k:$v\n"
　　if ($k, $v) = /(\w+)=(\w+)/;
}
__DATA__
[sec1]
key1=val1

[sec2]
key2=val2

実行結果
~ $ perl 13_623.pl
sec1:key1:val1
sec2:key2:val2

**デフォルトの名無しさん** · 2019/03/12(火) 00:37:42.27

>>625 も少し簡潔に書けるんだった…

while (<DATA>) {
　$s = $1 if /\[(\w+)\]/;
　print "$s:$1:$2\n" if /(\w+)=(\w+)/;
}
__DATA__
[sec1]
key1=val1

[sec2]
key2=val2

**デフォルトの名無しさん** · 2019/03/12(火) 01:38:34.08

>>623 javascript(es2018 named capture groups)
`
[sec1]
key1=val1

[sec2]
key2=val2
`.replace(/\[(?<section>.+)\]\n(?<key>.+)=(?<value>.+)\n/g, '$<section>：$<key>：$<value>').trim();
結果：
sec1：key1：val1
sec2：key2：val2