プログラミングのお題スレ Part22 (863ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

101(4): デフォルトの名無しさん [sage] 2023/09/28(木)08:18 ID:q8VwFY1b(1)
お題
文字列S=abcdefghij(10文字)が与えられて
配列[0,4,7]が与えられる
このときSの0番目を4番目、4番目を7番目、7番目を0番目に移動した文字列を出力するプログラムを書いてください

---

102: デフォルトの名無しさん [] 2023/09/28(木)09:17 ID:iiudb0JA(1)
>>101 lisp
https://www.ideone.com/pOwDJd

---

103: デフォルトの名無しさん [sage] 2023/09/28(木)13:09 ID:tckV2TlV(1)
>>101 Ruby
文字列S='abcdefghij'
配列=[0,4,7]

文字列 = 文字列S.dup
配列.zip( 配列.rotate ).each{|i,j| 文字列[i] = 文字列S[j] }
puts 文字列

---

115: 17 [] 2023/10/02(月)01:36 ID:hWT/DRlk(1/2)
>>101
Kotlin
https://paiza.io/projects/95GuXcUyZr8AkmVsRESj5Q

---

146: デフォルトの名無しさん [sage] 2023/10/28(土)20:54 ID:U0JINWpQ(1)
>>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))

---

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

---

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

---

ぬこの手 ぬこTOP 1.408s*