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

■ このスレッドは過去ログ倉庫に格納されています
2021/06/19(土) 00:02:57.84ID:MQWrKSb7
プログラミングのお題スレです。

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

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

※前スレ
プログラミングのお題スレ Part19
https://mevius.5ch.net/test/read.cgi/tech/1606662245/
2022/05/05(木) 02:33:11.33ID:FeY8iOM4
高度IT人材、富士通は最大年収3500万円へ

AI人材の獲得に超本気　NECが新人事制度を9人に適用、富士通は最大年収3500万円へ

【年収３５００万円も】富士通、「ジョブ型」人事制度を導入 幹部社員から 高度IT人材

来年度から副業解禁　人材多様化へ―大同生命次期社長

第一生命HD、副業解禁　約1万5000人対象

第一生命ＨＤ、副業解禁　１万５０００人対象―大手生保初

IHI、国内8000人の副業解禁　重厚長大企業も転機

ＩＨＩ、社外兼業を解禁　社内副業もルール化
557デフォルトの名無しさん
垢版 |
2022/05/05(木) 16:49:02.33ID:SGcHNlDo
>>554
C言語

https://paiza.io/projects/xS5GP9DAU6KzhDsM6x7M6g

strtok_r() を strtok_r2() の名前にして自分で実装した。
strsep() も paiza.io のCのライブラリには何故かなかったので strsep2() にして自分で実装した。
2022/05/11(水) 08:28:38.45ID:zQqHPRjb
思い付きでお題考えてみた
検証してないんだけどどう？

お題: ランダムな部屋を移動する最短距離を求める

行列がある
任意の横幅Wと高さHで表現される部屋がランダムに1 <= N <= 5個生成される
この部屋を部屋内の座標からランダムに選択した別の部屋の部屋内の座標まで通路を作る
通路の要素は斜めには生成されず横と縦に生成される
通路はランダムに1つの部屋から0 <= R <= 3生成される

各部屋を各通路で繋げ任意の部屋Aと任意の部屋Bを選択する
このときAからBまでの最短経路を求めよ
2022/05/11(水) 10:03:08.65ID:u3pPN9f9
ランダムの部分いる？
2022/05/11(水) 19:40:13.01ID:RtJ1FIjP
日本語がよくわからんから数式で書いてくれ
2022/05/11(水) 19:57:58.11ID:dPHs0KwZ
数式だと答えになりそうだから図で書いてくれ
2022/05/17(火) 17:53:19.20ID:UVEhLnaE
さらに、閑古鳥をよびよせるか

[お題] 多倍長では無理!?
整数 S, T が与えられる。(1 <= S <= T <= 400万)
S以上T以下の(連続する)整数の最小公倍数(LCM)をもとめる
答えは, 1000000007(10億7)の余りで出力

1) 6 8 --> 168
6,7,8 の最小公倍数、LCM(6, 7)= 42 --> LCM(42, 8)= 168
2) 10 30 --> 89546497
剰余前は、2329089562800
3) 2567890 3456789 --> ?
4) 1 4000000 --> ?
2022/05/19(木) 21:03:46.76ID:f4mJcXLG
>>562

Haskell

https://ideone.com/dPbmse
2022/05/19(木) 21:16:43.90ID:bqW40Z5X
√T以下の素数列挙
各数を素因数分解して各素数の指数の最大を求める
10億7の剰余で上の乗算を行う
2022/05/19(木) 22:51:31.74ID:vGEyxbeO
>>562 C
https://ideone.com/IWOE9a
2022/05/20(金) 19:19:40.97ID:nM/DB7wD
>>562
https://ideone.com/O9PQbN

想定解としては、(他の人同様)
　求める最小公倍数を素因数分解した形に作るイメージ
　400万以下の"素数及び素数べき乗"は、高々28.3万件。
　S以上T以下で、素数べき乗が割り切れるかどうかチェックしている。
　(方法は T/素数べき乗 > (S-1)/素数べき乗 ならあると, O(1)判定)
　ボトルネックは素数を求める部分なので、手抜きしている。

余談)
・4)を多倍長で計算すると173万桁だった(一分程度ででた)
・10^9+7 ではなく、下9桁を出力だと、4)は 0になる(5^9が範囲にあるから)
2022/07/01(金) 10:06:17.68ID:GRk1+wVC
age
2022/07/01(金) 15:47:14.28ID:GJ0Vg4bO
お題: 循環リストを検出するプログラムを書け
2022/07/01(金) 19:58:00.80ID:il671KyI
循環リスト
の定義を書いてください
2022/07/02(土) 02:10:30.75ID:1mXsd8mZ
お題: 文字列が整数だったらINT, 実数だったらFLOATと出力するプログラムを作れ
変換できない場合はINVALIDと出力せよ

