プログラミングのお題スレ Part22 (860ﾚｽ)
プログラミングのお題スレ Part22 http://mevius.5ch.net/test/read.cgi/tech/1691038333/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
4: デフォルトの名無しさん [] 2023/08/06(日) 17:47:37.64 ID:RhhSFLLO >>3 Kotlin https://paiza.io/projects/cmJpXwaAhFH6jYozb0bb2g http://mevius.5ch.net/test/read.cgi/tech/1691038333/4
26: 9 [sage] 2023/08/11(金) 02:38:50.64 ID:4P/NDj/+ ｽﾚが伸びているので何かと思えば、ｵﾚほか一部の回答者がsortを使ったのが そんなに気に入らなかったか、気に障ったか、 ざまぁみろｗ としか言いようがないが 後出しでｹﾁつけてるのは出題者じゃないようだが そしたらsortも、そしてminもあえて使わないバージョン、 書き方はいろいろあると思うけど： >>3 Perl5 use List::Util 'first'; for (<DATA>) { my %h = map{lc $_ => 1} /([A-Za-z])/g; $a[length $_] = $_ if 26 == keys %h; } print first{defined} @a; __DATA__ The quick brown fox jumps over a lazy dog. The jay, pig, fox, zebra and my wolves quack! Pack my box with seven dozen liquor jugs. The horse, pig, fox, zebra and my wolves quack! Jackdaws love my small sphinx of quartz. Jackdaws love my big sphinx of quartz. The quick brown fox jumps over a lazy cat. Pack my box with five dozen liquor jugs. 実行結果 ~ $ perl 22_3_az26_a.pl Jackdaws love my big sphinx of quartz. http://mevius.5ch.net/test/read.cgi/tech/1691038333/26
90: デフォルトの名無しさん [sage] 2023/09/22(金) 17:31:41.64 ID:fCKJ4NGF すごい簡潔ですね！perlすごい これはワンライナーではないのでしょうか #!/usr/bin/perl .. としてperl rename.plを動かすと動きました ファイルはこれ(bash)で用意できます for i in {1..20}; do touch abc$i.mp4; done http://mevius.5ch.net/test/read.cgi/tech/1691038333/90
303: デフォルトの名無しさん [] 2024/03/09(土) 22:13:47.64 ID:C74EWG6S >>282 C++ https://ideone.com/xQD1W8 関数mainのループで配列A, B, Pに書き込まずdにだけ書き込むようにし、関数FindDuplicatesで dの添字Pではなくdそのものをソートするように変えて、n = 1000000の場合に>>301より10%高速化。 関数PrintSolutionでa, bをmainでと同じ方法で再計算するのは非効率だが、PrintSolutionは僅か12回しか 呼ばれないため、全体の実行時間への影響は無視できる。 http://mevius.5ch.net/test/read.cgi/tech/1691038333/303
346: 警備員[Lv.18] [] 2024/05/23(木) 14:16:50.64 ID:zV267ZMC あれ？どんぐりの都合か？URL書いてあると書けなくなったような？ http://mevius.5ch.net/test/read.cgi/tech/1691038333/346
374: デフォルトの名無しさん [] 2024/06/20(木) 17:43:48.64 ID:0f6ktMCR お題：迷路生成を様々な言語で 例： C https://ideone.com/a527mc http://mevius.5ch.net/test/read.cgi/tech/1691038333/374
501: 9 [sage] 2025/01/27(月) 17:15:59.64 ID:cwZgX9Gy Perl5 for (qw{T CG ATA CGGA ATGAT GTTGCA CCCCGGG ACTGCGAG ATCAGAATA TGCCATGACA}) { %h = (); $h{$_}++ for split ''; print "$_ → ", (grep{1 < $h{$_}} keys %h), "\n"; } ※見易くするためインデントを全角スペースに置換してあります 実行結果 ~ $ perl 22_500_dupe_char.pl T → CG → ATA → A CGGA → G ATGAT → TA GTTGCA → GT CCCCGGG → CG ACTGCGAG → GAC ATCAGAATA → TA TGCCATGACA → TGAC http://mevius.5ch.net/test/read.cgi/tech/1691038333/501
516: デフォルトの名無しさん [] 2025/01/31(金) 16:14:43.64 ID:fZW/Grtl >>514 へのお題 次の操作ができる循環リンクリストを作成してください ・空のリストへの挿入 ・冒頭の挿入 ・最後に挿入 ・指定された位置への挿入 ・最初のノードを削除する ・最後のノードを削除する ・任意の位置からノードを削除する http://mevius.5ch.net/test/read.cgi/tech/1691038333/516
535: デフォルトの名無しさん [sage] 2025/02/07(金) 19:14:17.64 ID:UF6GKvr5 >>500 Wolfram Language str = "ATGAT" >> Out[1]= ATGAT duplicates = str // Characters \ (* { A, T, G, A, T } *) \ // Counts \ (* <| A -> 2, T -> 2, G -> 1 |> *) \ // Select[Function[ 1 < # ]] \ (* <| A -> 2, T -> 2 |> *) \ // Keys \ (* { A, T } *) \ // StringJoin (* "AT" *) >> Out[2]= AT http://mevius.5ch.net/test/read.cgi/tech/1691038333/535
730: デフォルトの名無しさん [sage] 2025/04/02(水) 15:10:39.64 ID:hi8l+lAW 行列演算は数学でもa,b,c,dだから… http://mevius.5ch.net/test/read.cgi/tech/1691038333/730
790: デフォルトの名無しさん [sage] 2025/08/04(月) 22:42:57.64 ID:A9zbJQ8U >>771 java >>789を修正。何度もすいませんね。classをメソッド内に移動。 https://ideone.com/BV5FXe http://mevius.5ch.net/test/read.cgi/tech/1691038333/790
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.039s