[過去ﾛｸﾞ] プログラミングのお題スレ Part13 (1002ﾚｽ)

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

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

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

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

---

571: デフォルトの名無しさん [sage] 2019/03/09(土) 19:49:27.50 ID:R3sqYFdd お題：文字列と数値nが与えられるのでn番目の文字とそれ以外の文字を上下にスライドさせて表示する 入力 abc 2 出力 *b* a*c http://mevius.5ch.net/test/read.cgi/tech/1549160513/571

579: デフォルトの名無しさん [sage] 2019/03/10(日) 03:08:27.84 ID:LqrBe0vy >>571 ruby s = "abc" n = 2 t = "*" * s.length t[n - 1] = s[n - 1] u = s.clone u[n - 1] = "*" puts(t, u) http://mevius.5ch.net/test/read.cgi/tech/1549160513/579

580: デフォルトの名無しさん [] 2019/03/10(日) 11:57:40.70 ID:e6SI07pl >>571 J f =: 4 : 0 |: ((,. -.) (<:x) = i. # y ) {"1 '*' ,. y ) 2 f 'abc' *b* a*c http://mevius.5ch.net/test/read.cgi/tech/1549160513/580

581: デフォルトの名無しさん [] 2019/03/10(日) 13:31:21.17 ID:vqbsu7fW >>571 Haskell main = do putStrLn $ seclet "abc" (==) 2 putStrLn $ seclet "abc" (/=) 2 seclet lst func num = seclet' lst func 1 num where seclet' [] _ _ _ = [] seclet' (x:xs) f n a | f n a = x: seclet' xs f (n + 1) a seclet' (_:xs) f n a = '*': seclet' xs f (n + 1) a http://mevius.5ch.net/test/read.cgi/tech/1549160513/581

582: デフォルトの名無しさん [] 2019/03/10(日) 13:56:33.99 ID:vqbsu7fW >>571 >>581 引数の順序入れ替えてmapM_ 使って、main部分を一行にまとめた。 main = mapM_ (putStrLn.seclet "abc" 2) [(==),(/=)] seclet lst num func = seclet' lst 1 num func where seclet' [] _ _ _ = [] seclet' (x:xs) n a f | f n a = x: seclet' xs (n + 1) a f seclet' (_:xs) n a f = '*': seclet' xs (n + 1) a f http://mevius.5ch.net/test/read.cgi/tech/1549160513/582

583: デフォルトの名無しさん [sage] 2019/03/10(日) 17:19:36.82 ID:lsf+n+kn >>571　Perl5 ($s, $n)= qw{abc 2}; @s = split'',$s; @t = qw{*} x @s; $n--; ($s[$n], $t[$n]) = ($t[$n], $s[$n]); print @t, "\n", @s, "\n"; 実行結果 ~ $ perl 13_571.pl *b* a*c http://mevius.5ch.net/test/read.cgi/tech/1549160513/583

585: デフォルトの名無しさん [sage] 2019/03/10(日) 20:48:09.83 ID:z5UigTCL >>571 octave https://ideone.com/fEaJMh http://mevius.5ch.net/test/read.cgi/tech/1549160513/585

588: デフォルトの名無しさん [sage] 2019/03/10(日) 21:20:18.73 ID:z5UigTCL >>571 ruby https://ideone.com/6NM2Z2 >>567 String#lines　←これの存在知らなかった 勉強になりました http://mevius.5ch.net/test/read.cgi/tech/1549160513/588

590: デフォルトの名無しさん [sage] 2019/03/10(日) 21:59:51.08 ID:5renFNS0 >>571 @Mathematica https://ideone.com/gDkzl4 http://mevius.5ch.net/test/read.cgi/tech/1549160513/590

592: デフォルトの名無しさん [] 2019/03/10(日) 22:14:16.51 ID:SJp/1k7U >>571 Common Lisp https://ideone.com/cnTKML http://mevius.5ch.net/test/read.cgi/tech/1549160513/592

594: デフォルトの名無しさん [] 2019/03/10(日) 22:19:48.10 ID:KcIurEvX ごめん間違えた >>571です http://mevius.5ch.net/test/read.cgi/tech/1549160513/594

595: デフォルトの名無しさん [sage] 2019/03/10(日) 23:51:29.55 ID:THpHptm5 >>571 Node.js https://ideone.com/l4XmDp http://mevius.5ch.net/test/read.cgi/tech/1549160513/595

596: デフォルトの名無しさん [sage] 2019/03/11(月) 00:57:47.40 ID:HrDBQthw >>571 Squeak/Pharo Smalltalk。nを複数指定可で | fn | fn := [:str :ns | | ans | ans := (String new: str size withAll: $*), String cr, str. ns do: [:n | ans swap: n with: n + str size + 1]. ans ]. fn value: 'abc' value: #(2). "=> '*b* a*c' " fn value: 'abcdef' value: #(2 3 5). "=> '*bc*e* a**d*f' " http://mevius.5ch.net/test/read.cgi/tech/1549160513/596

600: デフォルトの名無しさん [sage] 2019/03/11(月) 09:18:51.69 ID:D2PSGRy3 >>571 Python def split3(s,p=1) : 　r0= s[:p]+'*'+s[p+1:] 　r1= '*'*p + s[p] + '*'*(len(s)-(p+1)) 　return r0+'\n'+r1 print(split3('abcd',2)) print(split3('abc',0)) '''結果 ab*d **c* *bc a** ''' http://mevius.5ch.net/test/read.cgi/tech/1549160513/600

603: デフォルトの名無しさん [] 2019/03/11(月) 11:35:10.21 ID:AGCERQh7 >>571 Io f := method(s,n, "*" repeated(s size)atPut(n - 1, s at(n - 1)) println s asMutable atPut(n - 1, 42)println ) f("abc",2) 実行結果 *b* a*c http://mevius.5ch.net/test/read.cgi/tech/1549160513/603

610: デフォルトの名無しさん [] 2019/03/11(月) 16:19:55.06 ID:+cahZmCl >>571 Kotlin https://paiza.io/projects/fOvQDvJ6VoTchgVL3pYJpw http://mevius.5ch.net/test/read.cgi/tech/1549160513/610

622: デフォルトの名無しさん [sage] 2019/03/11(月) 22:40:32.65 ID:6pdTomDX >>571 octave 複数列指定可能版 https://ideone.com/UqKcNb h = @(m, n) cell2mat(arrayfun(@(c, i) {['*'; c] [c; '*']}(1 + (i == n)), m, 1:numel(m))); ↓ h = @(m, n) cell2mat(arrayfun(@(c, i) {['*'; c] [c; '*']}(1 + any(i == n)), m, 1:numel(m))); http://mevius.5ch.net/test/read.cgi/tech/1549160513/622

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.036s