プログラミングのお題スレ 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/

**さまよえる蟻人間** ◆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

**デフォルトの名無しさん** · 2019/03/12(火) 05:56:44.85

>>547

Haskell

import Data.Char

main = (mapM_ print.filename) ["a","aB.txt","Ab.txt","xx","aBc.txt","cd","cD","CD","ab.txt","z"]

filename [] = []
filename (xs:xss)| length a > 1 = a:filename b
where
a = func (==)
b = func (/=)
func f = filter (f (map toUpper xs).map toUpper) (xs:xss)
filename (_:xss) = filename xss

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

>>615

0 <= m，n <=10億と仮定して

int64_t cal(int m, int n){
　　if( m>n ) swap(m, n);
　　if( m<=1 ) return m;
　　if( m==2 ) return (n + 1) / 2;
　　if( n==3 && m==3) return 8;
　　return (int64_t)n * m;
}

**デフォルトの名無しさん** · 2019/03/12(火) 18:21:10.69

>>623 Io
f := method(s,
s split("\n\n")map(splitNoEmpties("[","]","\n",=")join(":"))
)

**デフォルトの名無しさん** · 2019/03/12(火) 18:30:10.82

>>619
出題通りなのかどうかがわからんのだが。どう解釈したら出題通りとなるのか？

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

お題
数列a[i]を考える。
a[0] = p
a[i+1] = q * a[i] + r

[入力]
p q r n
(p,q,r,nは整数)
(0≦p,q,r≦99)
(0≦n≦10^10)

[出力]
a[n] mod 13 を求めよ

1 2 0 8
=> 9 (2^8 mod 13)

1 0 99 0
=> 1

1 2 3 2
=> 0 (a[0]=1, a[1]=2*1+3=5, a[2]=2*5+3=13)

1 3 5 10000000000
=> ?

**デフォルトの名無しさん** · 2019/03/12(火) 20:52:19.49

つまらん

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

>>619

>>547に対して、ナチュラルソートされて無くても(普通のソートでも正しい答えが得られるとは限らない)正しい答えを出せるとか、出題者の意図を踏まえながら、意図を超えた範囲もカバーするのはいいんじゃ無いか？
意図を無視するのは論外だが。

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

>>632
マシンパワーがあれば式を入れればいいだけってのはね。。。
解くのに頭使う。解いてみたら案外簡単(アルゴリズムが浮かぶのがキモ)。あえて難しくて最適化の道がある。とかが望ましい。

いあ、無茶振りだろうから、どれか2つ満たせればおkだが。

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

例えば[[1,2,3],[4,5,6],[7,8,9]]みたいな任意のn*nなリスト(または配列)を非破壊的に作れ。とか。

**デフォルトの名無しさん** · 2019/03/12(火) 21:43:25.40

>>636
一般的なミューテートするカウンタも使っちゃダメってことかな？

**623** · 2019/03/12(火) 22:49:08.83

>>623
お題を修正

[ ] = の3つは、特別な記号です。
それらを含まない行は、無視して

[sec1]
key1=val1

[sec2]
key2=val2
x=y

>>627
セクション名・キー名・値は、特定の文字列ではありません！
特別な記号以外の、任意の文字列です

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

お題

現行規格のISBN (ISBN-13) のcheck digit は、JANコードと同じく、
「モジュラス10 ウェイト3・1（モジュラス10 ウェイト3）」という計算法にて算出される

一番右側の? の所のcheck digitを除いて、数字以外は無視して、
一番左側の桁から順に、1、3、1、3…を掛けて、それらの和を取る。
和を10で割って出た余りを、10から引く。
ただし、10で割って出た余りの下1桁が0の場合は、check digitを0とする

ISBN 978-4-10-109205-?

9×1 + 7×3 + 8×1 + 4×3 + 1×1 + 0×3 + 1×1 + 0×3 + 9×1 + 2×3 + 0×1 + 5×3
= 9 + 21 + 8 + 12 + 1 + 0 + 1 + 0 + 9 + 6 + 0 + 15 = 82
82 ÷ 10 = 8 あまり 2
10 - 2 = 8

幾つかのISBN-13 で、計算してみて！

**デフォルトの名無しさん** · 2019/03/12(火) 23:07:31.93

>>632
　https://ideone.com/Y4N5oM　　c++

　小さい数値は力技(bf2)で確認してみたが……

**デフォルトの名無しさん** · 2019/03/12(火) 23:27:43.44

>>601 Common Lisp
>>620のリファクタリング
ついでに * を空白に、開始地点を A、終了地点を Z にしてみた
https://ideone.com/zMHal6

Python
https://pastebin.com/NAGHLtcu
実行結果 https://webmshare.com/Ma3gZ

**デフォルトの名無しさん** · 2019/03/12(火) 23:42:34.93

>>632 C
https://ideone.com/m3vejt

エクセルとかで実際に数列を計算してみると、長さ12(剰余の数-1)以下の周期になるっぽいのでそれで求められる。
普通に計算するとq * a[i] + r はどんどん大きくなるけど、
毎回 (q * a[i] + r) mod 13としても、計算に影響はないようなので、オーバーフローもせずに計算できる。
だたし、数学的に正しいか保証しかねるが。

**デフォルトの名無しさん** · 2019/03/13(水) 00:12:22.73

>>640
12 0 11 1
=> 11
というコーナーケースが…

**デフォルトの名無しさん** · 2019/03/13(水) 00:29:04.16

>>643

確かに、
コメントアウト(bf2)するときに誤ってしまったようだ、
("if(n==0)" だったのだが、いらないなぁ)
どっちにしろ、0や1のテストは、やってない

**デフォルトの名無しさん** · 2019/03/13(水) 00:51:17.73

>>637
だめ。
そこが関数型言語と手続き型言語の考え方の大きな違いだし。
皮肉にも？それ作った時、入門書の関数より考え方の違いが分かった。

**デフォルトの名無しさん** · 2019/03/13(水) 00:54:41.38

>>638
> セクション名・キー名・値は、特定の文字列ではありません！
> 特別な記号以外の、任意の文字列です

えぇ…

入力：
[あああ]
いいい=ううう

[えええ]
おおお=かかか

出力：
あああ：いいい：ううう
えええ：おおお：かかか

少なくとも任意の文字列には対応してるじゃん。不当指摘だ！

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

>>645 javascript
const seqSqArr = n => Array.from({length: n}).map((v, i) => Array.from({length: n}, (v, j) => n * i + j + 1));
console.log(seqSqArr(3));
//=> [[1,2,3],[4,5,6],[7,8,9]]
console.log(seqSqArr(7));
//=> [[1,2,3,4,5,6,7],[8,9,10,11,12,13,14],[15,16,17,18,19,20,21],[22,23,24,25,26,27,28],[29,30,31,32,33,34,35],[36,37,38,39,40,41,42],[43,44,45,46,47,48,49]]

**623** · 2019/03/13(水) 02:39:20.04

>>646
スマン。漏れの間違い！

key, val などの特定の文字列を置換しているのかと、勘違いしていた

**デフォルトの名無しさん** · 2019/03/13(水) 05:11:02.02

>>639 J
f =: 3 : 0
10 | 10 - 10 | +/ (12 $ 1 3) * "."0 }: y -. '-'
)
f '978-4-10-109205-8'
8

