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

**デフォルトの名無しさん** · 2020/11/30(月) 00:04:05.21

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

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

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

※前スレ
プログラミングのお題スレ Part18
https://mevius.5ch.net/test/read.cgi/tech/1594702426/

**デフォルトの名無しさん** · 2020/12/18(金) 11:06:13.73

お題
値のペアが複数入力されます
1列目の値でソートしてユニーク化し、2列目の値を出力してください
1列目の値が同じ時、2列目の値はソート後のインデックスが最も小さいもののみを出力してください

入力
c,e
b,c
c,f
b,d
a,b
c,g

出力
a,b
b,c
c,e

**デフォルトの名無しさん** · 2020/12/18(金) 11:48:54.35

> 1列目の値が同じ時、2列目の値はソート後のインデックスが最も小さいもの～

と書かれてるがそのソート方法は

> 1列目の値でソート

としか書かれてない
これでは例えば
c,e
c,f
は出現順なのか、はたまた2列目の値も使って昇/降順にするのかわからない

**デフォルトの名無しさん** · 2020/12/18(金) 11:55:17.73

>>103

haskell 入力パーサなし

import Data.List

pairs = [
('c','e'),
('b','c'),
('c','f'),
('b','d'),
('a','b'),
('c','g')
]

f = id
. map head
. groupBy (\x y -> ( fst x ) == ( fst y ) )
. sort

main = mapM_ print $ f pairs

**デフォルトの名無しさん** · 2020/12/18(金) 12:09:30.98

>>104
逆にどっちだと思います？

**デフォルトの名無しさん** · 2020/12/18(金) 12:52:01.21

出現順という言葉が使われていないから、出現順ではない。
2列目もソートすべき

ソートの仕方は書いていないので、文字列でよい

**デフォルトの名無しさん** · 2020/12/18(金) 13:31:08.12

勝手に決めるな

**デフォルトの名無しさん** · 2020/12/18(金) 14:23:00.18

>>103
C++
入力を競プロぽく改変
https://ideone.com/CUTjOy

#include<iostream>
#include<map>
#include<set>
#include<string>
#include<vector>
#include<algorithm>

using namespace std;

int main() {
int N;
cin >> N;

map<string, set<string>> xs;

for(int i=0; i<N; i++){
string k, v;
cin >> k >> v;
xs[k].insert(v);
}

for_each(xs.begin(), xs.end(), [xs](auto& it){
cout << it.first << "," << *(xs.at(it.first).begin()) << endl;
});

return 0;
}

**デフォルトの名無しさん** · 2020/12/18(金) 16:16:25.17

>>103
# # cat input
c,e
b,c
c,f
b,d
a,b
c,g

# # cat input | sort | perl -F"," -lane 'print unless $LAST eq $F[0]; $LAST = $F[0]'
a,b
b,c
c,e

**デフォルトの名無しさん** · 2020/12/18(金) 18:24:57.63

>>103 bat
@(for %%a in ("c,e" "b,c" "c,f" "b,d" "a,b" "c,g") do @echo %%~a)|(cmd /v:on /s /c "for /f "tokens=1,2 delims=," %%b in ('sort') do @(if not "%%b"=="!s!" set "s=%%b" &echo %%b,%%c)")&pause

**デフォルトの名無しさん** · 2020/12/18(金) 19:01:11.88

お題: ランダムに生成されるバイナリツリーがある
ツリーのルートから見て最も左にあるノードと最も右にあるノードの位置を出力せよ
位置はツリーのルートが原点とする
x座標は原点から左に進むとマイナスになり、右に進むとプラスになる
y座標は原点から下に進むとプラスになるものとする
生成されるツリーは原点から下に向かって伸びていくものとする
生成されるツリーの最大の高さは8とする
出力例は↓のようになる

l = -3, 4
r = 5, 7

**デフォルトの名無しさん** · 2020/12/18(金) 21:17:47.26

>>112
座標はこういう感じ？
https://light.dotup.org/uploda/light.dotup.org683510.png

**デフォルトの名無しさん** · 2020/12/18(金) 22:39:29.15

>>113
そういう感じ

**デフォルトの名無しさん** · 2020/12/18(金) 22:55:15.81

>>113
あとツリーの最大の横幅は原点から左右に8ずつで

**デフォルトの名無しさん** · 2020/12/19(土) 09:08:43.96