123 -> INT
1,234 -> INT
1.23 -> FLOAT
a123 -> INVALID
12abc -> INVALID
1.23.435 -> INVALID
571デフォルトの名無しさん
垢版 |
2022/07/02(土) 04:54:46.54ID:5fwFwNtd
>>570
Kotlin

自分ではほとんど何も考えていない脱力感溢れるプログラム

https://paiza.io/projects/EK5QmNc2f4MgmmMLM3FcrQ
2022/07/02(土) 05:51:46.20ID:y+j5RBoo
>>570 Ruby

f = -> s {
case s
when /\A(?:0|[1-9]\d*)\z|\A(?:[1-9]\d{0,2})(?:,\d{3})*\z/
:INT
when /\A(?:0?|[1-9]\d*)\.\d+\z/
:FLOAT
else
:INVALID
end
}

%w[123 1,234 1.23 a123 12abc 1.23.435 .142857 1. 0 01 1,234,567 1234,567].each{|s|
puts '%s -> %s' % [s, f[s]]
}

# =>

123 -> INT
1,234 -> INT
1.23 -> FLOAT
a123 -> INVALID
12abc -> INVALID
1.23.435 -> INVALID
.142857 -> FLOAT
1. -> INVALID
0 -> INT
01 -> INVALID
1,234,567 -> INT
1234,567 -> INVALID
2022/07/02(土) 05:58:59.35ID:At3W7bIA
>>570
こう言うのは仕様をちゃんと提示してよ
123.
123.0
12,34
はどうなればいいのか
2022/07/02(土) 08:08:58.00ID:syeRaQWQ
そんな文句みたいな言い方するほどか？
他の問題に比べたらケースちゃんと提示してる方だし
そういうのは想定してないってなんとなくわかるだろ
競プロならちゃんと定義必要だろうけど
2022/07/02(土) 08:09:44.82ID:syeRaQWQ
123.0は確かに気になるけど
2022/07/02(土) 09:41:42.13ID:At3W7bIA
>>574
> そういうのは想定してないってなんとなくわかるだろ
お題なんだから想定しろよ
でないとそのケースはそうじゃなくてこうすべきとか言う奴が出てきて荒れる元だし
2022/07/02(土) 09:58:04.16ID:dKfad4Z0
はい！
578デフォルトの名無しさん
垢版 |
2022/07/02(土) 09:58:41.88ID:COZLaCzb
123.0はfloatだろ常考
2022/07/02(土) 12:04:36.48ID:oDFjP9XJ
黙って実装して自分なりの仕様を提示するテストケースを追加して提出した>>572の勝利
2022/07/02(土) 14:55:56.14ID:w21fdpYM
>>579
激しく同意
2022/07/02(土) 15:40:39.43ID:ZFJdClOp
>>579
クールだよな
2022/07/02(土) 16:54:51.10ID:RqXE55Ja
>>570
こういうアホがソフト仕様を書くと悲惨
2022/07/02(土) 17:49:49.50ID:Vxz6zO/I
久々に出題者現れたかと思ったらフルボッコでかわいそう
2022/07/02(土) 18:03:20.65ID:+K04BJMF
もっと気楽にやれよ
普段ゴミみたいな案件で意を汲み取れず怒られ理不尽な思いしてる底辺コーダーが叩き行為で鬱憤晴らししたいんだろうけどさｗ
仕様の隙間をどうするかをこういったところで一般共通認識得るのは有意義
その議論を「荒れる」と捉えるのは違うでしょ
2022/07/02(土) 20:54:40.02ID:1mXsd8mZ
お題: 文字列が整数だったらINT, 実数だったらFLOATと出力するプログラムを作れ
変換できない場合はINVALIDと出力せよ
version 1.0.1

123 -> INT
1,234 -> INT
1.23 -> FLOAT
a123 -> INVALID
12abc -> INVALID
1.23.435 -> INVALID
.142857 -> FLOAT
1. -> INVALID
0 -> INT
01 -> INVALID
1,234,567 -> INT
1234,567 -> INVALID
123.0 -> FLOAT
2022/07/02(土) 23:37:34.43ID:12WH0HiU
>>568
https://ideone.com/WdXv5B
2022/07/03(日) 06:43:46.91ID:/5k6Ls0P
.142857がOKで1.がNG
なんか違和感
どの言語の流儀？