f '978-4873115870'
0

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

>>636,637,645,647

Haskell

main = ps 3 >> putStrLn "" >> ps 7
where ps = print.seqSqList

seqSqList n = (take n.iterate (map (+ n))) [1..n]

out:
[[1,2,3],[4,5,6],[7,8,9]]

[[1,2,3,4,5,6,7],[8,9,10,11,12,13,14],[15,16,17,18,19,20,21],[22,23,24,25,26,27,28],[29,30,31,32,33,34,35],[36,37,38,39,40,41,42],[43,44,45,46,47,48,49]]

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

>>623 ruby
https://ideone.com/FBiZcF

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

こうかな？
;; Common Lisp

(defun seq-sq-list (n)
　　　　　 (labels ((sub (i r)
　　　　　　　　　　　(if (zerop i)
　　　　　　　　　　　　　r
　　　　　　　　　　　　　(sub (1- i) (if (zerop (mod i n))
　　　　　　　　　　　　　　　　　　　　　(cons (list i) r)
　　　　　　　　　　　　　　　　　　　　　(cons (cons i (car r)) (cdr r)))))))
　　　　　　 (sub (* n n) nil)))

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/03/13(水) 23:29:50.59

お題: ピリオド区切りの二つのバージョン番号を比較し、大小関係を判定した結果を-1, 0, 1のいずれとして返せ。

