プログラミングのお題スレ Part22
お題:Pythonのmath.ulp()と同機能の関数 引数が正規化数限定のサブセットでも可(その旨を明記)。 Pythonで実装する場合は(もちろん)math.ulp()を使ってはならない。 簡単なお題: >>133 のサブセット(求めたulpも正規化数限定) import struct def my_ulp(x): # 浮動小数点数xをバイト列に変換 b = struct.pack("d", x) # バイト列を整数に変換 i = int.from_bytes(b, "little") # 符号部(1ビット)を取り出す s = i >> 63 # 指数部(11ビット)を取り出す e = (i >> 52) & 0x7ff # 仮数部(52ビット)を取り出す m = i & 0xfffffffffffff # 指数部が0や最大値ならエラー if e == 0 or e == 0x7ff: raise ValueError("x is not a normalized number") # 仮数部の最下位ビット(1ビット)を求める lsb = m & 1 # 符号部と指数部を元に戻す i = (s << 63) | ((e - lsb) << 52) # 整数をバイト列に変換 b = i.to_bytes(8, "little") # バイト列を浮動小数点数に変換 return struct.unpack("d", b)[0] >>136 math.ulp()は符号を戻さないらしいです: ulp(1) == ulp(-1) お題:文字列「せんだ」「みつを」「ナハナハ」がランダムに100行入力される。せんだ、みつを、ナハナハが順番に入力されたときに1と一行出力せよ お題: (1)Python3.12以降の、math.nextafter()のサブセット (実装はPythonでなくても構いません) 64ビット長程度の整数iを引数として、 a)iがゼロ:foo(i) = 0.0 b)i > 0:foo(i) = nextafter(0, inf, steps=i) c)i < 0:foo(i) = nextafter(0, -inf, steps=-i) を満たすfoo()を書く。 Python3.12を使う場合は、nextafter()を使ってはならない。 (2)(1)の逆関数。 補足:(1)(2)いずれも実用的な時間内で求める事(steps=1相当のnextafter()をループで回すのは不可)。 >>143 nextafter()は、浮動小数点数の、(数直線上での)「隣」を求めるやつですね(C99以降?)。 Python3.12のやつは、隣の隣の隣の…を求める事が出来る様に拡張されました。 前スレの補足: V8やLLVMは、自前でstrtod()的なものを実装してました。 tps://arxiv.org/abs/2101.11408 >>101 octave https://ideone.com/87WGBO function s = f(s, i) s(circshift(i, -1, 2)) = s(i); end >>127 ocaml https://ideone.com/IY1dWU let chars s = let rec aux acc i = if i < 0 then acc else aux (s.[i] :: acc) (i - 1) in aux [] ((String.length s) - 1) let f s = let rec aux = function ([], []) -> 1 | (_, []) -> 0 | ('['::bs, ']'::cs) -> aux (bs, cs) | (bs, c::cs) -> aux (c::bs, cs) in aux ([], (chars s)) >>3 c https://ideone.com/BnNzUC int has26(const char *p) { int c, count[26] = {0}; for (; c = tolower(*p); p++) if (isalpha(c)) count[c - 'a']++; for (c = 'a'; c <= 'z'; c++) if (count[c - 'a'] < 1) return 0; return 1; } const char *f(const char **lines, int n) { const char *found = 0; int i, len, minlen; for (i = 0; i < n; i++) if (has26(lines[i])) if (!found) found = lines[i], minlen = strlen(lines[i]); else if (len = strlen(lines[i]) < minlen) found = lines[i], minlen = len; return found; } >>148 ChatGPT にそのままテキストを読ませたらこう答えた。 ------------------------------------------------------------------------------------------------- 通学に自転車を使わない学生は34人、自転車を使うがバスを使わない学生は39人、バスを使うが自転車を使わない学生は18人です。 100人の学生全体からこれらの人数を引いた残りの学生がバスと自転車の両方を使っている学生の数です。 100人 - 34人 (自転車を使わない学生) - 39人 (バスを使わない学生) - 18人 (自転車を使わない学生) = 9人 したがって、通学にバスと自転車の両方を使う学生は9人です。 ------------------------------------------------------------------------------------------------- ここで徒歩については考慮しないのかとツッコミを入れたらこう答えた。 ------------------------------------------------------------------------------------------------- 申し訳ありません、徒歩の学生についての情報が提供されていなかったため、上記の計算では徒歩を選択した学生については考慮されていませんでした。徒歩を選択した学生の数についての情報がなければ、バスと自転車の両方を使う学生の正確な数を計算することはできません。 ------------------------------------------------------------------------------------------------- そして更にこういうツッコミを入れる。 最初の34人は自転車を使っていないだけで密かにバスを使っているかも知れないのだが、そのことは考慮しないのか? ChatGPT 申し訳ありません、私の以前の回答は不完全でした。確かに、最初の34人のうち自転車を使っていないという情報だけでは、彼らがバスを使っているかどうかを確定することはできません。そのため、正確な答えを得るためには追加の情報が必要です。 もし最初の34人のうち何人かが実際にはバスを利用している場合、それを考慮する必要があります。与えられた情報だけからは、バスと自転車の両方を使う学生の正確な数を特定することはできません。必要な情報が揃わない限り、正確な答えを提供することはできません。 >>85 Ruby で作った。 FileUtils::DryRun を使っているので、実際には変更されません require 'fileutils' HEAD = 'abc' # 先頭文字 EXT = '.mp4' # 末尾の拡張子 HEAD_LEN = HEAD.length # 3文字 EXT_LEN = EXT.length # 4文字 # 絶対パスのディレクトリ名の後ろに、* を付けること! # . で始まる、隠し directory, file を除く glob_pattern = "C:/Users/Owner/Documents/test/*#{ EXT }" target_dir = File.dirname( glob_pattern ) # ディレクトリパスだけを取り出す # 元のファイル名の配列 fname_src_ary = Dir.glob( glob_pattern ) .select { |full_path| File.file?( full_path ) } # ファイルのみ .select do |full_path| file_name = File.basename( full_path ) # 先頭文字が abc かつ、末尾が .mp4 だけに絞り込む file_name.start_with?( HEAD ) && file_name.end_with?( EXT ) end .map { |full_path| File.basename( full_path ) } 次へ続く # 変更後のファイル名の配列 fname_dest_ary = fname_src_ary.map do |file_name| str = String.new( file_name ) # 先頭文字の abc と、末尾の .mp4 を取り除いて、数字だけにする str.slice!(-EXT_LEN, EXT_LEN) str.slice!(0, HEAD_LEN) # 10進数の数値型に変換してから、3桁0埋め文字にする HEAD + "%03d" % Integer( str, 10 ) + EXT end require 'set' # 変更後のファイル名が既に存在しているか、チェックする。 # abc100.mp4 など、3桁以上の数値もエラー! fname_src_set = Set.new( fname_src_ary ) # 集合 fname_dest_ary.each { |file_name| raise "ファイル名: #{ file_name } が重複しています" if fname_src_set.include?( file_name ) } # ファイル名を変更する fname_src_ary.zip( fname_dest_ary ) do |src_filename, dest_filename| src_path = target_dir + "/" + src_filename dest_path = target_dir + "/" + dest_filename FileUtils::DryRun.move( src_path, dest_path ) end 出力 mv C:/Users/Owner/Documents/test/abc0.mp4 C:/Users/Owner/Documents/test/abc000.mp4 mv C:/Users/Owner/Documents/test/abc99.mp4 C:/Users/Owner/Documents/test/abc099.mp4 お題:ランダムに1から9999までの整数を得た時、何回で全種類出揃うか確認せよ 擬似乱数列生成法については指定しないものとする ruby https://ideone.com/rucuHk require 'set' r = 1..9999 c = r.to_a.fill(0) s = r.to_set while !s.empty? n = rand(r) c[n - r.first] += 1 s.delete n end p c.sum ↓ 84736 プログラミングの依頼はここでいいでしょうか。 ココナラで依頼したのですが見送りになってしまいました。 お金は出すので製品版を作って欲しいです。 できないなら何が定義できていないのか教えて下さい。 AIによる詩作成 まずAIが詩を作成するための学習ツールを作ります AIがリンゴの形相を分解するには辞書が必要となる リンゴを検索し辞書を比較し関連性の高いワード リンゴ⊇(赤い、丸い、果物…)を拾うのだ これが学習ツールであり 一致したワードからさらに形相に分解する リンゴ⊇(赤い、丸い、果物、酸っぱい…) その中の果物を形相分解するには 果物⊇(リンゴ、サクランボ、なし…) その中のなしを様相分解すると なし⊇(果物、丸い、黄緑…) ここから詩を作るには『黄緑のリンゴ』などになる 形相分解すると客観的な『深さ』(今回は三段階)を持った詩になる >>156 設定があいまいなんだが shuffleとかselectとかchoice系なら 高々9999回で必ず全部出る 製品版なら10万円出します AIでなくても詩作成ツールでいいです >>157 これだと150001回以上となる場合が本来よりも起こりにくくなってしまい駄目だった。 活かしながら書き換えると https://ideone.com/qv7bL9 >>158 ここは誰かがお題を出して答えたい人が答えるスレなので、どんなお題を書いても構わないが、誰も答えないことはよくある。 また、バグがあっても気づかずにそのままになる事もある。多分大半のプログラムは作った本人以外は検証しないので。 ごく稀に他人がバグを発見することはあるが、発見されてもわざわざ指摘するとは限らないし修正もされないかも知れない。 >>156 Ruby >>156 の例が個別の出現回数をカウントしていたのでそれに合わせた c = [0] * 9999 9999.times { redo unless ( c[ rand(9999) ] += 1 ) == 1 } p c.sum >>156 また Kotlin https://paiza.io/projects/yYQ9bdMb0_d91607skNw4Q 今度は add ではなく remove でやるようにした。 これでその Ruby の例に近くはなるがカウントする方法は前と同じで個別にはやってない。 >>156 Perl perl -E 'for ($r = 9999; $n < $r; $_++) { $h{int(rand($r)) + 1} ||= ++$n }; say' 79596 >>156 c https://ideone.com/K1fD78 ・lispのひとの(>>162 )をパク…参考にしました ・乱数生成部分は https://c-faq.com/lib/randrange.html からコピペしました int main() { int a[9999] = {0}, size = sizeof a / sizeof *a, sum, min, max, r, i, j, k; srand(time(0)); #define randi(size) ((int)((double)rand() / ((double)RAND_MAX + 1) * (size))) for (r = size; 0 < r; ) if (!a[randi(size)]++) r--; for (sum = min = max = a[0], i = 1; i < size; i++) { sum += a[i]; min = min < a[i] ? min : a[i]; max = a[i] < max ? max : a[i]; } printf("%d\n%f\n[%d, %d]\n", sum, (double)sum / size, min, max); for (i = min; i <= max; i++) { for (k = j = 0; j < size; j++) if (i == a[j]) k++; printf("%d\t%d\n", i, k); } return 0; } >>156 今度はC言語 https://paiza.io/projects/c6ALnYb4rksMFGZT03mcCw 1~9999ではなく実際には0~9998でやっているが、表示する必要もないし一々1足したり後で引いたりも馬鹿らしいのでそのままにした。 お題:英字の羅列された文字列が与えられる。この文字列を分析して数字列を出力せよ。数字の表記ルールは、その文字の両隣の文字がASCIIコードにおける奇数だったら1、そうでなければ0. 前提としてエラー入力はなくて 出力は両隣がある時のみでいいのかな use itertools::{Itertools, assert_equal}; fn convert(input: &[u8]) -> Vec<u8> { input .iter() .tuple_windows() .map(|(prev, _curr, next)| (prev & next & 1) + b'0') .collect() } fn main() { assert_equal(&convert(b"ABC"), b"1"); assert_equal(&convert(b"abcIJKpqrXYZ"), b"1001010000"); } >>171 octave https://ideone.com/mx954D function a = f(s) o = rem([0 uint8(s) 0], 2) == 1; a = o(1:end-2) & o(3:end); end >>171 c https://ideone.com/VsnqKu void f(const char *s, int *out, int *len) { int i; for (*len = strlen(s), i = 0; i < *len; i++) out[i] = (i == 0 || i == *len - 1) ? 0 : s[i - 1] & s[i + 1] & 1; } >>171 Kotlin https://paiza.io/projects/xZXVc46Ys3qUlGX4DAIxzw 両隣が存在する文字のみを対象に処理をするようにした。なので3文字未満はエラーになる。3文字の場合は2文字目だけを対象にして一つ結果を出す。 >>171 Ruby def solution1( str ) a = 0 str.chars.inject(''){|s,c| s << ( (5 & (a = 7 & a << 1 | c.ord & 1) == 5)? '1' : '0' ) }[2..-1] || '' end solution( '' ) #=> "" solution( 'AB' ) #=> "" お題 ビールの空きビンをN本集めると新品のビール1本と交換してもらえる あなたが新品のビールをP本持っている そのとき、あなたが飲めるビールはR本である N, Pを引数としてRを返す関数を定義してください >>179 Kotlin または Kotlin script fun beer(n: Int, p: Int) = p + p / n ごめん。これだと1回分しか計算してないね。ということで >>180 はボツ。 >>179 Kotlin https://paiza.io/projects/1gGtpt6dxb6-vzoATj_Qkg 作り直した。 もっと簡略化できそうな感じもしたがやってない。何か画期的な計算方法やアルゴリズムに気付いたらまた作る。 >>179 Ruby def solution( n, m ) b = r = n while (k = b.div( m )) != 0 b += k - k * m r += k end r end solution( 5, 3 ) #=> 7 >>179 https://ideone.com/tvmy6F let f n p = let rec aux r p q = if p = 0 then r else aux (r + p) ((p + q) / n) ((p + q) mod n) in aux 0 p 0 let () = print_int @@ f 3 5 ↓ 7 >>179 R R <- function(N, P) ((P - 1) * N) %/% (N - 1) + 1 お題:時刻の文字列が与えられる。その時刻から1秒後の時刻を出力せよ。 例 入力:00:00:00 出力:00:00:01 入力:23:59:59 出力:00:00:00 >>187 Perl5 use Time::Piece; use Time::Seconds; for (qw{00:00:00 23:59:59}) { $t = Time::Piece->strptime($_, '%T') + 1; print "入力:$_\n出力:", $t->strftime('%T'), "\n"; } ※見易くするためインデントを全角スペースに置換してあります 実行結果 ~ $ perl 22_187_1秒後.pl 入力:00:00:00 出力:00:00:01 入力:23:59:59 出力:00:00:00 >>188 use Time::Seconds; これ要らなかった…orz >>187 octave https://ideone.com/CEGEj8 f = @(s) datestr(addtodate(datenum(s), 1, 'second'), 'HH:MM:SS'); in = ['00:00:00';'23:59:59'], out = f(in) >>187 PowerShell "00:00:00", "23:59:59" |% {[String]([DateTime]$_).AddSeconds(1).TimeOfDay} >>187 ruby https://ideone.com/y2wgxo require 'time' f = -> s {(Time.parse(s) + 1).strftime('%T')} p ['00:00:00', '23:59:59'].map {|s| [s, f.(s)]} >>187 js const decode = (s) => s.split(":").map(Number); const encode = (nums) => nums.map((v) => String(v).padStart(2, "0")).join(":"); const inct = (s, sec = 1) => { const a = decode(s); const ss = [ { n: a[0], max: 24 }, { n: a[1], max: 60 }, { n: a[2], max: 60 }, ]; let up = sec; const b = ss .reverse() .map(({ n, max }) => { n += up; up = Math.floor(n / max); return n % max; }) .reverse(); return encode(b); }; console.log(inct("00:00:00"));// 00:00:01 console.log(inct("23:59:59"));// 00:00:00 console.log(inct("00:00:00", 100));// 00:01:40 >>187 ocaml https://ideone.com/aEsvl6 let sec_of_hms hms = let at i = int_of_string (String.sub hms i 2) in at 0 * 60 * 60 + at 3 * 60 + at 6 let hms_of_sec sec = Printf.sprintf "%02d:%02d:%02d" (sec mod 86400 / 3600) (sec mod 3600 / 60) (sec mod 60) let (<<) f g x = f (g x) let f = hms_of_sec << (+) 1 << sec_of_hms >>187 Rust (date/timeライブラリ不使用版) fn next_time(cur: &str) -> String { let [sec, min, hour] = cur .rsplitn(3, ':') .map(|s| s.parse().unwrap()) .zip([60, 60, 24]) .scan(1, |carry, (mut value, limit)| { value += *carry; (*carry, value) = if value == limit { (1, 0) } else { (0, value) }; Some(value) }) .collect::<ArrayVec<_, 3>>()[..] else { unreachable!() }; format!("{hour:02}:{min:02}:{sec:02}") } fn main() { assert_eq!(next_time("00:00:00"), "00:00:01"); assert_eq!(next_time("23:59:59"), "00:00:00"); } >>187 Kotlin 今度は Java のライブラリは使わずに時分秒を保持するクラスを自分で作ってそこで秒に足すとか文字列にするとかやるようにした。 https://paiza.io/projects/7YcPDBTxVFt9EVczvBJ8gQ >>187 dart 2.3.0 https://ideone.com/khq9gr void main() { var sec_of_hms = (hms) => hms.split(':').fold(0, (acc, s) => acc * 60 + int.parse(s)); var hms_of_sec = (sec) => [sec % 86400 ~/ 3600, sec % 3600 ~/ 60, sec % 60].map((x) => x.toString().padLeft(2, '0')).join(':'); var f = (hms) => hms_of_sec(sec_of_hms(hms) + 1); print(f('00:00:00')); print(f('23:59:59')); } >>187 c https://ideone.com/wRIYl2 int hmstosec(const char *hms) { int h, m, s; return sscanf(hms, "%d:%d:%d", &h, &m, &s) == 3 ? h * 3600 + m * 60 + s : 0; } char *sectohms(char *buff, int sec) { sprintf(buff, "%02d:%02d:%02d", sec % 86400 / 3600, sec % 3600 / 60, sec % 60); return buff; } char *f(char *buff, const char *hms) { return sectohms(buff, hmstosec(hms) + 1); } >>187 c https://ideone.com/3gj90n int hmstosec(const char *hms) { #define _(i) ((hms[i] - '0') * 10 + (hms[i + 1] - '0')) return _(0) * 3600 + _(3) * 60 + _(6); #undef _ } char *sectohms(char *buff, int sec) { #define _(i, value) buff[i] = '0' + (value) / 10, buff[i + 1] = '0' + (value) % 10 return _(0, sec % 86400 / 3600), buff[2] = ':', _(3, sec % 3600 / 60), buff[5] = ':', _(6, sec % 60), buff[8] = '\0', buff; #undef _ } char *f(char *buff, const char *hms) { return sectohms(buff, hmstosec(hms) + 1); } >>187 gawk https://ideone.com/zBy22y BEGIN {FS=":"} {print strftime("%T", mktime(sprintf("2024 01 23 %s %s %s", $1, $2, $3)) + 1);} >>187 sqlite https://ideone.com/fjEdMz select time('00:00:00', '+1 second'); select time('23:59:59', '+1 second'); >>187 bash https://ideone.com/pYf8vL while read hms; do date '+%T' --date="+1 seconds $hms" done >>187 pascal https://ideone.com/sprmCC program ideone; Uses sysutils, dateutils; function f(hms : string) : string; begin f := TimeToStr(IncSecond(StrToTime(hms), 1)) end; begin writeln(f('00:00:00')); writeln(f('23:59:59')); end. >>187 を時間ライブラリ無しで作成できている言語は現時点で 193のJavaScript 194のOCaml 195のRust 197のKotlin 198のDart 199のC++ 200のC 201のLisp 以上 >>187 Perl bashのコマンドラインから長い長いワンライナーで。 $ perl -ne 'if(/(\d+):(\d+):(\d+)/){$h=$1;$m=$2;$s=$3;printf"入力:%02d:%02d:%02d\n",$h,$m,$s;$s++;if($s>=60){$m++;$s=0;if($m>=60){$h++;$m=0;if($h>=24){$h=0}}}printf"出力:%02d:%02d:%02d\n",$h,$m,$s}' 1:2:3 入力:01:02:03 出力:01:02:04 0:0:0 入力:00:00:00 出力:00:00:01 23:59:59 入力:23:59:59 出力:00:00:00 $ お題 入力データをグループ分けして出力せよ 入力データの、= の左右は同じグループである。 出力する順番は、入力データの出現順とする UnionFind を使えば良いかも 入力データ ["a1=a2", "b1=b2", "b3=b2", "c1=c2", "e1=e2", "a3=a4", "c3=c4", "e1=e3", "a2=a4", "c3=c1", "b3=a4", "c2=d1", "a4=a5", "d2=c1", "b4=b3", "d3=c3"] 出力 [["a1", "a2", "b1", "b2", "b3", "a3", "a4", "a5", "b4"], ["c1", "c2", "c3", "c4", "d1", "d2", "d3"], ["e1", "e2", "e3"]] Ruby で、UnionFind を自作してみた。 下はユニットテストです https://paiza.io/projects/e6nk1EOu3utyWpV3iuWAFQ?language=ruby https://paiza.io/projects/kjeVtTKeDwEnWVrBU5_nbg?language=ruby >>206 Rust fn foo<'a, 'b>(input: &'b [&'a str]) -> Vec<Vec<&'a str>> { struct Data<'a> { name: &'a str, rep: usize, coll: Option<Vec<usize>>, } let mut data = Vec::<Data>::new(); let mut map = HashMap::<&str, usize>::new(); for s in input { let (index0, index1) = s.splitn(2, '=') .map(|s| match map.get(s) { Some(&index) => data[index].rep, None => { let index = data.len(); map.insert(s, index); data.push(Data { name: s, rep: index, coll: Some(vec![index]), }); index }, }) .sorted().tuple_windows().next().unwrap(); if index0 != index1 { let coll0 = data[index0].coll.take().unwrap(); let coll1 = data[index1].coll.take().unwrap(); coll1.iter().for_each(|&index| data[index].rep = index0); data[index0].coll = Some(itertools::merge(coll0, coll1).collect()); } } data.iter().map(|data| &data.coll).flatten() .map(|coll| coll.iter().map(|&index| data[index].name).collect()).collect() } >>207 の動作確認用追加分 use std::collections::HashMap; use itertools::Itertools; fn main() { let input = [ "a1=a2", "b1=b2", "b3=b2", "c1=c2", "e1=e2", "a3=a4", "c3=c4", "e1=e3", "a2=a4", "c3=c1", "b3=a4", "c2=d1", "a4=a5", "d2=c1", "b4=b3", "d3=c3" ]; let output = [ vec!["a1", "a2", "b1", "b2", "b3", "a3", "a4", "a5", "b4"], vec!["c1", "c2", "c3", "c4", "d1", "d2", "d3"], vec!["e1", "e2", "e3"] ]; assert_eq!(foo(&input), output); } >>206 ruby https://ideone.com/eF5lww f = -> a { w = a.map {|s| s.split('=')}.flatten.uniq.map.with_index.to_h a.each_with_object([]) {|s, acc| x, xa, y, ya = s.split('=').map {|k| [k, acc.find {|b| b.include? k}]}.flatten(1) if xa && ya then xa.concat (acc.delete ya) << x << y elsif xa then xa << x << y elsif ya then ya << x << y else acc << [x, y] end }.map {|a| a.uniq.sort_by {|s| w[s]}}.sort_by {|a| w[a[0]]} } >>206 rust https://ideone.com/MEZMPO fn f<'a>(a: &[&'a str]) -> Vec<Vec<&'a str>> { // ' let h = a.iter().map(|&s| s.split('=')).flatten().rev().enumerate().map(|(p, s)| (s, p)).collect::<HashMap<_, _>>(); let mut acc = Vec::<Vec<&str>>::new(); for xy in a.iter().map(|s| s.split('=').collect::<Vec<_>>()) { match (acc.iter().position(|b| b.contains(&xy[0])), acc.iter().position(|b| b.contains(&xy[1]))) { (Some(xi), Some(yi)) => { let ys = acc[yi].clone(); acc[xi].extend(ys); acc[xi].extend(xy); acc.remove(yi); }, (Some(xi), None) => acc[xi].extend(xy), (None, Some(yi)) => acc[yi].extend(xy), _ => acc.push(xy), } } for b in acc.iter_mut() { b.sort_by(|c, d| h.get(d).cmp(&h.get(c))); b.dedup(); } acc.sort_by(|c, d| h.get(d[0]).cmp(&h.get(c[0]))); acc } >>206 ruby https://ideone.com/daI0QL ・若干の修正 f = -> a { w = a.map {|s| s.split('=')}.flatten.uniq.map.with_index.to_h a.each_with_object([]) {|s, acc| x, xa, y, ya = s.split('=').map {|k| [k, acc.find {|b| b.include? k}]}.flatten(1) if xa && ya then xa.concat (acc.delete ya) elsif xa then xa << y elsif ya then ya << x else acc << [x, y] end }.map {|a| a.sort_by {|s| w[s]}}.sort_by {|a| w[a[0]]} } >>206 rust https://ideone.com/dO4xea ・若干の修正 fn f<'a>(a: &[&'a str]) -> Vec<Vec<&'a str>> { // ' let h = a.iter().map(|&s| s.split('=')).flatten().rev().enumerate().map(|(p, s)| (s, p)).collect::<HashMap<_, _>>(); let mut acc = Vec::<Vec<&str>>::new(); for xy in a.iter().map(|s| s.split('=').collect::<Vec<_>>()) { match (acc.iter().position(|b| b.contains(&xy[0])), acc.iter().position(|b| b.contains(&xy[1]))) { (Some(xi), Some(yi)) => { let ys = acc[yi].clone(); acc[xi].extend(ys); acc.remove(yi); }, (Some(xi), None) => acc[xi].push(xy[1]), (None, Some(yi)) => acc[yi].push(xy[0]), _ => acc.push(xy), } } acc.iter_mut().for_each(|b| b.sort_by(|c, d| h.get(d).cmp(&h.get(c)))); acc.sort_by(|c, d| h.get(d[0]).cmp(&h.get(c[0]))); acc } >>208 Perl5 use feature qw{:5.16 signatures}; no warnings qw(experimental::signatures); @s = qw[a1=a2 b1=b2 b3=b2 c1=c2 e1=e2 a3=a4 c3=c4 e1=e3 a2=a4 c3=c1 b3=a4 c2=d1 a4=a5 d2=c1 b4=b3 d3=c3]; for (map{[sort /(\w+)=(\w+)/]} @s) { ($l, $r) = @$_; $g{$r} //= $g{$l} //= $g{$r} // $l; $h{$g{$r}} = $g{$l} if $g{$l} ne $g{$r}; } $h{$k} = sub($e){$h{$e} ? __SUB__->($h{$e}) : $e}->($v) while ($k, $v) = each %h; $g{$_} = $h{$g{$_}} // $g{$_} for keys %g; push @{$r{$v}}, $k while ($k, $v) = each %g; say "@$_" for values %r; ※見易くするためインデントを全角スペースに置換してあります 実行結果 $ perl 22_206_grouping.pl b3 a3 a5 b4 a4 a1 b1 a2 b2 c1 d1 d3 c3 c2 d2 c4 e3 e1 e2 >>208 宛てじゃなかった >>206 の回答だったわ… orz >>206 >>215 をPowerShellに移植 $in = "a1=a2", "b1=b2", "b3=b2", "c1=c2", "e1=e2", "a3=a4", "c3=c4", "e1=e3", "a2=a4", "c3=c1", "b3=a4", "c2=d1", "a4=a5", "d2=c1", "b4=b3", "d3=c3" $in -split "=" |% {$h = @{}; $n = 0} {if (!$h[$_]) {$h[$_] = $n++}} $eq = $in |% {, $h[$_ -split "="]} $g = 1..$n do { $changed = $false $eq |% { $i, $j = $_ switch ($g[$i] - $g[$j]) { {$_ -gt 0} {$g[$i] = $g[$j]; $changed = $true} {$_ -lt 0} {$g[$j] = $g[$i]; $changed = $true} } } } while ($changed) $h.keys | sort {$h[$_]} | group {$g[$h[$_]]} |% {"[$($_.group -join ", ")]"} -- 実行結果 -- [a1, a2, b1, b2, b3, a3, a4, a5, b4] [c1, c2, c3, c4, d1, d2, d3] [e1, e2, e3] >>218 の5行目の if (!$h[$_]) を if ($h[$_] -eq $null) に訂正 >>206 ruby https://ideone.com/2UiT8U ・>>211 から若干のアレンジ ・同一グループの収集にSortedSetを使用 >>206 Kotlin 入力データを標準入力から入力したり、クラス作ってその中でまとめる等、色々やって長くなった。 https://paiza.io/projects/zdysD5ygRDFVbY2gAGCwOw >>206 ruby https://ideone.com/j2xPyB ・>>221 から若干のアレンジ ・SortedSet単位でのみいじるようにした f = -> a { g = -> a {a.combination(2) {|x, y| break g.(a.tap {x.merge y; a.delete y}) if x.intersect? y}} h = a.map {|s| s.split('=')}.flatten.uniq.map.with_index.to_h a = a.map {|s| s.split('=').map {|k| h[k]}.to_set SortedSet} g.(a).map {|set| set.map &h.invert.method(:[])} } >>206 rust https://ideone.com/Ma1WGV ・>>223 の移植 ・色々迷いアリ .map(|k| *h.get(k).unwrap())のところは当初 .map(|k| h.get(k).map(|&i| i)).flatten()などとしていたが 正解がわからないので迷った挙げ句に短く書けるほうを採用 ・これに限らずrustは不慣れなので色々珍妙なことをしている可能性アリ >>206 rust https://ideone.com/m5INyJ ・>>225 から若干の修正 ・不必要なループ回数を訂正 ・二重forを一重に(でもかえって煩雑に) ・まだまだ迷いアリ .map(|k| *h.get(k).unwrap())は結局 .flat_map(|k| h.get(k)).cloned()に置き換え こっちのほうが個人的にはスッキリ感アリ >>206 rust https://ideone.com/hT5zGF ・上記のmutナシ版 ・パフォーマンス的な観点もナシ >>226 すべてruby移植版rust DでもE見た目派生まとめ mutあり版 https://ideone.com/m5INyJ // for if return https://ideone.com/R8wcOJ // match find https://ideone.com/ifI5EX // if let find mutなし版 https://ideone.com/hT5zGF // for if return https://ideone.com/1PNKbR // match find https://ideone.com/btKWb1 // if let find 集合同士の組み合わせに重なりが一個もなかったときに 最後に返す a がポツーンと片隅に居るのが落ち着かなかったので match/if letで書き直してみたがそれはそれで難があり? 条件部分が奥に入ってしまったのがなんかイヤだったり? 一行目が長くなりすぎる、という理由で二行に分けたり? やっぱ元のfor if returnのリズムのほうが眼球に入りやすい? >>206 >>230 をDで書くと https://ideone.com/9oenyq になるが、switch case 0, 1, 2の場合も3の場合と同じ処理にすると、効率は落ちるもののかなり短くできる。 https://ideone.com/ILLUdy >>206 octave https://ideone.com/VtqJcV ・組み合わせつくって集合のペアごとに調べることをやめた ・集合間で重複する要素に着目して集合を減らすようにした >>223 g.(a).map {|set| set.map &h.invert.method(:[])}じゃなくて単に g.(a).map {|set| h.keys.values_at *set}で良かった read.cgi ver 07.5.5 2024/06/08 Walang Kapalit ★ | Donguri System Team 5ちゃんねる