具体例だけに頼らないで
定義っぽく書けない？

----
[整数部]、[整数部].[小数部]、.[小数部] のいずれかの形
[整数部] : 0123456789の列1文字以上、もしくはこれを3桁ずつ,で区切った形
2桁以上の場合は先頭は0ではない
[小数部] : 0123456789の列1文字以上
....

こんな感じ
2022/07/03(日) 07:10:28.62ID:3/zKVKew
0.DDD を .DDD と表記するのは欧米では情報系に限らず日常よく見られること
CSSもperlも昔のrubyも対応してたんじゃなかったかな
2022/07/03(日) 09:01:07.02ID:udoKn6Zg
1. がNGなのは？
どこの流儀？
2022/07/03(日) 09:17:25.30ID:aLgpTdvv
>>584
> 仕様の隙間をどうするかをこういったところで一般共通認識得るのは有意義
だからその一般認識がないから揉めるって話
既に違和感と言い出す奴とか欧米ガーとか流儀ガーとか言い出してるだろ
エディタの宗教戦争と同じで正解なんてないんだからお題を作った奴が決めないと収拾つかんよ
2022/07/03(日) 09:24:18.29ID:3/zKVKew
>>590
１から１０まで教えてもらえないとなんもできないのかよ
エディタ宗教戦争を例に出してるけどあんなのにガチに捉えてるバカはお前くらいだ
2022/07/03(日) 09:34:46.48ID:/kuq8Z/3
お題: 文字列が整数だったらINT, 実数だったらFLOATと出力するプログラムを作れ
変換できない場合はINVALIDと出力せよ
BNFは↓とする

INT: digit+
2022/07/03(日) 09:37:29.23ID:/kuq8Z/3
お題: 文字列が整数だったらINT, 実数だったらFLOATと出力するプログラムを作れ
変換できない場合はINVALIDと出力せよ
BNFは↓とする
version 1.0.2

int: digits
float: digits ('.' digits)?
digits: digit+
digit: [0-9]+
2022/07/03(日) 10:08:31.69ID:JHbRyeE7
>>591
ガチに捉えるもなにも今でもやってるだろw
2022/07/03(日) 10:15:42.92ID:JHbRyeE7
>>593
カンマとかはなくなってるけど、仕様変更ですか？
あと
digits: [0-9]+
にしてdigitをやめるか
digit: [0-9]
にした方がいいかと思いますよ
2022/07/03(日) 12:27:53.93ID:/kuq8Z/3
>>595

お題: 文字列が整数だったらINT, 実数だったらFLOATと出力するプログラムを作れ
変換できない場合はINVALIDと出力せよ
BNFは↓とする
version 1.0.3

int: comma_digit
float: comma_digit '.' digit* | '.' digit*
comma_digit: digit_123 { ( ','? digit_3 ) }*
digit_3: digit digit digit
digit_123: digit digit? digit?
digit: [0-9]

どや？完璧だろこのBNF
これで文句ないな
2022/07/03(日) 12:41:01.89ID:E32cFzvb
>>596
"1."、"01"、"1234,567" が INVALID になりませんし "." だけでも FLOAT になるのはどうかと思いますが...
2022/07/03(日) 12:54:46.68ID:/kuq8Z/3
>>597
お題: 文字列が整数だったらINT, 実数だったらFLOATと出力するプログラムを作れ
変換できない場合はINVALIDと出力せよ
BNFは↓とする
version 1.0.4

int: comma_digit
float: comma_digit '.' digit_09+ | '.' digit_09+
comma_digit: digit_123 { ( ','? digit_3 ) }*
digit_3: digit_09 digit_09 digit_09
digit_123: digit_19 digit_09? digit_09?
digit_19: [1-9]
digit_09: [0-9]

どや？
2022/07/03(日) 14:30:14.53ID:+vJDgzA0
勉強になる
2022/07/03(日) 15:35:40.90ID:VBJi0e3g
>>598
指摘された箇所すら直せないとかどう見ても向いてないからやめたら？
> "1234,567" が INVALID になりませんし
2022/07/03(日) 15:38:27.96ID:7UQlj4nA
ハズレ上司感
2022/07/03(日) 15:41:49.46ID:yV0MWMu9
>>570 ocaml
https://ideone.com/j9z2um
2022/07/03(日) 16:15:01.49ID:/kuq8Z/3
>>600
めんどくせ～な～
お前やれよ
2022/07/03(日) 16:24:52.83ID:/kuq8Z/3
>>600
version 1.0.5