0.1.2 > 0.0: 1
1.2.3 < 1.3: -1
0.0.0 == 0.0: 0

**デフォルトの名無しさん** · 2019/03/14(木) 00:08:08.19

>>653
手抜きHaskell

main = mapM_ pc $ [("0.1.2", "0.0"), ("1.2.3", "1.3"), ("0.0.0", "0.0")]
where pc = print.uncurry mycompare

mycompare "0.0.0" "0.0" = 0
mycompare "0.0" "0.0.0" = 0
mycompare xs ys |xs `compare` ys == EQ = 0
|xs `compare` ys == GT = 1
|xs `compare` ys == LT = -1

**デフォルトの名無しさん** · 2019/03/14(木) 01:08:57.36

>>601 Perl5

$s = '>>>>>vvvvv<<<<^^^^';
($i, $y) = (0, 0);
for (split'',$s) {
　$i++ if />/;
　$i-- if /</;
　$j++ if /v/;
　$j-- if /\^/;
　push @t, [$i, $j, $_];
}
use List::Util qw{min max};
($i, $j) = (min(map{$$_[0]} @t), min(map{$$_[1]} @t));
$$_[0] -= $i, $$_[1] -= $j for @t;
($i, $j) = (max(map{$$_[0]} @t), max(map{$$_[1]} @t));
push @m, [('*')x($i + 1)] for 0..$j;
$m[$$_[1]][$$_[0]] = $$_[2] for @t;
use feature say;
say @$_ for @m;

実行結果
~ $ perl 13_601.pl
>>>>>
^***v
^***v
^***v
^***v
<<<<v

**デフォルトの名無しさん** · 2019/03/14(木) 01:16:23.50

>>638 Perl5

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

[sec2]
key2=val2

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

**デフォルトの名無しさん** · 2019/03/14(木) 06:43:00.64

>>653
0.0.1 > 0.0 でいいのか？

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/03/14(木) 07:26:20.10

>>657
ない桁はゼロと見なす。

**デフォルトの名無しさん** · 2019/03/14(木) 10:42:18.54

>>653 javascript
const vComp = (a, b) => {
const [semA, semB] = [a, b].map(v => {
const {major, minor = 0, patch = 0} = /(?<major>\d+)(\.(?<minor>\d+)(\.(?<patch>\d+))?)?/.exec(v).groups;
return {major, minor, patch};
});
const majorComp = semA.major - semB.major;
if (majorComp) return Math.sign(majorComp);
const minorComp = semA.minor - semB.minor;
if (minorComp) return Math.sign(minorComp);
const patchComp = semA.patch - semB.patch;
return Math.sign(patchComp);
};
console.log(vComp('0.1.2', '0.0'));
console.log(vComp('1.2.3', '1.3'));
console.log(vComp('0.0.0', '0.0'));
結果：
1
-1
0

（おまけ）ソート：
console.log(['0.1.2', '0.0', '1.2.3', '1.3', '0.0.0', '0.0'].sort(vComp));
結果：
["0.0", "0.0.0", "0.0", "0.1.2", "1.2.3", "1.3"]

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/03/14(木) 10:59:38.01

>>653
大小関係の定義をまじめに考えましょう。
>>659
JavaScriptならsplit使えるはず。桁数の制限は要らない。

