プログラミングのお題スレ Part22 (860ﾚｽ)

プログラミングのお題スレ Part22 http://mevius.5ch.net/test/read.cgi/tech/1691038333/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 ﾚｽ栞

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

175: 17 [] 2023/12/02(土) 14:30:47.66 ID:FLL1Kaqa >>171 Kotlin https://paiza.io/projects/xZXVc46Ys3qUlGX4DAIxzw 両隣が存在する文字のみを対象に処理をするようにした。なので3文字未満はエラーになる。3文字の場合は2文字目だけを対象にして一つ結果を出す。 http://mevius.5ch.net/test/read.cgi/tech/1691038333/175

200: デフォルトの名無しさん [] 2024/01/21(日) 21:15:52.66 ID:BWkvMixc >>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); } http://mevius.5ch.net/test/read.cgi/tech/1691038333/200

217: 9 [sage] 2024/02/04(日) 18:22:17.66 ID:jTY6zdRX >>208 宛てじゃなかった >>206 の回答だったわ… orz http://mevius.5ch.net/test/read.cgi/tech/1691038333/217

227: デフォルトの名無しさん [] 2024/02/06(火) 22:17:05.66 ID:ICpsP2hv >>206 C#で>>224とは別の解法 https://ideone.com/fvtgZa http://mevius.5ch.net/test/read.cgi/tech/1691038333/227

358: デフォルトの名無しさん [sage] 2024/06/07(金) 09:04:13.66 ID:tQi+9x5m #! ruby class String def to_c(n) if %r|^n|=~n n=(n.sub(%r|^n|,"").to_i+26)%26 lb=("A".."Z").to_a.join sb=("a".."z").to_a.join la=lb[n..25]+lb[0..n-1] sa=sb[n..25]+sb[0..n-1] return self.tr(lb,la).tr(sb,sa) else return self end end end p "Hello,World!".to_c("n3") #=>"Khoor,Zruog!" p "Hello,World!".to_c("n-5") #=>"Czggj,Rjmgy!" p "Hello,World!".to_c("s") #=>"Hello,World!" p "Khoor,Zruog!".to_c("n-3") #=>"Hello,World!" p "Czggj,Rjmgy!".to_c("n5") #=>"Hello,World!" http://mevius.5ch.net/test/read.cgi/tech/1691038333/358

624: デフォルトの名無しさん [sage] 2025/02/15(土) 22:09:09.66 ID:qa0m30Tb >>623 それはm1とm2を間接にポインタで持つために遅くなっているf593() m1とm2を直接に整数で持つため速いf3()はIntMaxに対応できていない http://mevius.5ch.net/test/read.cgi/tech/1691038333/624

634: デフォルトの名無しさん [] 2025/02/16(日) 08:09:49.66 ID:v+IcfGmt いるよねえ他人の回答に文句だけつけて自分では回答しないやつ http://mevius.5ch.net/test/read.cgi/tech/1691038333/634

682: 9 [sage] 2025/03/18(火) 16:05:22.66 ID:GYPHuJM6 >>680 Perl5、ナイーブな処理方式だと時間がかかり過ぎで最後まで解けないおそれがあるが、なかなかほかに回答者が現れないし、 出現傾向を見るだけでも…と思って、16進数の桁にa-fの現れる値をskipするナイーブな処理方法で。 $m = sprintf '%x', 9 x 15; # 10進で15桁まで print $m . ' '. hex($m)."\n"; $m =~ s/[a-f]/9/g; print "1 .. 0x$m\n"; print "".localtime."\n"; for (1 .. $m) { 　$d = hex($_); 　if (0 <= index($d, $_)) { 　　$n++; 　　print "$d, 0x$_\n"; 　} } print "".localtime."\n"; print "$n count found"; http://mevius.5ch.net/test/read.cgi/tech/1691038333/682

782: 777 [sage] 2025/07/27(日) 22:54:22.66 ID:YfUjoiLt >>771 octave ソート一回 https://ideone.com/dTRKBs >>771 ruby 2.5 ソート一回 https://ideone.com/akDhpS http://mevius.5ch.net/test/read.cgi/tech/1691038333/782

848: デフォルトの名無しさん [sage] 2025/09/14(日) 02:17:37.66 ID:ymjVQadn >>845 ruby https://ideone.com/wrV2zh ・なんとなく動いてる版 ・チマチマと次を探して行く ・G[20]まで出すのがやっと(4.05s) http://mevius.5ch.net/test/read.cgi/tech/1691038333/848

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.052s