[過去ログ]
プログラミングのお題スレ Part21 (1002レス)
プログラミングのお題スレ Part21 http://mevius.5ch.net/test/read.cgi/tech/1668333636/
上
下
前次
1-
新
通常表示
512バイト分割
レス栞
抽出解除
レス栞
このスレッドは過去ログ倉庫に格納されています。
次スレ検索
歴削→次スレ
栞削→次スレ
過去ログメニュー
リロード規制
です。10分ほどで解除するので、
他のブラウザ
へ避難してください。
642: 634 [] 2023/05/05(金) 23:33:20.01 ID:i3ZizMLE >>640 そんなに簡単に解かれるとは思ってなかった 王国の話に引っ張られて解けない人いるかもと思ってた 3分割に限定したのが良くなかったかも お題 文字列の分割パターンを全部列挙してください 入力: いろはにほ 出力: い・ろ・は・に・ほ い・ろ・は・にほ い・ろ・はに・ほ い・ろ・はにほ い・ろは・に・ほ い・ろは・にほ い・ろはに・ほ い・ろはにほ いろ・は・に・ほ いろ・は・にほ いろ・はに・ほ いろ・はにほ いろは・に・ほ いろは・にほ いろはに・ほ いろはにほ http://mevius.5ch.net/test/read.cgi/tech/1668333636/642
643: 638 [sage] 2023/05/06(土) 00:28:50.96 ID:vZgCL7uL >>642 Perl5 use utf8; binmode STDOUT => "utf8"; use feature qw{:5.16 signatures say}; say for sub($a, @b) { if (@b) { my @s = __SUB__->(@b); (map{"$a・$_"} @s), (map{"$a$_"} @s); } else { $a } }->(split'', 'いろはにほ'); ※インデントは全角スペースに置換してあります。 perl5の__SUB__は、5.16以降で使用可能な「現在の関数(この場合無名関数)のリファレンス」 実行結果 ~ $ perl 21_642_いろはにほ.pl い・ろ・は・に・ほ い・ろ・は・にほ い・ろ・はに・ほ い・ろ・はにほ い・ろは・に・ほ い・ろは・にほ い・ろはに・ほ い・ろはにほ いろ・は・に・ほ いろ・は・にほ いろ・はに・ほ いろ・はにほ いろは・に・ほ いろは・にほ いろはに・ほ いろはにほ http://mevius.5ch.net/test/read.cgi/tech/1668333636/643
645: デフォルトの名無しさん [] 2023/05/06(土) 10:49:16.05 ID:5AOK1X8m >>642 PowerShell 3以上 (文字列は32文字以下とする) $s = "いろはにほ" $n = $s.length - 1 foreach ($i in 0..((1 -shl $n) - 1)) { (0..$n |% {$s[$_], "・"[!($i -band (1 -shl $_))]}) -join "" } [実行結果] いろはにほ い・ろはにほ いろ・はにほ い・ろ・はにほ いろは・にほ い・ろは・にほ いろ・は・にほ い・ろ・は・にほ いろはに・ほ い・ろはに・ほ いろ・はに・ほ い・ろ・はに・ほ いろは・に・ほ い・ろは・に・ほ いろ・は・に・ほ い・ろ・は・に・ほ http://mevius.5ch.net/test/read.cgi/tech/1668333636/645
646: デフォルトの名無しさん [] 2023/05/07(日) 06:28:33.03 ID:FtrFphzu >>642 Kotlin このプログラムだと入力文字数の最大は31文字だと思う。 https://paiza.io/projects/z1nseigb4DZR3fJeizVYhA http://mevius.5ch.net/test/read.cgi/tech/1668333636/646
647: デフォルトの名無しさん [] 2023/05/07(日) 17:24:01.83 ID:UIWGws2E >>642 Kotlin完全に理解した https://paiza.io/projects/Cp56cFkiivKE7ieuZw-ivg http://mevius.5ch.net/test/read.cgi/tech/1668333636/647
メモ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.044s