int: comma_digit | normal_digit
float: ( comma_digit | normal_digit ) '.' digit_09+ | '.' digit_09+
comma_digit: digit_123 { ',' digit_3 }*
normal_digit: digit_19 digit_09*
digit_3: digit_09 digit_09 digit_09
digit_123: digit_19 digit_09? digit_09?
digit_19: [1-9]
digit_09: [0-9]

ていうか1234,567にはならんはずだぞ
2022/07/03(日) 16:30:18.21ID:/kuq8Z/3
>>600
version 1.0.6

int: comma_digit | normal_digit
float: ( comma_digit | normal_digit ) '.' digit_09+ | '.' digit_09+
comma_digit: digit_123 { ',' digit_3 }*
normal_digit: ( digit_19 digit_09+ ) | digit_09
digit_3: digit_09 digit_09 digit_09
digit_123: digit_19 digit_09? digit_09?
digit_19: [1-9]
digit_09: [0-9]

おら！完璧だろ！
2022/07/03(日) 17:25:11.12ID:bGSSCSEx
>>604
> ていうか1234,567にはならんはずだぞ
しれっと変えといてさすがにそれは恥ずかしいな
>>598> comma_digit: digit_123 { ( ','? digit_3 ) }*
>> 604 > comma_digit: digit_123 { ',' digit_3 }*

>>605
まあ、よしとしてやろう
2022/07/03(日) 20:20:25.60ID:H80x+Ni5
問題を解かずに出題の形式美に必死になるなんて、このスレ的にどうなのよ？
2022/07/03(日) 21:46:41.57ID:wwKaul6r
char buf[64];
fgets(buf, 64, stdin);
char *endptr;
strtol(buf, &endptr, 10);
if (*endptr == 0) {
puts("INT");
return;
}
strtod(buf, &endptr);
if (*endptr == 0) {
puts("FLOAT");
return;
}
puts("INVALID");
2022/07/04(月) 22:09:22.65ID:hLP3lYAM
>>570 dart
https://ideone.com/hT8xrN
2022/07/08(金) 20:02:47.21ID:N6PR1KyM
お題
非負整数xが16進数表記で与えられる。xのビットu～lの範囲を逆順にした値を出力せよ。

[入力]
x u l

[例]
0x80 7 0
=> 0x1 (8bit全体をreverse)

0xABCD 11 4
=> 0xA3DD (真ん中8bitをreverse, 0xBC=0b10111100 -> 0b00111101=0x3D)

0x2 99 1
=> 0x8000000000000000000000000 (2の99乗)
2022/07/08(金) 22:06:04.39ID:ju1TxHLl
>>610 Ruby

f = -> (*a) {_, e, s = a.map(&:to_i); '0x%X' % a[0].hex.digits(2).concat(Array.new(e, 0)).tap{_1[s..e] = _1[s..e].reverse}.reverse.reduce{|s, i| 2 * s + i}}

['0x80 7 0', '0xABCD 11 4', '0x2 99 1'].each{puts '%s -> %s' % [_1, f[*_1.split]]}

# =>
0x80 7 0 -> 0x1
0xABCD 11 4 -> 0xA3DD
0x2 99 1 -> 0x8000000000000000000000000
2022/07/09(土) 09:28:21.31ID:72Wr/ML/
>>610 octave
https://ideone.com/4MacE3
613デフォルトの名無しさん
垢版 |
2022/07/09(土) 21:45:11.70ID:A5P06KhI
>>610
Kotlin
https://paiza.io/projects/hUR6DylxGsrJBWKI-gmaKg

BigInteger 使ったので、ビット数がかなり多くても大丈夫。
614デフォルトの名無しさん
垢版 |
2022/07/24(日) 20:03:09.74ID:RqwYivmm
あげ
615デフォルトの名無しさん
垢版 |
2022/07/26(火) 20:19:27.06ID:wEdk200U
お題：数字をミラーリングせよ

入力 < 123
出力 > 123321

