プログラミングのお題スレ Part22 (858ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞
ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡
101(4): デフォルトの名無しさん [sage] 2023/09/28(木) 08:18:15.29 ID:q8VwFY1b(1) AAS
お題
文字列S=abcdefghij(10文字)が与えられて
配列[0,4,7]が与えられる
このときSの0番目を4番目、4番目を7番目、7番目を0番目に移動した文字列を出力するプログラムを書いてください
102: デフォルトの名無しさん [] 2023/09/28(木) 09:17:20.57 ID:iiudb0JA(1) AAS
>>101 lisp
外部ﾘﾝｸ:www.ideone.com
103: デフォルトの名無しさん [sage] 2023/09/28(木) 13:09:43.08 ID:tckV2TlV(1) AAS
>>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:39.53 ID:hWT/DRlk(1/2) AAS
>>101
Kotlin
外部ﾘﾝｸ:paiza.io
146: デフォルトの名無しさん [sage] 2023/10/28(土) 20:54:22.44 ID:U0JINWpQ(1) AAS
>>101 octave
外部ﾘﾝｸ:ideone.com
function s = f(s, i)
s(circshift(i, -1, 2)) = s(i);
end
>>127127(4): デフォルトの名無しさん [sage] 2023/10/14(土) 00:00:08.85 ID:sMwx6jpS(1) AAS
お題：角カッコの列が入力されるのでカッコの対応が取れていたら1，取れていなかったら0と表示せよ
< [[]]
> 1
< [[]
> 0
ocaml
外部ﾘﾝｸ:ideone.com
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 0.035s