**デフォルトの名無しさん** · 2019/03/14(木) 11:23:19.67

ごめん勝手にsemverかと思い込んでた

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/03/14(木) 11:35:04.68

LaTeXのバージョンシステムはちょっと特殊で、円周率に近付くようになってる。この場合は文字列として比較しないといけない。
一般的なバージョンシステムはドットで区切られた整数を先頭から順に互いに比較して大小関係を定義する。
まれにアルファとかベータとか「限定版」とか訳のわからない文字列が付くことがあるが、これは常識がなければ大小関係を機械的に判定するのは難しい。

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/03/14(木) 11:47:43.06

一番確実なバージョン大小判定方法は、リリースごとに年月日とバージョン情報を記録しておくことだ。

**デフォルトの名無しさん** · 2019/03/14(木) 13:52:35.97

>>653
Perl
https://paiza.io/projects/puAYVRuDktPCBh_Xdd2vbQ

**デフォルトの名無しさん** · 2019/03/14(木) 15:56:35.04

>>547

Haskell
内包表記の方が何をやってるか分かり易いと気付いて書き換えた。

import Data.Char

main = (mapM_ print.filename) ["aB.txt","Ab.txt","xx","cd","cD","CD","ab.txt"]

filename [] = []
filename (xs:xss)| length a > 1 = a:filename b
where
a = func (==)
b = func (/=)
func f = [xs' | xs' <- (xs:xss), map toLower xs `f` map toLower xs']
filename (_:xss) = filename xss

**デフォルトの名無しさん** · 2019/03/14(木) 18:00:35.68

お題：　何も出力しないプログラム自身のコードをソートするとhello worldを出力するプログラムを作れ

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

>>653 # Python

def cmp(v0,v1):
　if v0==v1: return 0
　else: return 1 if (v0 > v1) else -1

print(cmp('1.2.3','1.2') , cmp('1.2.3','1.1.1') ,
cmp('1.1', '1.1') ,
cmp('1.2.3','1.3')
)

# 1 1 0 -1

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/03/14(木) 18:11:49.83

>>667
バージョン番号の各整数の数字は2個以上になることがある。'10.0'と'9.1'を比較せよ。

**デフォルトの名無しさん** · 2019/03/14(木) 18:14:06.49

>>667
print( cmp('1.1.0', '1.1') )

# 1

**デフォルトの名無しさん** · 2019/03/14(木) 18:32:38.72

>>667 訂正 Python

def cmp(v0,v1):
　v0 = list( map(int , v0.split('.') ) )
　v1 = list( map(int , v1.split('.') ) )
　if v0==v1: return 0
　else: return 1 if (v0 > v1) else -1

print(cmp('1.2.3','1.2') , cmp('1.2.3','1.1.1') ,
cmp('1.1.0', '1.1') ,
cmp('10.0','9.1') ,
cmp('1.1', '1.1') ,
cmp('1.2.3','1.3') ,
cmp('1.1', '1.1.0') ,
)

# 1 1 1 1 0 -1 -1

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/03/14(木) 18:44:00.25

>>670
残念だが不正解。比較できる桁がなければゼロと見なす、すなわち、2.0.0は2に等しいと見なす決まりがある。

**デフォルトの名無しさん** · 2019/03/14(木) 18:50:17.55

>>653 octave
https://ideone.com/xh4Cj4

**デフォルトの名無しさん** · 2019/03/14(木) 18:58:38.18

お題：フィボナッチ数列を最初の10個表示せよ

ruby
https://ideone.com/ewyP50

perl6
https://ideone.com/O3tVZj

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/03/14(木) 18:59:00.09

ソフトウェア開発におけるバージョン管理は、製造メーカーにおける型番管理と同じくらい重要である。
検査逃れのために型番や履歴をごまかしたり、型番管理がなっていないメーカーはメーカー失格である。
インターネット全盛の現在では、型番はウェブ検索しやすいものでなければ、国際競争に負けてしまう。