reverse系メソッドを使わなかったら加点とする
2022/07/26(火) 20:33:23.78ID:gSFNKY8C
>>615 Ruby
$><<(a=gets.scan /./)*'';$><<$a while$a=a.pop

-*- input -*-
123

-*- output -*-
123321
617デフォルトの名無しさん
垢版 |
2022/07/26(火) 22:30:32.74ID:LilaKoZu
>>615
Java

static String mirror(String src) {
　var dest = new char[src.length() * 2];
　var a = src.toCharArray();
　for (var i = 0; i < a.length; i++) {
　　dest[i] = a[i];
　　dest[dest.length - 1 - i] = a[i];
　}
　return new String(dest);
}
2022/07/26(火) 22:36:21.87ID:SFGiBpCo
>>615
派生お題: 文字列処理を使わずに与えられた整数を回文にせよ。
2022/07/26(火) 23:38:05.85ID:ceC8PDvA
>>615 octave
https://ideone.com/Aa9KII
f = @(a) a([1:end end:-1:1]);
f('123')
2022/07/26(火) 23:41:29.56ID:DU0tXUgh
魔法の計算式とか無いん？
2022/07/27(水) 00:03:13.42ID:MKIa5t3g
俺も考えてみたけど調べても回分数のシグマ使わない一般式は無いみたいだな
2022/07/27(水) 00:09:31.00ID:C/59UMec
>>615 JavaScript
const mirror = (n, c, ...args) => c === null ? (answer => 0 <= n && answer <= Number.MAX_SAFE_INTEGER ? answer : RangeError(`${n} is invalid.`))(args.reduce((s, d) => s * 10 + d, n)) : c == undefined ? mirror(Number.parseInt(n), Number.parseInt(n), ...args) : mirror(n, c < 10 ? null : Math.floor(c / 10), ...args, c % 10);

// test
for (const [n] of [[-1, 'x'], [0, 'o'], [1, 'o'], [12345678, 'o'], [123456789, 'x'], [123.456, 'o (123321)']]) {
const answer = mirror(n);
console[answer instanceof RangeError ? 'error' : 'log'](answer);
}
2022/07/27(水) 01:46:36.04ID:7bF+Pf0F
octave綺麗
62496
垢版 |
2022/08/02(火) 01:11:31.65ID:6KqVNIq0
>>615 Perl5

use feature qw{say signatures}; no warnings 'experimental';

sub f($i, @a) { $i and @a ? (f(@a), $i) : $i }

@a = split'',123;
say @a, f(@a);



実行結果
~ $ perl 20_615_mirror.pl
123321
62596
垢版 |
2022/08/02(火) 01:20:34.60ID:6KqVNIq0
>>615 Perl5 （リスト処理版)