>>103 J
a =: /:~ ',' & cutopen @ >cutopen stdin ''
f =: >@{. , ','&,@>@{:
smoutput f"1 a #~ ~: {. "1 a

**デフォルトの名無しさん** · 2020/12/19(土) 09:49:26.96

Jニキひさびさ

9 · 2020/12/19(土) 14:32:22.06

>>103 Perl5

@a = qw{c,e b,c c,f b,d a,b c,g};
$h{(/(\w)/)[0]} //= $_ for @a;
print "$_\n" for map{$h{$_}} sort keys %h;

実行結果
~ $ perl 19_103.pl
a,b
b,c
c,e

**デフォルトの名無しさん** · 2020/12/19(土) 18:39:10.13

>>103
Java
https://paiza.io/projects/507wmTuYZu1G36mkuEX5sw

**デフォルトの名無しさん** · 2020/12/19(土) 20:00:26.12

>>112
Java
https://paiza.io/projects/WYRetip28qMC9oZ-PveUyg?language=java

89 · 2020/12/20(日) 03:24:48.64

>>89

https://ideone.com/lQvahn
投稿があった、O(√)以外の方法もあるみたいなので、両方を載せておこう。
他方は、O(N)解法の最後の方の同じ数をまとめて計算するやり方。
O(√)解法より確実に計算量が多い。

**デフォルトの名無しさん** · 2020/12/20(日) 14:30:37.82

>>98
Kotlin 及び Kotlin script

target_char の場合

fun wrap(text: String, target_char: Char, tag_left: Char = '<', tag_right: Char = '>') = text.replace(target_char.toString(), "$tag_left$target_char$tag_right")

target_str の場合

fun wrap(text: String, target_str: String, tag_left: Char = '<', tag_right: Char = '>') = text.replace(target_str, "$tag_left$target_str$tag_right")

要するに Java の String クラスの replace() 使ってるので、肝心な部分は何も考えてない。
tag_left, tag_right はデフォルト値として '<', '>' を指定しているので呼び出す側で指定しなければこれになる。

もう少しだけ Kotlin らしくするとしたら拡張関数にするぐらいかな。

fun String.wrap(target_str: String, tag_left: Char = '<', tag_right: Char = '>') = replace(target_str, "$tag_left$target_str$tag_right")

これで String クラスのメソッドになるので "abcabc".wrap("bc") が "a<bc>a<bc>" を返すようになる。

**デフォルトの名無しさん** · 2020/12/20(日) 17:39:53.62

>>98
C
https://paiza.io/projects/bxoqxh2B8It2pvpM7tl1EA

ちゃんと assert() で色々テストするようにした。

**デフォルトの名無しさん** · 2020/12/20(日) 18:33:53.02

>>98 JavaScript
const wrap = (text, target_str, tag_left='<', tag_right='>') => text.replace(RegExp(target_str, 'g'), tag_left + target_str + tag_right);

**デフォルトの名無しさん** · 2020/12/21(月) 19:30:10.34

>>112 Python
https://paiza.io/projects/pwJH8XQVozwZ5SorTfF0TQ

**デフォルトの名無しさん** · 2020/12/23(水) 21:01:46.74

[お題] 和が2021の倍数
　2021000以下の素数を昇順に並べた数列がある。
　[2, 3, 5, ..., 2020979, 2020999] 項目数：150399

　この数列より空でない連続する部分列を P とする。
　(全てのPの選び方はNCR(150399+1, 2) = 約113億通りある)
　Pの和が2021の倍数となるのは何通りあるか。
　
　[8081,8087] [3361, 3371, 3373] [2011, 2017, 2027, 2029] 等が該当するP

※無駄に素数を乱数代わりに使った、一発正解問題
※実行時間は素数生成を含めて、3秒以内

**デフォルトの名無しさん** · 2020/12/23(水) 23:02:15.25

>>126
https://ideone.com/0tWRM5
あってるかどうか分からないけど

**デフォルトの名無しさん** · 2020/12/23(水) 23:12:10.85

>>126 C++
https://ideone.com/hIUSf1

**デフォルトの名無しさん** · 2020/12/26(土) 03:16:19.16

>>127
これ実際配列回す必要ないんだな
https://ideone.com/3Wo9aF

**デフォルトの名無しさん** · 2020/12/28(月) 03:25:00.14

>>71
Kotlin
https://paiza.io/projects/og3llL4-FChIJZQFqR8FRQ

**デフォルトの名無しさん** · 2020/12/29(火) 19:09:26.95

>>103
Kotlin script

pair.csv にその入力を入れておいてから実行する。

以下は kotlinc コマンドで REPL にして直接入力して実行した時のコピー

>>> java.io.File("pair.csv").bufferedReader().lineSequence().map { it.split(',') }.sortedBy { it[0] }.fold(mutableListOf<List<String>>()) { a, c -> if (a.size == 0 || a[a.lastIndex][0] != c[0]) a.add(c); a }.forEach { println(it) }
[a, b]
[b, c]
[c, e]
>>>

2列目については考慮していないので sortBy が中でやっているソートのアルゴリズムが変われば変わるかも知れない。

**デフォルトの名無しさん** · 2020/12/29(火) 19:20:00.18

a[a.lastIndex][0] の部分は a.last().first() と書いても同じだった。
この方が a.lastIndex 呼ばない分だけ無駄が少ないかも知れない。
(でもコンパイラが中で適当に最適化して同じになるかも知れないのでどうでも良いかな?)

**蟻人間** ◆T6xkBnTXz7B0 · 2020/12/29(火) 19:38:06.80

お題: 半径dの円にぴったり内接する正n角形を描画せよ。

**デフォルトの名無しさん** · 2020/12/29(火) 20:28:59.04

ぴったり内接とは？
ぴったりじゃない内接を教えてください

**デフォルトの名無しさん** · 2020/12/29(火) 20:34:46.26

ぴったり内接ってなんだよって言おうとしたらすでに言われててくっそワロタ

**デフォルトの名無しさん** · 2020/12/29(火) 20:53:58.41

量子化誤差を最小化した演算を求めているのでは？
我々は実数を扱えないので。

**デフォルトの名無しさん** · 2020/12/29(火) 21:00:08.04

n角形をなす線分が円の外側に飛び出さないよう注意を与えているのかもしれない。

実数を扱えない以上、注意する必要が有る。
ということを示唆するのかも。

**デフォルトの名無しさん** · 2020/12/29(火) 21:24:43.03

>>133
processing

void setup(){
size(400, 400);
float d=200;
float r=d/2;
int n=7;
PVector c = new PVector(width/2, height/2);
ArrayList<PVector> p = new ArrayList<PVector>();
for(int i=0; i<n+1; i++){
float theta = (TWO_PI*i)/n;
PVector t = new PVector(r*cos(theta),r*sin(theta));
t.add(c);
p.add(new PVector(t.x, t.y));
}

ellipse(c.x, c.y, d, d);
for(int i=0, j=1; i<n+1; i++, j++, j%=n){
line(p.get(i).x, p.get(i).y, p.get(j).x, p.get(j).y);
}
}

**デフォルトの名無しさん** · 2020/12/29(火) 21:27:39.14

画像
https://dotup.org/uploda/dotup.org2345854.png

**デフォルトの名無しさん** · 2020/12/30(水) 13:44:24.04

[お題] MarkdownのParagraph/BlockQuoteをパースしHTMLを生成してください

入出力例(1)
paragraph
> block quoted paragraph
↑入力 / ↓出力
paragraph
<blockquote>
block quoted paragraph
</blockquote>

入出力例(2)
> hoge
> > nested piyo1
> > nested piyo2
> fuga
↑入力 / ↓出力
<blockquote>
hoge
<blockquote>
nested piyo1
nested piyo2
</blockquote>
fuga
</blockquote>

**デフォルトの名無しさん** · 2020/12/30(水) 17:24:14.94

quote に入れるのは"> "の繰り返しのみで桶？

**デフォルトの名無しさん** · 2020/12/30(水) 20:26:27.99

>>141
はい、blockquoteは
"> > "のように"> "の繰り返しで始まる行としてください。
簡単のために">>"のような入力は考慮不要として下さい。

**デフォルトの名無しさん** · 2020/12/30(水) 21:20:22.80

お題
文字列を数値文字参照に変換してください

入力: 𝚙𝚛𝚘𝚐𝚛𝚊𝚖𝚖𝚒𝚗𝚐 𝚌𝚑𝚊𝚕𝚕𝚎𝚗𝚐𝚎𝚜
出力: &#120473&#120475&#120472&#120464&#120475&#120458&#120470&#120470&#120466&#120471&#120464&#32&#120460&#120465&#120458&#120469&#120469&#120462&#120471&#120464&#120462&#120476

**デフォルトの名無しさん** · 2020/12/30(水) 21:32:08.73

呪いか？

**デフォルトの名無しさん** · 2020/12/30(水) 21:48:07.53

>>140
Java
https://paiza.io/projects/oEOq7Z5F5-6RgNcodNYX-w

**デフォルトの名無しさん** · 2020/12/30(水) 21:49:19.71

>>143 Java
https://ideone.com/9V8dyv

**デフォルトの名無しさん** · 2020/12/30(水) 21:58:00.23

>>143 JavaScript
https://ideone.com/d62aQ9

**デフォルトの名無しさん** · 2020/12/30(水) 22:36:28.16

>>146は不正なUnicode文字列の入力を考慮していませんでした
高位サロゲートが低位サロゲートを伴わず単独で現れていると、その直後の文字が抜け落ちます
つまり
"<\ud83c>" → "<&#55356;>" ではなく
"<\ud83c>" → "<&#55356;" になってしまう

修正版: https://ideone.com/bz8cMe

**デフォルトの名無しさん** · 2020/12/31(木) 01:13:45.28

すごいどうでもいいことなんだけど、
ArrayListってどういうデータ構造なの？
ArrayなのそれともListなの？
おじさんわからないよ。。

**デフォルトの名無しさん** · 2020/12/31(木) 12:16:39.07

>>149
お題
array listを実装してください

次の要項を満たしてください
・add, removeができること
・サイズが可変であること
・序数で要素にアクセスできること
・要素へのアクセスの計算量はO(1)もしくはO(log n)であること

**デフォルトの名無しさん** · 2020/12/31(木) 15:29:53.91

>>150
add, remove は任意箇所の挿入と一要素削除で桶？

**デフォルトの名無しさん** · 2020/12/31(木) 19:05:54.91

>>140
haskell
https://ideone.com/OfqVap

**デフォルトの名無しさん** · 2020/12/31(木) 21:07:25.40

>>150
それがArrayListの要件？　ありがとう

**デフォルトの名無しさん** · 2020/12/31(木) 21:26:18.83

>>153
実装して

**デフォルトの名無しさん** · 2021/01/01(金) 13:09:20.23

>>154
>>150ってただの可変長配列じゃないの？

**デフォルトの名無しさん** · 2021/01/01(金) 13:38:10.37

>>150 Python
https://paiza.io/projects/lZESfj2Dqo1crUXKIb_48w

いまいち合ってるか自信がない

**デフォルトの名無しさん** · 2021/01/01(金) 14:38:54.78

>>150 C++
https://paiza.io/projects/vn9r5dit-omrT_uOuvIC2A

**デフォルトの名無しさん** · 2021/01/02(土) 03:34:41.82

>>143
Kotlin

https://paiza.io/projects/T9yJGxVuxj1Tg0tWh383SQ

**デフォルトの名無しさん** · 2021/01/02(土) 15:11:50.57

>>150
この問題の要件は

>・要素へのアクセスの計算量はO(1)もしくはO(log n)であること

だけでいいのかな？
コレだけでいいならデータの更新時に常に深さが±1の二分木に納直せば必ず参照の計算量はO(log(n))になるし、毎回ソートして格納し直せば参照の(indexによる)計算量はO(1)になる希ガス
データの更新時の制限は全くないでいいのかな？

**デフォルトの名無しさん** · 2021/01/02(土) 21:54:03.91

メモリが安くなったとはいえ
やはりメモリの制限は必要では?
無尽蔵にあるわけではないので

**蟻人間** ◆T6xkBnTXz7B0 · 2021/01/04(月) 22:40:39.15

お題: 四方に広がる無限のサイズの方眼紙があって、１マス１マスに一個のアラビア数字を一度だけ記入できる。
方眼紙に記録したデータの一部は「仮想画面」に出力できる。
マス(x, y)に数字dを記入することを「P(x, y, d)」と表すことにする(x, yは任意の整数)。
(a) 3桁の自然数が２つ与えられる。その足し算の筆算を実演するアルゴリズムを出力するプログラムを書け。
(b) 任意の自然数が２つ与えられる。(以下略)

**蟻人間** ◆T6xkBnTXz7B0 · 2021/01/04(月) 22:51:58.92

補記。

マス(x, y)にある数字を「P(x, y)」と表すことにする。マス(x, y)に数字がなければP(x, y)==0とする。

また、マス(x, y)に数字がなければE(x, y)==1とし、数字があればE(x, y)==0とする。

**デフォルトの名無しさん** · 2021/01/05(火) 22:28:39.68

お題: ランダムな数列を生成せよ
数列の長さは4 <= len <= 20とし、これもランダムとする

**デフォルトの名無しさん** · 2021/01/05(火) 22:36:13.47

>>163 Ruby 3.0

p Array.new(rand(17) + 4){rand * 1e32}

**デフォルトの名無しさん** · 2021/01/06(水) 10:45:40.05

>>163 js
const rand = (a, b) => Math.floor(Math.random() * (b - a + 1)) + a
const range = (n) => [...Array(n).keys()]
range(rand(4, 20)).map(Math.random)

**デフォルトの名無しさん** · 2021/01/06(水) 10:46:52.82

ruby 3 はどのくらい変わったの

**デフォルトの名無しさん** · 2021/01/06(水) 14:12:34.77

>>163
Kotlin または Kotlin script

以下は kotlinc コマンドで REPL で実行した時のコピー。
(先頭の >>> はプロンプト)

>>> (1..(4..20).random()).map { kotlin.random.Random.nextInt() }
res0: kotlin.collections.List<kotlin.Int> = [1712097059, 2034192723, -1232228362, 634194098, 1788814029, -1878195330, -2043751487, 933285281, 1116738696, -934057871, -1657983454, -1761832713, -1836302098, -902578867, -1306790359, 1824207694, 386095401, -389307033, 380242891, -2028767653]
>>>

実行結果は何処にも出力しようとしてしていないが REPL なので自動で出力されている。

**デフォルトの名無しさん** · 2021/01/06(水) 19:38:44.63

>>163 Ruby
# こんな意味だと解釈した
puts ( '%020b' % rand(1<<20) )[ 0, 4+rand(17) ] # ( 2進) '0000'-'00000000000000000000'..'1111'-'11111111111111111111'
puts ( '%020d' % rand(1e20) )[ 0, 4+rand(17) ] # (10進) '0000'-'00000000000000000000'..'9999'-'99999999999999999999'

**デフォルトの名無しさん** · 2021/01/06(水) 23:58:46.35

お題
アルファベットの開始の文字、アルファベットの終了の文字を
入力としてうけとり下記のように文字列を出力してください

入力: a,k
出力:
a
ab
abc
abcd
abcde
abcdef
abcdefg
abcdefgh
abcdefghi
abcdefghij
abcdefghijk

**デフォルトの名無しさん** · 2021/01/07(木) 00:11:25.06

意味不明な途中省く
sh & perl5
echo "a,k" | perl -lane 'm/(\w),(\w)/; print ($1..$2)'
abcdefghijk

**デフォルトの名無しさん** · 2021/01/07(木) 00:20:29.22

省いちゃダメなの!

**デフォルトの名無しさん** · 2021/01/07(木) 00:29:54.66

>>169
Haskell

import Data.List

consecutiveAlph a z = tail $ inits $ [ a .. z ]
main = mapM_ putStrLn $ consecutiveAlph 'a' 'k'
----
a
ab
abc
abcd
abcde
abcdef
abcdefg
abcdefgh
abcdefghi
abcdefghij
abcdefghijk

**(u＿・y)** · 2021/01/07(木) 00:56:12.00

>>169
# Ruby3.0
x = ("a".."k")
x.inject{
p _1
_1 + _2
}

**デフォルトの名無しさん** · 2021/01/07(木) 02:01:24.63

>>169 Common Lisp
https://ideone.com/yWJWQf

参考:
CLHS: Section 13.1.6 Ordering of Characters
http://www.lispworks.com/documentation/HyperSpec/Body/13_af.htm

9 · 2021/01/07(木) 02:13:26.61

>>169 Perl5

@a = split',', <>;
print($a[0]..$_, "\n") for $a[0]..$a[1];

実行結果
~ $ echo 'a,k' | perl 19_169_a,k.pl
a
ab
abc
abcd
abcde
abcdef
abcdefg
abcdefgh
abcdefghi
abcdefghij
abcdefghijk

9 · 2021/01/07(木) 02:17:47.93

つか、これでよかったわ

@a = eval <>;
print($a[0]..$_, "\n") for $a[0]..$a[1];

**デフォルトの名無しさん** · 2021/01/07(木) 11:50:26.21

お題
オセロのようなルールでひっくり返しを行う処理を実装せよ

変数のイメージ
0 = 置かれてない場所
1 = 黒
2 = 白
3 = 今のターンで置いた黒

入力：01202113112120
出力：01202222222120

**デフォルトの名無しさん** · 2021/01/07(木) 11:52:33.15

ちょい訂正
3 = 今のターンで置いた白だった

**デフォルトの名無しさん** · 2021/01/07(木) 12:05:34.54

>>177
それやと1が置かれたのか2が置かれたのかわからないのでは？
0123120のとき
1が置かれたとして0111120になるのか
2が置かれたとして0122220になるのか
わからない

**デフォルトの名無しさん** · 2021/01/07(木) 12:06:14.88

あ、1=3=黒なのね
失礼しました

**デフォルトの名無しさん** · 2021/01/07(木) 12:32:35.52

>>177
haskell

twosTurn x = let
( pre, ( '3' : post ) ) = span (/='3') x
revOne y = let
( pre02 , post02 ) = span ( == '1' ) $ y ++ "0"
twos = zipWith const ( repeat '2' ) pre02
in if ( head post02) == '0'
then y
else take ( length y ) ( twos ++ post02 )
revOne' = reverse . revOne . reverse
in ( revOne' pre ) ++ "2" ++ ( revOne post )

sample = "01202113112120"

main = print $ twosTurn sample

**デフォルトの名無しさん** · 2021/01/07(木) 12:50:45.25

>>177 Ruby
board = '01202113112120'
puts board
puts board.sub( /2(1*)3(1*)2/ ){ "2#{'2'* ($1.size)}2#{'2' * $2.size}2" }

**182** · 2021/01/07(木) 13:05:54.80

>>182 は間違いでした
board = '01202113112120'
puts board
puts board.sub( /2(1*)3/ ){ "2#{'2'* ($1.size)}3" }.sub( /3(1*)2/ ){ "3#{'2'* ($1.size)}2" }.tr( '3', '2' )

**デフォルトの名無しさん** · 2021/01/07(木) 20:21:05.95

仕様を出来るだけ簡潔にしたかったんだろうけどやり過ぎてモヤる
下位から
第1bit 駒有無
第2　　駒種別
第3　　now flag
として
0:駒無し
1:白, 3:黒
5:白now, 7:黒now

と置いてnowの結果を出力の方が良くね

**デフォルトの名無しさん** · 2021/01/07(木) 21:58:01.92

この問題の本命は、オセロを作るっていうお題にしたつもりじゃないからｗ
スレに居る人はオセロくらい作ったことある人しかいないと思っているし
ゲームのアルゴリズムの一端を文字列処理として見るのも可能っていう点な

**デフォルトの名無しさん** · 2021/01/08(金) 02:42:54.86

>>184
お前がそういうお題を新たに出せば良い。

**デフォルトの名無しさん** · 2021/01/08(金) 07:57:49.81

>>184 Ruby
board = [0b000,0b011,0b001,0b000,0b001,0b011,0b011,0b101,0b011,0b011,0b001,0b011,0b001,0b000].pack('C*')
if board["\x05"]
board = board.sub( /\01(\03*)\x05/ ){ "\01#{"\01"* ($1.size)}\x05" }.sub( /\x05(\x03*)\x01/ ){ "\x05#{"\x01"* ($1.size)}\x01" }.tr( "\x05", "\x01" )
else
board = board.sub( /\03(\01*)\x07/ ){ "\03#{"\03"* ($1.size)}\x07" }.sub( /\x07(\x01*)\x03/ ){ "\x07#{"\x03"* ($1.size)}\x03" }.tr( "\x07", "\x03" )
end
puts board.unpack('C*').map{|b| '0b%03b' % b.ord }.join(',')
#=>0b000,0b011,0b001,0b000,0b001,0b001,0b001,0b001,0b001,0b001,0b001,0b011,0b001,0b000

**デフォルトの名無しさん** · 2021/01/08(金) 21:29:33.72

>>169 octave
https://ideone.com/li5G9s
f = @(b, e) arrayfun(@(e) {b:e}, b:e);
f('a', 'k')

**デフォルトの名無しさん** · 2021/01/09(土) 02:47:05.51

>>169
Kotlin
https://paiza.io/projects/_TeqzWrnHegnQ0TTkyQQ9Q

**デフォルトの名無しさん** · 2021/01/09(土) 03:00:30.54

>>169
Perl5

コマンドラインからこんな風に入力して実行する。(実際に試した shell は bash)

perl -ne 'chomp;@d=split/,/;print join("\n", map { join("", $d[0]..$_) } $d[0]..$d[1])."\n";'

**デフォルトの名無しさん** · 2021/01/09(土) 03:18:08.87

>>140
Kotlin

https://paiza.io/projects/gkGJm8-S7pj5AVhPu5JWtA

できたことはできたが、なんか奇麗じゃないね。

**デフォルトの名無しさん** · 2021/01/09(土) 08:04:43.95

>>169 Ruby
def f(a,b)
(a..b).map{|c| [*a..c]*""}
end
puts f("a","k")

**デフォルトの名無しさん** · 2021/01/09(土) 20:59:35.76

>>163
Java
https://paiza.io/projects/7I9Xp20LlqAq-SbQPFmdTA

**デフォルトの名無しさん** · 2021/01/09(土) 21:04:47.77

>>143
Java
https://paiza.io/projects/86Fk6Eo8cM3VVl_FtgDLUw?language=java

**デフォルトの名無しさん** · 2021/01/09(土) 21:40:06.97

>>169
Bash
https://paiza.io/projects/HhXsE6Yq5nFJfmwJNniCCw?language=bash

**デフォルトの名無しさん** · 2021/01/09(土) 23:28:46.26

お題
N個の時系列データが与えられる。i番目のデータはa_iである
i=1～Nについて、以下の条件を満たすx_iを出力せよ
x_i : 直近c個でa_iが最大となるようなcのうち、最大のもの

[入力]
N
a_1 a_2 ... a_N

[出力]
x_1 x_2 ... x_N

(例1)
5
3 1 2 6 6
=> 1 1 2 4 5

3 = max(3)
1 = max(1) //今までの中で最小
2 = max(1, 2) //直近2個で最大
6 = max(3, 1, 2, 6) //直近4個で最大 (直近3個でも最大だが、cの値として最大のものを選ぶ)
6 = max(3, 1, 2, 6, 6) //直近5個で最大(最大タイ)

(例2)
3
100 10 1
=> 1 1 1

**デフォルトの名無しさん** · 2021/01/10(日) 03:36:08.11

上田隆一

シェル芸勉強会問題一覧
https://b.ueda.tech/?page=00684

色々な問題が掲載されている。
問題作りのヒントになるかも

**デフォルトの名無しさん** · 2021/01/10(日) 05:17:09.34

>>169 bat
@echo off &setlocal
set ALL=abcdefghijklmnopqrstuvwxyz
call :RANGE a,k
pause &exit /b

:RANGE
setlocal enabledelayedexpansion
if "%1" GTR "%2" echo ERROR: Invalid argument&exit /b
set STR=!ALL:*%1=%1!
if not "%2"=="z" call set STR=%%STR:!ALL:*%2=!=%%
:LENGTH
set /a n+=1
if not "!STR:~0,-%n%!"=="" goto :LENGTH
for /L %%n in (1,1,%n%) do echo !STR:~0,%%n!

**デフォルトの名無しさん** · 2021/01/10(日) 09:32:44.37

>>196
完全に全く意味がわからないお題を久々に見た

**デフォルトの名無しさん** · 2021/01/10(日) 09:35:06.95

あ、イヤわかった最小はタイポか

**デフォルトの名無しさん** · 2021/01/10(日) 09:41:46.50

>>163 octave
https://ideone.com/GX9hjP
f = @() rand(randi([4 20]), 1);

**デフォルトの名無しさん** · 2021/01/10(日) 09:45:08.12

>>196
haskell

import Data.List

c = id
. map length
. map (\x -> takeWhile ( <= ( last x ) ) . reverse $ x)
. tail
. inits

main = do
print $ c [ 3, 1, 2, 6, 6 ]
----
[1,1,2,4,5]