プログラミングのお題スレ Part22 (863ﾚｽ)
プログラミングのお題スレ Part22 http://mevius.5ch.net/test/read.cgi/tech/1691038333/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
127: デフォルトの名無しさん [sage] 2023/10/14(土) 00:00:08.85 ID:sMwx6jpS お題：角カッコの列が入力されるのでカッコの対応が取れていたら1，取れていなかったら0と表示せよ < [[]] > 1 < [[] > 0 http://mevius.5ch.net/test/read.cgi/tech/1691038333/127
128: 17 [] 2023/10/14(土) 02:22:24.53 ID:BgrcFKKf >>127 Perl bash 等のシェルのコマンドラインで以下のように入力すると標準入力から入力して結果を標準出力に出力する。 perl -ne '$n=0;while(/(.)/g){if($1eq"["){$n++}elsif($1eq"]"){$n--}}$f=$n==0?1:0;print"$f\n"' 実行例 [[]] 1 [[] 0 [[[[]][[]]] 0 [[[[]][[]]]] 1 http://mevius.5ch.net/test/read.cgi/tech/1691038333/128
130: デフォルトの名無しさん [sage] 2023/10/14(土) 10:19:17.10 ID:BRbCCPQd >>127 Ruby %W( [[]] [[] [[[[]][[]]] [[[[]][[]]]] ][ #{} ).each{|s| w = s.dup {} while w.sub!( /\[\]/, '' ) puts "#{(s != '' && w == '')? 1 : 0} #{s.inspect}" } # 1 "[[]]" # 0 "[[]" # 0 "[[[[]][[]]]" # 1 "[[[[]][[]]]]" # 0 "][" # 0 "" http://mevius.5ch.net/test/read.cgi/tech/1691038333/130
131: デフォルトの名無しさん [] 2023/10/14(土) 22:38:53.08 ID:5dUK8HoW >>127 C# https://paiza.io/projects/biEUVjCtGCYB8s0ny8vsAQ http://mevius.5ch.net/test/read.cgi/tech/1691038333/131
146: デフォルトの名無しさん [sage] 2023/10/28(土) 20:54:22.44 ID:U0JINWpQ >>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)) http://mevius.5ch.net/test/read.cgi/tech/1691038333/146
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.032s