@a = split '', 123;
print @a, map{@a[$#a - $_]} 0..$#a;


実行結果
~ $ perl 20_615_mirror_list.pl
123321
2022/08/02(火) 22:22:16.97ID:9ppQHDnA
>>615 ocaml
https://ideone.com/FFhxw9
let f s =
let csc c s = Char.escaped c ^ s ^ Char.escaped c in
let rec aux t = function 0 -> t | n -> aux (csc s.[n - 1] t) (n - 1)
in aux "" @@ String.length s
let () = print_endline @@ f "123"
627デフォルトの名無しさん
垢版 |
2022/08/02(火) 23:32:00.13ID:49BZsXJW
>>615
Kotlin

https://paiza.io/projects/2Pe625DoTzToywf3zB2lvA

わざわざ Iterator を実装して実現。
2022/08/03(水) 00:34:26.60ID:xChmGTXr
>>615 ocaml
https://ideone.com/6YqGis
let f s = s ^ String.init (String.length s) (fun i -> s.[String.length s - 1 - i])
let () = print_endline @@ f "123"
629デフォルトの名無しさん
垢版 |
2022/08/05(金) 11:38:46.19ID:1Af6TgAi
>>615
おもしれーことやってんじゃん
じゃあperlの再帰する正規表現で行くかな
https://paiza.io/projects/dxhWJaJSrcZdAFpJKe9uvQ
630デフォルトの名無しさん
垢版 |
2022/08/05(金) 13:16:58.45ID:6eafuacR
gnuWin32を基本使っています。
で行のソートなのですが、各行の末尾から逆向きの文字でソートって出来ませんか
たとえば
aaaaCB
bbbBA
cccccDB
とかあったとき、これを
bbbBA
aaaaCB
cccccDB
としたいのです。
もし難しそうであれば、各行を反転、つまり
abcde
を
edcba
とする方法でもいいです。
631デフォルトの名無しさん
垢版 |
2022/08/05(金) 13:43:08.90ID:Vk8oFh91
>>630
Java
Arrays.sort(a, (left, right) -> {
　var l = left.length() - 1;
　var r = right.length() - 1;

　while (l > -1 && r > -1) {
　　var c = Character.compare(left.charAt(l), right.charAt(r));

　　if (c != 0) {
　　　return c;
　　}

　　l--;
　　r--;
　}

　if (l > -1) {
　　return 1;
　}

　if (r > -1) {
　　return -1;
　}

　return 0;
});
63296
垢版 |
2022/08/05(金) 19:36:20.73ID:Rv34IsoP
>>630　Perl5が使える環境であれば…

~ $ cat 20_630_isort.pl
chomp (@a = <>);
sub f {join '', reverse split'', $_[0]}
print "$_\n" for sort{f($a) cmp f($b)} @a;

~ $ cat input.txt
aaaaCB
bbbBA
cccccDB

~ $ perl 20_630_isort.pl < input.txt > output.txt

~ $ cat output.txt
bbbBA
aaaaCB
cccccDB
2022/08/05(金) 20:52:38.21ID:C4r7F682
>>630 ruby
https://ideone.com/lQz0m2
f = ->(a) {a.sort_by &:reverse}
p f.(%w(aaaaCB bbbBA cccccDB))

>>630 octave
https://ideone.com/AUCxr3
function i = sorti(varargin), [~, i] = sort(varargin{:}); end
f = @(a) a(sorti(cellfun(@(s) {flip(s)}, a)));
f({'aaaaCB' 'bbbBA' 'cccccDB'})
63496
垢版 |
2022/08/05(金) 22:43:00.57ID:Rv34IsoP
>>632
しまった、これだとsortの計算量 N・log N に応じた回数、比較のための文字列逆転 sub f の呼出しが起き、
データの行数が多いと遅いな
63596
垢版 |
2022/08/06(土) 00:54:37.07ID:pYJx8bVL
>>630 Perl5、計算量の抑制に配慮したバージョンと実行例

$ cat 20_630_isort2.pl
print $_->[0] for sort{$a->[1] cmp $b->[1]} map{[$_, scalar reverse $_]} <>;

$ cat input.txt
aaaaCB
bbbBA
cccccDB

$ perl 20_630_isort2.pl input.txt > output.txt

$ cat output.txt
bbbBA
aaaaCB
cccccDB
63696
垢版 |
2022/08/06(土) 01:06:37.87ID:pYJx8bVL
>>635
これ各行の行末の改行まで含めてreverseしてsortキーとするので、
もし入力ファイルの最後の行に改行が欠けていて無かったらsort結果がおかしくなる。
そのような万が一の場合に対してもrubstさも持たすならこうか

chomp(@a = <>);
print "$$_[0]\n" for sort{$$a[1] cmp $$b[1]} map{[$_, scalar reverse]} @a;
637デフォルトの名無しさん
垢版 |
2022/08/06(土) 05:59:59.26ID:UcInr7RU
>>630
Kotlin
https://paiza.io/projects/bK5T2CQgxXwvVlcjKvw-dA

ただ処理を連結しただけだな。コマンドラインでパイプ使ったみたいな感じ。
638デフォルトの名無しさん
垢版 |
2022/08/06(土) 06:11:51.22ID:UcInr7RU
>>630
Linux 等の UNIX 系 OS で rev コマンドと sort コマンドが使える環境ならシェルのコマンドラインからこう入力するとできる。
(入力文字列は input.txt に入っているとして)。

rev input.txt | sort | rev

Windows の環境でやる場合は互換性のあるコマンドを利用するか、または Cygwin や WSL や WSL2 等の UNIX 互換環境の中でコマンドラインから実行できる。
63996
垢版 |
2022/08/06(土) 08:20:40.77ID:pYJx8bVL
>>610 Perl5

use Bit::Vector;
$v = Bit::Vector->new(101);
for (<DATA>) {
　($h, $s, $e) = /0x(\S+) (\S+) (\S+)/;
　$v->from_Hex("$h");
　$v->Interval_Reverse($e, $s);
　($r) = $v->to_Hex() =~ /0+(\w+)/;
　print "$_ => 0x$r\n";
}
__DATA__
0x80 7 0
0xABCD 11 4
0x2 99 1

※インデントを見易くするため全角スペースに置換しています


実行結果

$ perl 20_610_rebitfld.pl
0x80 7 0
=> 0x1
0xABCD 11 4
=> 0xA3DD
0x2 99 1
=> 0x8000000000000000000000000
640デフォルトの名無しさん
垢版 |
2022/08/06(土) 10:15:53.94ID:8a3zeEyr
>>638
Linux環境ではrevというのがあるのですね
gnuWin32は全部揃ってないのですね。なんだかなあ
rev以外でもLinuxにあってgnuWin32にはないのがあるのかな
rev、自分で作ろうかな
2022/08/06(土) 11:17:00.60ID:y9e1BfKB
>>630 ocaml
https://ideone.com/zdWLHX
let rev s = String.init (String.length s) (fun i -> s.[String.length s - 1 - i])
let (<<) f g x = f (g x)
let f = List.map (fun (r, s) -> s) << List.sort compare << List.map (fun s -> (rev s, s))
let () = List.iter print_endline @@ f ["aaaaCB"; "bbbBA"; "cccccDB"];
64296
垢版 |
2022/08/06(土) 15:02:55.35ID:ddLJv/Kp
>>640
gnuWin32 用の rev.exe が欲しいなら、書き起こさなくともutil-linux-ng パッケージに入っていると思うが…

util-linux-ng for Windows
http://gnuwin32.sourceforge.net/packages/util-linux-ng.htm

Util-Linux contains miscellaneous utilities:
col: filter reverse line feeds from input
colcrt: filter nroff output for CRT previewing
colrm: remove columns from a file
ddate: converts Gregorian dates to Discordian dates
getopt: parse command options (enhanced)
hexdump: ascii, decimal, hexadecimal, octal dump
line: read one line
rename: rename files
rev: reverse lines of a file or files　←
tailf: follow the growth of a log file
whereis: locate the binary, source, and manual page files for a command

作りたいというなら類似のsampleソースはｺﾞﾏﾝと転がっとるし

C reverse string rev.c strrev - Google 検索
https://www.google.com/search?q=C+reverse+string+rev.c+strrev

C program to reverse a string | Programming Simplified
https://www.programmingsimplified.com/c-program-reverse-string

C_69 C Program to Reverse a String | with strrev() and without strrev() function - YouTube
https://www.youtube.com/watch?v=530jWnBMD2M

…　好きにしんしゃい
64396
垢版 |
2022/08/06(土) 15:16:53.43ID:ddLJv/Kp
Cygwin などに使われている util-linux ﾊﾟｯｹｰｼﾞのｵﾘｼﾞﾅﾙな現行のソースは

GitHub - util-linux/util-linux
https://github.com/util-linux/util-linux

かな。そのうち rev.c のｿｰｽは

util-linux/rev.c at master ・ util-linux/util-linux ・ GitHub
https://github.com/util-linux/util-linux/blob/master/text-utils/rev.c

ちな util-linux ﾊﾟｯｹｰｼﾞは2006年に fork したとき名前に -ng をつけて util-linux-ng になったが
2010年に util-linux に名前を戻している。
cf.)
util-linux - Wikipedia
https://en.wikipedia.org/wiki/Util-linux

ついつい、調べ物をしてしまった…orz
644デフォルトの名無しさん
垢版 |
2022/08/06(土) 17:24:05.41ID:8a3zeEyr
>>642
ありがとう。そんなとこにあったのか
645デフォルトの名無しさん
垢版 |
2022/08/07(日) 09:51:45.46ID:UY2OKMya
>>642
linuxのrevでやってみました。ところが、全角日本語はやはりダメですね
なので、AHK
646デフォルトの名無しさん
垢版 |
2022/08/07(日) 09:52:47.25ID:UY2OKMya
>>642
linuxのrevでやってみました。ところが、全角日本語はやはりダメですね
なので、AHKで自作で作ってみました
rev input.txt | sort | rev
で問題なく動きました
2022/08/07(日) 16:26:03.27ID:BSSIjy3s
>>645
環境変数 LANG の設定の問題とか?
こっちでは日本語での rev できたよ。
CentOS 7 で bash で LANG=ja_JP.UTF-8 の状態。そこに Windows から TeraTerm で ssh ログインして試したらできた。

$ echo $LANG
ja_JP.UTF-8
$ ( echo 見城徹 ; echo 箕輪厚介 ; echo ガーシー ; echo 木原誠二官房副長官 ) | rev
徹城見
介厚輪箕
ーシーガ
官長副房官二誠原木
$
648デフォルトの名無しさん
垢版 |
2022/08/07(日) 18:30:22.20ID:C65TbvUb
お題
0～2がランダムに8個入力されます
8個の数字を:で結合して出力してください
0が連続する場合は連続する0を::に置換してください
0の連続を::に置換できるのは1回のみです
0の連続が複数存在する場合は長い方を置換してください
長さが同じ場合は先頭の方を置換してください
1個の0は置換してはいけません

例
0, 0, 0, 1, 2, 1, 2, 2 → ::1:2:1:2:2
2, 1, 2, 0, 0, 0, 1, 1 → 2:1:2::1:1
1, 1, 2, 2, 1, 0, 0, 0 → 1:1:2:2:1::
2, 0, 0, 2, 0, 0, 0, 2 → 2:0:0:2::2
1, 0, 0, 1, 2, 0, 0, 2 → 1::1:2:0:0:2
0, 1, 2, 0, 1, 1, 0, 2 → 0:1:2:0:1:1:0:2
2022/08/07(日) 19:28:27.32ID:MpscsJR5
>>648 Ruby

f = -> s { x = s.gsub(', ', ?:); y = x.scan(/0(?::0)+/).max&.count(?0) || 0; x.sub(/:?0(:0){#{y - 1}}+:?/, '::') }


[

'0, 0, 0, 1, 2, 1, 2, 2',

'2, 1, 2, 0, 0, 0, 1, 1',

'1, 1, 2, 2, 1, 0, 0, 0',

'2, 0, 0, 2, 0, 0, 0, 2',

'1, 0, 0, 1, 2, 0, 0, 2',

'0, 1, 2, 0, 1, 1, 0, 2'

].each{ |s| puts '%s -> %s' % [s, f[s]] }


# =>
0, 0, 0, 1, 2, 1, 2, 2 -> ::1:2:1:2:2
2, 1, 2, 0, 0, 0, 1, 1 -> 2:1:2::1:1
1, 1, 2, 2, 1, 0, 0, 0 -> 1:1:2:2:1::
2, 0, 0, 2, 0, 0, 0, 2 -> 2:0:0:2::2
1, 0, 0, 1, 2, 0, 0, 2 -> 1::1:2:0:0:2
0, 1, 2, 0, 1, 1, 0, 2 -> 0:1:2:0:1:1:0:2
650デフォルトの名無しさん
垢版 |
2022/08/07(日) 19:57:31.19ID:xO94aiKw
>>648
perl5
https://paiza.io/projects/5qVZ3qjP3YDPyVVywRVEEQ
2022/08/07(日) 20:01:42.93ID:H+tq1Ypt
正規表現のreplace一個で行けそうと思ったけど最長マッチみたいなの無理なのか
2022/08/07(日) 20:16:36.94ID:MpscsJR5
拡張正規表現の中にはチューリング完全なものもあるけどね
653デフォルトの名無しさん
垢版 |
2022/08/07(日) 20:17:47.43ID:xO94aiKw
そうか
単純に s/0{$n}/::/;
を連射して増やしていくだけでいいんだな
最後に成功したのを返す感じで
654デフォルトの名無しさん
垢版 |
2022/08/07(日) 20:58:47.87ID:xO94aiKw
>>648
perl5 # sub squash0 を>653 で書き替えた
https://paiza.io/projects/pNwwe9yNB_dczFaRbV3ZeA
2022/08/07(日) 22:19:54.37ID:UmcKtz1r
>>648 octave
https://ideone.com/3Udpgi
function s = f(a)
c = diff(find([1 diff(a) 1]));
e = cumsum(c);
b = e - c + 1;
n = arrayfun(@(i) a(i), e);
[~, i] = max(c.*(n == 0));
s = arrayfun(@(n) {int2str(n)}, a);
if (1 < c(i))
s(b(i):e(i)) = ':';
end
s = regexprep(strjoin(s, ':'), ':::+', '::');
end
656655
垢版 |
2022/08/07(日) 23:28:54.94ID:UmcKtz1r
結果同じだけど若干の整理可能だった

n = arrayfun(@(i) a(i), e);
[~, i] = max(c.*(n == 0));
↓
[~, i] = max(c.*(a(e) == 0));
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。